Hallo,

möchte gerne die letzte freie Zeile in Spalte B finden. Zum suchen soll er aber erst nach Zeile 4 anfangen, das ist aktuell noch mein Problem.

Hier mein aktueller Code:

Private Sub CommandButton1_Click()

'letzte freie Zeile
Dim last As Integer
Worksheets("PsMittel").Activate
last = ActiveSheet.Cells(Rows.Count, 2).End(x1Up).Row + 1

'TextBox1 einfügen
Cells(last, 2).Value = TextBox1

End Sub

Mfg Simon