combibox
20.05.2008 13:30:00
Petersdorff
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