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 WEG DAMIT!
Diese Schleife von 0 bis 4 war nur eine Abkürzung für die ersten 5 Textboxen.
Statt dessen geht es einfach weiter mit
addnew.Offset(0, 5).Value = combogerät.value
addnew.Offset(0, 6).Value = txt_artikel.Text
addnew.Offset(0, 7).Value = txt_menge.Text
addnew.Offset(0, 8).Value = txt_zähler.Text
addnew.Offset(0, 9).Value = comboeinheit.Value
Next n
|