ich möchte das der Text aus einer UserForm immer in die nächste freie Zeile eingefügt wird.
Mein Code:
'Daten übernehmen
Private Sub CommandButton1_Click()
Dim emptyRow As Long
emtyRow = WorksheetFunction.CountA(Range("A:A")) + 1
Sheets("Liste").Cells(emtyRow, 1).Value = TextBox4.Value
End Sub
Er fügt es aber immer direkt in die erste Zeile (A1) ein..
Wo ist mein blöder Fehler? :(
Vielen Dank für euere Hilfe.
Liebe Grüße,
Jessica