Habe mal wieder ein "kleines" Problem und komme einfach nicht weiter. Nachfolgenden Makrocode habe ich geschrieben:
Dokumentnummer = 2
DokumenteLesen:
Dokument = Range(Spalte & Dokumentnummer).Value
If Dokument = "" Then
GoTo FertigDokumenteLesen
End If
On Error GoTo 0
On Error GoTo Fehler
Set doc = appWord.Documents.Open(Pfad & Dokument)
doc.PrintOut
doc.Saved = True
doc.Close
Set doc = Nothing
Dokumentnummer = Dokumentnummer + 1
GoTo DokumenteLesen
FertigDokumenteLesen:
GoTo Ende
Fehler:
Mldg = "Dokument: " & Pfad & Dokument & " im angegebenen Pfad konnte nicht gefunden werden!"
Stil = vbOKOnly + vbInformation
Titel = "Excel-Makro"
Antwort = MsgBox(Mldg, Stil, Titel)
OptionButton1.Value = False
On Error GoTo 0
Dokumentnummer = Dokumentnummer + 1
GoTo DokumenteLesen
Ende:
Kurz gefasst, ab einem Tabellenblatt werden Worddokumente eingelesen, Word dann gestartet und das Dokument ausgedruckt. Wenn nun ein Worddokument nicht existiert, wird beim ersten Durchlauf die Fehlermeldung angezeigt. Wenn aber das nachfolgende Dokument auch nicht vorhanden ist, bricht das Makro mit der Fehlermeldung ab. Habe eigentlich gedacht ich hätte die Fehlerroutine mit 'on error goto 0' wieder zurückgesetzt aber ist scheinbar nicht so... Hat mir jemand eine Lösung??
Danke