habe schon in der Recherche nachgeschaut, aber leider nichts gefunden.
meine Frage. wie bekomme ich den Inhalt einer Textbox in die letzte freie zeile des tab.blatt3 kopiert oder geschrieben.
danke
jens
Sub Egal()
Dim x As Long
x = ThisWorkbook.Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1
MsgBox "in Spalte A ist die nächste freie Zelle " & Cells(x, 1).Address
Worksheets("Tabelle3").Cells(x, 1) = Userform1.Textbox1.Text
End Sub