Mit Hilfe dieses super Forums und dem Netz habe ich mir ein UserForm erarbeitet, mit dessen Hilfe ich (vorerst) Daten in die erste Zeile in der in Spalte A kein Wert steht, schreiben möchte.
Diesen Code habe ich mir schon zusammengestellt (teilweise gekürzt):
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
Funktioniert auch soweit, nur die Daten aus dem UserForm werden nicht in die erste Zeile, in der A leer ist geschrieben, sondern viel weiter unten im Blatt. Eigentlich sollen die Werte in den Zeilen 8 - 145 eingetragen werden (weiß aber nicht wie das geht).
Kann mir bitte Jemand helfen.
https://www.herber.de/bbs/user/120322.xlsm
Danke fürs lesen,
mfg, Andreas