Der Code erwartet schon auf deiner Userform das Vorhandensein der zugehörigen Controls:
2 Comboboxen mit Namen "combogerät" und "comboeinheit" sowie
3 Textboxen mit Namen "txt_artikel", txt_menge" und "txt_zähler"-
Ich hatte schon einmal vergessen, das Control-Element entsprechend zu benennen. Passiert mir immer wieder.
Wenn die Prozedur in den Debug-Modus fällt, welchess ist die farblich markierte Zeile?
addnew.Offset(0, n).Value = Me.Controls("combogerät" & n + 1).Value
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).Value
|