Hallo,

das Problem ist immer noch das Gleiche.

Hier habe ich mal den Code.Vielleicht hat noch jemand einen Tip. :-) Danke!!!

Option Explicit

Private Sub UserForm_Activate()
    Application.Visible = False
End Sub

'Private Sub UserForm_Terminate()
 '   Application.Visible = True
'End Sub

'Speichert am Ende
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Save
End Sub

Private Sub CommandButton1_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Kostenauflistung" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Darstellung").Range("A65536").End(xlUp).Offset(1, 0).Row
'In Blatt "Darstellung"
'Spalte A, erste freie Zeile die ausgewählte Fehlerart übertragen
Sheets("Darstellung").Cells(erste_freie_Zeile, 1) = ComboBox1.Text
'Spalte B, erste freie Zeile die Fehlerbeschreibung übertragen
Sheets("Darstellung").Cells(erste_freie_Zeile, 2) = TextBox3.Text
'Spalte C, erste freie Zeile das Datum im Datumsformat übertragen
Sheets("Darstellung").Cells(erste_freie_Zeile, 3) = TextBox2.Text
'End With
Unload Me
End Sub

Private Sub CommandButton2_Click()
'UserForm schließen
Unload Me
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub UserForm_initialize()
'Variable deklarieren
Dim Wiederholungen As Integer
'Schleife zum Füllen der ComboBox mit den Daten aus Blatt "Hilfstabelle"
'Spalte A ab Zeile 2 bis zur letzten gefüllten Zeile
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Hilfstabelle").Cells(Wiederholungen, 1)
TextBox2 = Date
Next
End Sub