Daten von UserForm in Tabelle

Private Sub UserForm_Initialize()
With Me.ComboBox_Buchungsdatum
.RowSource = "Buchungsdatum"
ComboBox_Buchungsdatum.Value = Date
End With
With Me.ComboBox_Daten
.RowSource = "Buchungsdaten"
.ListIndex = -1
End With
With Me.ComboBox_Vorgang
.RowSource = "Buchungsvorgang"
.ListIndex = -1
End With
End Sub

Private Sub CommandButton1_Click()
Dim lngZeile  As Long
lngZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lngZeile, 1).Value = ComboBox_Buchungsdatum.Value
Cells(lngZeile, 7).Value = TextBox_K2110.Value
End Sub

Private Sub ComboBox_Buchungsdatum_Change() 'Datum der Buchung
ComboBox_Buchungsdatum.Value = Format(ComboBox_Buchungsdatum.Value, ("dd.mm.yyyy"))
End Sub

Private Sub TextBox_K2110_AfterUpdate()
TextBox_K2110.Text = Format(TextBox_K2110.Text, "##,##0.00") * 1
End Sub