Hallo,
Ja ist es, funktioniert noch nicht... wobei der Fehlercode nicht mehr kommt wenn ich den Schleifenteil vom Code so schreibe.
/////////
If LetzteZeile < 31 Then LetzteZeile = 30
Set addnew = wks.Cells(LetzteZeile + 1, 1)
For n = 0 To 4
addnew.Offset(0, n).Value = Me.Controls("txt_1").Text
addnew.Offset(0, n).Value = Me.Controls("combo_1").Value
addnew.Offset(0, n).Value = Me.Controls("txt_2").Text
Next n
////////
aber die werte werden nicht in die gewünschte Zeile eingefügt.
LG
|