Hallo,
mit folgender Schleife übertrage ich die Werte aus einer Tabelle in eine UserForm:
For i = 1 To 160
Me.Controls("txtArtikel" & i).Value = Worksheets("Einkaufszettel").Cells(i + 4, 14).Value
Me.Controls("txtGewicht" & i).Value = Worksheets("Einkaufszettel").Cells(i + 4, 15).Value
Me.Controls("txtPreis" & i).Value = Format(Worksheets("Einkaufszettel").Cells(i + 4, 16).Value, "currency")
Me.Controls("txtMenge" & i).Value = Worksheets("Einkaufszettel").Cells(i + 4, 17).Value
....
Das dauert in der Regel 1-2 Sek. Nach Änderungen möchte ich auf die gleiche Weise die Werte aus dem Formular wieder in die Tabelle zurück übertragen was in umgekehrter Form allerdings mehrere Minuten dauert.
Wie erreiche ich, dass das auch schneller geht.
Danke schonmal für Eure Mühe.
Gruß
Niko