Guten Tag liebe Community,

ich habe folgendes Problem...Ich muss eine ganze menge an Daten in ein bestimmtes Format in eine Zelle zusammenfügen, ohne das sich das Format ändert. Nun weiß ich, dass dies mit der Funktion "Textkette" funktionieren soll. Jedoch ändert sich das Format der gewünschten Datenreihe, sodass ich bei "Zellen Formatieren -> Zahlen -> Benutzerdeffiniert" angekommen bin. Egal wie ich es drehe und wende, ich bekomme das gewünschte Format nicht auf die Reihe.

Danke im Voraus

Angehängte Dateien

Thumbnail(s)
   

Hallo,

ich habe eine Frage zu meiner Userform.

Mit der Userform soll das jeweils aktive Blatt in der dynamischen Tabelle befüllt werden.

Es erscheinen jedoch in den Textboxen weder eine Vorschau, wie der Eintrag aussehen soll (zu überschreibender Mustereintrag), noch trägt es die erfassten Daten in die jeweiligen Spalten ein.

Kann mir wer helfen? Wo muss ich noch Was eintragen?

Die erste Zeile ist Zeile 3, die erste Spalte ist Spalte B.

'Dateneingabefelder
Private Sub CommandButtonErfassen_Click()
'Erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'TextBoxDatumBeginn
Cells(last, 2).Value = TextBox_TextBoxDatumBeginn
Cells(last, 3).Value = TextBox_TextBoxDatumEnde
Cells(last, 4).Value = TextBox_TextBoxZeitBeginn
Cells(last, 5).Value = TextBox_TextBoxZeitEnde
Cells(last, 6).Value = TextBox_TextBoxBesucher
Cells(last, 7).Value = TextBox_TextBoxWas
Cells(last, 8).Value = TextBox_TextBoxWo
Cells(last, 9).Value = TextBox_TextBoxWer
End Sub

'Eingabe abbrechen
Private Sub CommandButtonVerwerfen_Click()
Unload Me
End Sub

'Neues Blatt Führungen
Private Sub FuehrungNeu_Click()
  Dim BlattName As String
  Dim wks As Worksheet
  BlattName = InputBox("Für welches Jahr?", "Führungen anlegen")
If BlattName <> "" Then
    If BlattName Like "####" Then '4 Ziffern
      BlattName = "Führungen " & BlattName
      On Error Resume Next
      Set wks = Worksheets(BlattName)
      On Error GoTo 0
      If wks Is Nothing Then
        Sheets("Führungen Neu").Copy After:=Sheets(3)
        ActiveSheet.Name = BlattName
      Else
        MsgBox "Das Blatt " & BlattName & " gibt es schon!", , "Fehler"
      End If
    Else
      MsgBox "Der Name ist ungültig", , "Fehler"
    End If
  End If
End Sub

'Abfrage des Jahres Hospitationen
Private Sub HospitationNeu_Click()
  Dim BlattName As String
  Dim wks As Worksheet
  BlattName = InputBox("Für welches Jahr?", "Hospitationen anlegen")
If BlattName <> "" Then
    If BlattName Like "####" Then '4 Ziffern
      BlattName = "Hospitationen " & BlattName
      On Error Resume Next
      Set wks = Worksheets(BlattName)
      On Error GoTo 0
      If wks Is Nothing Then
        Sheets("Hospitationen Neu").Copy After:=Sheets(3)
        ActiveSheet.Name = BlattName
      Else
        MsgBox "Das Blatt " & BlattName & " gibt es schon!", , "Fehler"
      End If
    Else
      MsgBox "Der Name ist ungültig", , "Fehler"
    End If
  End If
End Sub
'Navigationsblatt aktualisieren
Private Sub Navigation_Click()
'Blatt Navigation neu befüllen
'Sub Navigation()
Dim lngRow As Long
Dim wks As Worksheet
    lngRow = 12
    With Worksheets("Navigation")
        .Range("d13:d50").ClearContents
        For Each wks In Worksheets
            If wks.Name <> .Name Then
                lngRow = lngRow + 1
                .Hyperlinks.Add .Cells(lngRow, 4), "", "'" & wks.Name & "'!A1", , wks.Name
            End If
        Next
    End With
    Sheets("Navigation").Select
    Worksheets("Navigation").Range("D13").Activate
End Sub

'Blatt Navigation neu befüllen Teil 2
Private Sub Worksheet_Activate()
Call Navigation
End Sub


'Textfeld Gast
Private Sub TextBoxBesucher_Change()
End Sub

'Textfeld Datum von
Private Sub TextBoxDatumBeginn_Change()
End Sub

'Textfeld Datum bis
Private Sub TextBoxDatumEnde_Change()
End Sub

'Textfeld Art
Private Sub TextBoxWas_Change()
End Sub

'Textfeld Durchführender
Private Sub TextBoxWer_Change()

End Sub
'Textfeld Ort
Private Sub TextBoxWo_Change()
End Sub

'Textfeld Durchführender
Private Sub TextBoxZeitBeginn_Change()
End Sub

Private Sub TextBoxZeitEnde_Change()
End Sub

Private Sub UserForm_Click()
End Sub

