Clever-Excel-Forum

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. Big Grin

Hallo

immer in Zelle A2 oder folgende immer eine Zeile tiefer?

MfG Tom

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.

Sinopdog

Crazy Tom

Izzy