VBA: Nach Loop geht Code nicht weiter
20.05.2022 08:01:36
Christina
mir stellt sich jetzt ein Problem wofür ich bisher keine Lösung gefunden habe...
Ich habe eine Code, der auf einen virtuellen Drucker zugreift und im Loop immer wieder ein neu befülltes Blatt in die dazugehörige digitale Akte bringt. Die Liste im Registerblatt "Status" ist hierbei immer unterschiedlich lang. Das funktioniert auch alles Problem frei.
Jedoch werden die Befehle nach dem Loop nicht ausgeführt und ich kann mir den Grund nicht erklären. Habe schon probiert, ob ich über AppActivate wieder zu meiner Excel zurück muss, aber das war auch nicht die Lösung...
Meinen Code habe ich beigefügt. Kann mir hier bitte jemand helfen?
Vielen Danke im Voraus :)
Christina
Sub Drucken()
Dim BK As String
Application.ScreenUpdating = False
Worksheets("Status").Select
Range("A1").Select
'wiederholen bis zur letzten BN
Do
'Datensatz aktualisieren
Worksheets("Status").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Copy
Worksheets("Brief").Select
Range("A13").PasteSpecial
'Aktualisierung der weiteren Daten über Formeln
'Drucken
BK = Range("B13").Value
'OFR Drucker wählen
Application.ActivePrinter = "OFR auf OFR:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"OFR auf OFR:", Collate:=True, IgnorePrintAreas:=False
'Warten
Application.Wait (Now + TimeValue("0:00:05"))
'Archiv ansprechen
AppActivate ("OFR_Archiveingang (C)")
SendKeys BK, True
SendKeys "{TAB}", True
SendKeys "P", True
SendKeys "{TAB 5}", True
SendKeys "~", True
'Falls Hinweis kommt, um diesen zu bestätigen
SendKeys "~", True
Loop While ActiveCell.Value ""
Worksheets("Status").Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Das Makro ist abgeschlossen."
End Sub