'Abfragefelder Vorgabe
Private Sub UserForm_Initialize()
'TextBoxDatumBeginn
TextBox_DatumBeginn = "Datum eingeben"
'TextBoxDatumEnde
TextBox_DatumEnde = "Datum eingeben"
'TextBoxZeitBeginn
TextBox_ZeitBeginn = "Zeit eingeben"
'TextBoxZeitEnde
TextBox_ZeitEnde = "Zeit eingeben"
'TextBoxBesucher
TextBox_Besucher = "Namen eingeben"
'TextBoxWas
TextBox_Was = "Führung oder/und Hospitation eingeben"
'TextBoxWo
TextBox_Wo = "Örtlichkeit eingeben"
'TextBoxWer
TextBox_Wer = "Dürchführenden eingeben"
End Sub

'Problemerklärung

'CommandButtonErfassen : Beim Anklicken sollen die Daten der Eingabemaske in die jeweiligen Zellen
'des aktiven Arbeitsblatts eingetragen werden.
'Die Abfragefelder nehmen die vorgegebenen Texte aus der UserForm_Initialize nicht an und bleiben
'immer weiß


Gruß

Bernie

Schönen Guten Tag,

ich bin auf der Suche nach einer Möglichkeit aus einer Tabelle gemeinsame Zeiten zu finden und mir diese anzeigen zu lassen.
Hoffe das angeheftete Bild zeigt bissl besser was ich meine.

Hintergrund:
Ich versuche für eine Gruppe die zu unterschiedlichen zeiten (wöchentlich wechselnd) gemeinsame Termine zu finden. 
Ich nutze dafür Google Excel also die onlineplattform damit auch die anderen teilnehmer drauf zugriff haben.

Eventuell hat ja einer hier ne Lösung wie ich den Schritt Automatisiert bekomme, vielen Dank schonmal im vorraus.

Angehängte Dateien

Thumbnail(s)
   

Hallo,

ich könnte etwas Hilfe gebrauchen.
Folgende Rahmenbedingungen habe ich:

1x Daten-XLSX-Datei mit diversen sheets. Jedes sheet steht für eine Sprache z.B. englisch, deutsch, usw.
Jedes sheet hat die identische Anzahl Spalten und Zeilen. Die Zeilen pro Sheet haben in der Spalte 1 die gleiche Nummern
Die Anzahl der Zeilen und Spalten pro Sheet sind variabel, jedoch pro sheet identisch.
Die Anzahl der Sheet sind variabel.


In einer zweiten XSLX-Datei gibt es die UserForm.
In dieser UserForm gibt es folgende Elemente:

1x ComboBox1 --> hier werden die Datensätze aus der Daten-XLSX-Datei geladen, damit man diese auswählen kann. Wählt man aus dieser Liste einen Eintrag aus, dann werden die Zellen in die TextBoxen eingetragen
7x TextBox --> hier werden die Zellen-Einträge angezeigt
1x ComboBox2 -->hier stehen die Namen der Sheets

Ziel soll es sein, dass wenn in der ComboBox2 ein anderer Listeneintrag angeklickt wird, dass dann die Inhalte aus diesem gewählten Sheet angezeigt werden ABER der ListIndex in ComboBox1 nicht verändert wird


Wie könnte man das einfach lösen?
Geht das über ein 3dimensionales Array (Zeilen, Spalten, Sheets)

Leider kenne ich mich damit nicht so gut aus.
Vielen Dank für eure Hilfe

Gruß
Michael

Angehängte Dateien

  excel.zip (Größe: 38,75 KB / Downloads: 4)

Hallo zusammen,

für unsere Personalbuchhaltung existiert eine Tabelle, bei der die nötigen Stunden und Zuschläge als Grundlage für die Abrechnung notiert werden.

Nun wurde die Tabelle etwas angepasst und komme mit meinem Wissen leider nicht mehr weiter...

In Zelle X9 steht ein Wert, in diesem Fall "Coler Mo-Sa/1W Frei". Das heißt, dieser Mitarbeiter ist auf Teilzeit eingestellt und hat im Monat jeweils eine Woche frei.
Zur Berechnung bei Krnak- und Urlaubsstunden muss das Gehalt des Mitarbeiters auf die einzelnen Tage umgerechnet werden.
Für die Vollzeitbeschäftigten habe ich es hinbekommen. Jetzt möchte ich aber, dass bei Spalte R die Formel (wenn in Zeile X9 Coler Mo-Sa/1W Frei steht), dass dies bei der Berechnung berücksichtigt wird und eine Woche automatisch auf 0 gesetzt wird anstatt 1, 0,33 oder 0,67.

Ich hoffe sehr, dass mir jemand bei meinem Problem behilflich sein kann.

Ich habe die betroffenene Tabelle in der Anlage beigefügt.

Ich bedanke mich sehr im Voraus!

Angehängte Dateien

  TEST_04_Stunden April 2023.xlsx (Größe: 61,03 KB / Downloads: 8)

Hallo wieder mal,

ich hab seit heute ein Problem:

Bislang funktionierte das nachfolgende Makro einwandfrei.

