Ganz einfache Userform

[Sinopdog]

Hallo Leute,
ich habe eine schnelle Frage:
Ich habe mir eine ganz einfache Tabelle erstellt, in der ich lediglich eine Spalte "Datum" habe.
Jetzt habe ich eine Userform erstellt mit einer TextBox mit dem Label "Datum" und einer Befehlsschaltfläche "Neuer Eintrag".
Ich möchte lediglich, dass ich in die TextBox das Datum eintrage und wenn ich Enter oder "Neuer Eintrag" drücke, dann sollen die eingegebenen Daten untereinander stehen.
Beispiel:
Ich schreibe in die TextBox "14.10.2019", drücke Enter oder "Neuer Eintrag" --> "14.09.2019" steht in der Zelle A2 (A1 ist die Überschrift)
Ich hoffe ihr könnt mir helfen, den Rest schaffe ich bestimmt alleine.

[Crazy Tom]

Hallo

immer in Zelle A2 oder folgende immer eine Zeile tiefer?

MfG Tom

[Izzy]

Code:

Private Sub CommandButton1_Click()
Dim X As Long
 
X = Sheets("Name Tabellenbatt").Range("A65536").End(xlUp).Row

Sheets("Name Tabellenblatt").Cells(X + 1, 1) = Format(TextBox1.Text, "dd.mm.yyyy")


End Sub

Das könnte dir evtl helfen. Ungetestet

Immer wenn du den button betätigst, schreibt er den Inhalt aus Textbox 1 in die nächste freie Zeile.
Das UserFrom fenster selbst beendet sich dann nicht.