Hallo,
Danke für die Hilfe, bei dem letzten Teil kommt die Fehlermeldung: das angegebene Objekt konnte nicht gefunden werden. Geht das mit einer combobox nicht oder wo liegt der fehler?
For n = 0 To 4
addnew.Offset(0, n).Value = Me.Controls("combogerät" & n + 1).Text
addnew.Offset(0, n).Value = Me.Controls("txt_artikel" & n + 1).Text
addnew.Offset(0, n).Value = Me.Controls("txt_menge" & n + 1).Text
addnew.Offset(0, n).Value = Me.Controls("txt_zähler" & n + 1).Text
addnew.Offset(0, n).Value = Me.Controls("comboeinheit" & n + 1).Text
Next n
LG Alex
|