Hallo zusammen,
folgendes Problem: Ich möchte gerne die Label Captions auf einem Tabellenblatt in einer For Schleife aktualisieren. Die Quelldaten werden mit der Variable "MaschineCopy" per Sverweis über die Zelle "Stpl" aktualisiert und in die Label übertragen. Dieses Blatt soll am Ende jedes Schleifendurchlaufs mit Printout gedruckt werden. Wenn ich im Debug Modus durchgehe funktioniert es auch einwandfrei. Wenn ich den Code mit F5 ausführe scheint es so als wären die Labels zu träge und sich nicht rechtzeitig vor dem druck aktualisieren. Kann ich hier irgendwie abhilfe schaffen?
For i = start To ende Step 1
MaschineCopy = Sheets("Import").Range("B" & i)
Sheets("Dokumentenkopf").Range("Stpl") = MaschineCopy
Sheets("102146").lbl102146artnr.Caption = Sheets("Dokumentenkopf").Range("Artikelnr").Value
Sheets("102146").lbl102146bez.Caption = Sheets("Dokumentenkopf").Range("Artikelbez").Value
Sheets("102146").lbl102146datum.Caption = Sheets("Dokumentenkopf").Range("datum").Value
Sheets("102146").lbl102146lfd.Caption = Sheets("Dokumentenkopf").Range("lfdtag").Value & " / " & Sheets("Dokumentenkopf").Range("Auftrag").Value
Sheets("102146").lbl102146werkzeug.Caption = Sheets("Dokumentenkopf").Range("werkzeug").Value
Sheets("102146").lbl102146stplinv.Caption = Sheets("Dokumentenkopf").Range("Stpl").Value & " / " & Sheets("Dokumentenkopf").Range("inv").Value
Sheets("102146").PrintOut
Next i