Hallo Zusammen,

Ich bin leider etwas am verzweifeln und hoffe ich finde einen klugen Kopf der mir helfen kann.

Ich habe eine Userform gebastelt bzw. eine Vorlage/Anleitung aus dem Internet etwas umgebaut wo man das Datum des Ereignisses auswählen kann das funktioniert soweit auch super.

Nun habe ich aber das Problem wenn ich ein neues Ereigniss eintragen möchte und dort ein anderes Datum wähle übernimmt er das Datum auch in die Zelle davor.

Würde mich über eure Hilfe sehr freuen.

Private Sub CommandButton3_Click()
  Dim lZeile As Long
 
   
    If ListBox1.ListIndex = -1 Then Exit Sub
    
  
    If Trim(CStr(TextBox1.Text)) = "" Then
        'Meldung ausgeben
        MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
        'Abbrechen des Speicherroutine
        Exit Sub
    End If
    'Ausbauoption: Prüfen ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
    
    'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    lZeile = 13 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
    
        'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
        If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
            
            'Eintrag gefunden, TextBoxen in die Zellen schreiben
            Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(TextBox1.Text))
            Tabelle1.Cells(lZeile, 2).Value = TextBox2.Text
            Tabelle1.Cells(lZeile, 3).Value = TextBox3.Text
            Tabelle1.Cells(lZeile, 4).Value = TextBox4.Text
            Tabelle1.Cells(lZeile, 6).Value = ComboBox1.Text
            Tabelle1.Cells(lZeile, 8).Value = ComboBox2.Text
            Tabelle1.Cells(lZeile, 10).Value = ComboBox3.Text
            Tabelle1.Cells(lZeile, 12).Value = ComboBox4.Text
            Tabelle1.Cells(lZeile, 14).Value = ComboBox5.Text
            Tabelle1.Cells(lZeile, 16).Value = ComboBox6.Text
            Tabelle1.Cells(lZeile, 18).Value = ComboBox7.Text
            Tabelle1.Cells(lZeile, 23).Value = DTPicker1
            Tabelle1.Cells(lZeile, 20).Value = ComboBox8.Text
            Tabelle1.Cells(lZeile, 22).Value = ComboBox9.Text
            Tabelle1.Cells(lZeile, 25).Value = ComboBox36.Text
            Tabelle1.Cells(lZeile, 26).Value = ComboBox10.Text
            Tabelle1.Cells(lZeile, 27).Value = ComboBox11.Text
            Tabelle1.Cells(lZeile, 28).Value = ComboBox12.Text
            Tabelle1.Cells(lZeile, 29).Value = ComboBox13.Text
            Tabelle1.Cells(lZeile, 30).Value = ComboBox14.Text
            Tabelle1.Cells(lZeile, 31).Value = ComboBox15.Text
            Tabelle1.Cells(lZeile, 32).Value = ComboBox16.Text
            Tabelle1.Cells(lZeile, 33).Value = ComboBox17.Text
            Tabelle1.Cells(lZeile, 34).Value = ComboBox18.Text
            Tabelle1.Cells(lZeile, 35).Value = ComboBox19.Text
            Tabelle1.Cells(lZeile, 36).Value = ComboBox20.Text
            Tabelle1.Cells(lZeile, 37).Value = ComboBox21.Text
            Tabelle1.Cells(lZeile, 38).Value = ComboBox22.Text
            Tabelle1.Cells(lZeile, 39).Value = ComboBox23.Text
            Tabelle1.Cells(lZeile, 40).Value = ComboBox24.Text
            Tabelle1.Cells(lZeile, 41).Value = ComboBox25.Text
            Tabelle1.Cells(lZeile, 42).Value = ComboBox26.Text
            Tabelle1.Cells(lZeile, 43).Value = ComboBox27.Text
            Tabelle1.Cells(lZeile, 44).Value = ComboBox28.Text
            Tabelle1.Cells(lZeile, 45).Value = ComboBox29.Text
            Tabelle1.Cells(lZeile, 46).Value = ComboBox30.Text
            Tabelle1.Cells(lZeile, 47).Value = ComboBox31.Text
            Tabelle1.Cells(lZeile, 48).Value = ComboBox32.Text
            Tabelle1.Cells(lZeile, 49).Value = ComboBox33.Text
            Tabelle1.Cells(lZeile, 50).Value = ComboBox34.Text
            Tabelle1.Cells(lZeile, 51).Value = ComboBox35.Text
           
            'Die ListBox muss nun neu geladen werden
            'allerdings nur wenn sich der Name (ID) geändert hat
            If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
                Call UserForm_Initialize
                If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
            End If
            
            Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
            
        End If
    
        lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    Loop
    
End Sub