TextBox Inhalt aus UserForm in Tabelle übertragen

[Mike123]

Hallo zusammen,

kann mir bitte jemand nachfolgenden Code anpassen, sodass im Registerblatt "Hauptmenü" nicht permanent die nächste frei Zelle gesucht wird sondern der Bezug z.B. auf die Zelle A1 fixiert wird ? 

Private Sub TextBox23_AfterUpdate()

With Sheets("Hauptmenü")
    .Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1) = TextBox23.Text
End With

End Sub

[Klaus-Dieter]

Hallo,

das heißt, der Inhalt aus dem Textfeld soll jetzt immer in Zelle A1? Also alte Inhalte überschrieben werden? Dann so:

Code:

Private Sub TextBox23_AfterUpdate()

With Sheets("Hauptmenü")
    .Range("A1") = TextBox23.Text
End With

End Sub

[Mike123]

genau so, herzlichen Dank !