combibox

Private Sub CommandButton1_Click()
Dim liZeile As Long
Dim lcTXTbox As Control, liSpalte As Integer
Dim objWksVerp As Worksheet
Set objWksVerp = Sheets("Verpackungsdaten")
With objWksVerp
'Nächste freie Zeile in Spalte 5 (E) suchen
If .Cells(.Rows.Count, 5).End(xlUp).Row 

Viele Lieben Dank für die Hilfe
Andreas