Option Explicit
Private Sub CommandButton1_Click()
Range("Database!A5").Value = TextBox1.Value
End Sub
Die Zelle A5 habe ich gewählt weil ab da begonnen werden soll. Wäre nett wenn mir da jemand helfen könnte. Grüße Marco
Option Explicit
Private Sub CommandButton1_Click()
Range("Database!A5").Value = TextBox1.Value
End Sub
Die Zelle A5 habe ich gewählt weil ab da begonnen werden soll. Wäre nett wenn mir da jemand helfen könnte.
Option Explicit
Private Sub CommandButton1_Click()
Dim loLetzte As Long
With Sheets("Database")
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If loLetzte
Gruß Werner