Er befüllte die Tabelle meines Arbeitsblatts ab Zelle "D13" nach unten hin dynamisch mit sämtlichen Blattnamen. Die Zellen führten einen Link zum jeweiligen Blatt mittels Hyperlink automatisch aus:

'Blatt Navigation neu befüllen
Sub Navigation()
Dim lngRow As Long
Dim wks As Worksheet
lngRow = 12
With Worksheets("Navigation")
.Range("d13:d50").ClearContents
For Each wks In Worksheets
If wks.Name <> .Name Then
lngRow = lngRow + 1


.Hyperlinks.Add .Cells(lngRow, 4), "", "'" & wks.Name & "'!A1", , wks.Name

'Hier stoppt der Debugger mit Fehlermeldung: "Laufzeitfehler '1004': Anwendungs- oder ojektdefinierter Fehler"


End If
Next
End With
Sheets("Navigation").Select
Worksheets("Navigation").Range("D13").Activate
End Sub

Gleichzeitig wurde bereits mein Tabellenblatt "Navigation" aufgerufen, aber ohne die dynamischen Blattnamen.

Wer findet bitte den Fehler?

Danke Bernie

Guten Abend zusammen. Ich weiß nicht ob ich hier richtig bin,oder ob das eher eine Word-Frage ist. Ich bin relativ neu im Umgang mit Exel und habe eine Frage , die vermutlich recht komplex ist 

Ich spiele sehr gerne Wrestling und spiele da einen Modus wo ich meine eigene Show habe und quasi die jeweiligen Kader verwalten kann. Das mache ich grundsätzlich schon die ganzen letzten Jahre. Um das alles "realistisch" wie möglich zu halten, plane ich dementsprechend auch meine Matches. Dies erfolgte für gewöhnlich mit Zettel und Stift oder teilweise mit word und exel. 

Meine Hauptfrage ist jedoch, kann ich das so einstellen dass das Programm mir quasi ausrechnet und vorgibt, welcher Wrestler gegen wem als nächstes Antreten muss? Habe es bisher mit Exel aufgelistet welcher Wrestler in welcher Show ist. Kann man da einen Algorithmus schaffen? So das mir das Programm sagt, der hat schon gegen den und muss jetzt gegen den und den?

Hoffe mir kann da jemand helfen , ob es zum einen grundsätzlich geht oder ob das mit word geht, bzw wie das generell geht 

Danke im Voraus und schönen Abend noch 

Hallöchen =)

Ich habe folgendes Problem.
In meiner Excell Datei sind in Zelle A1 Mehrere Wörter mit Leerzeichen dazwischen eingetragen.

Wie bekomme ich es hin, dass diese Wörter in die Zellen daneben aufgespalten werden? Also das erste Wort in Zelle A2, das zweite in A3 etc. ?
Dementsprechend Möchte ich auch die darunter liegenden Zeilen aufspalten. Also in B1 stehen wieder die Daten mit Leerzeichen und ich möchte diese unter die Daten von Zeile A1 aufteilen.

Ich hoffe, ich habe mich verständlich ausgedrückt.

Vielen Dank für die Hilfe
LG
Pe

Hallo Zusammen,

ich stehe vor einem Problem. Ich versuche es mal einfach darzustellen...

Ich möchte mit einer WENN Formel suchen, ob in einem bestimmten Zellbereich ein definierter Text steht. Sollte dem so sein, kommt in EINE Zelle das Ergebnis. Leider erhalte ich immer einen Überlauf, auf Grund des Suchbereichs und mir wird in mehreren Zellen das Ergebnis ausgeworfen.

Beispiel: Ich möchte, dass in Zelle A1:A6 der Begriff "Sonderfahrt" gesucht wird. Wird dieser dort angezeigt, soll in Zelle D1 das Ergebnis "ES" erscheinen. Im nächsten Step soll in B1:B6 nach dem gleichen Begriff gesucht werden.

Meine bisherige Formel:

=WENN((A1:A6)="Sonderfahrt";"ES";WENN(B1:B6)="Sonderfahrt";"LS";WENN(C1:C6)="Sonderfahrt";"NS";"") 

Mein Ergebnis erscheint dann jedoch in den Zellen D16 und nicht nur in D1. Wie kann ich das ändern? 

Hallo nabend

Ich benötige Eure Hilfe, ich habe schon mehrere Makros ausprobiert um die aktive Zelle farbig darzustellen.
Das funktioniert auch sehr gut, ich kann die Zellen zusätzlich auch farbig befüllen, wie auch die Schrift farbig hinterlegen.
Leider gehen mir die Bedingten Formatierungen verloren, ich kann auch keine neue erstellen.

Ich habe noch keine gr. Erfahrung mit Makro schreiben, daher würde ich mich sehr freuen, wenn Ihr mir helfen könntet.

Mein bisheriges Makro, ich hab über die Bedingte Formatierung eine Regel hinterlegt: Zellwert ungleich ="=" - farbige Zelle
dann das Makro 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode = False Then Application.Calculate

End Sub


bzw. wenn Ihr einen besseren Vorschlag habt, bitte schickt ihn mir, ich würde mich sehr freuen, vielen Dank