on Error Behandlung
02.08.2019 21:20:13
Gert
eine Excel Tabelle soll, unter Benutzung von in der Tabelle genannten Daten, die Tabelle als pdf in einer Kundenakte ablegen.
Das funktioniert prima.... solange die Kundennamen keine Umlaute haben. Mein Makro streikt also _
beim Mitglied "Müller", aber nicht bei "Meier".
Sub Print_pdf()
' Print_pdf Makro
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Select
'Laufwerk ist der Laufwerksbuchstabe, der nicht immer C ist ist...
Dim Laufwerk As String
Laufwerk = Cells(1, 4).Value
'Ordner setzt sich zusammen aus "Familienname" ", " "Vorname" "Mitgliedsnummer"
Dim Ordner As String
Ordner = Cells(14, 18)
Mitgliedsnummer = Cells(9, 9).Value
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Laufwerk & ":\Verein\Mitglieder A-Z Schriftverkehr\" & Ordner & Format(Date, " _
YYYYMMDD") & " " & .Name & " " & Format(Mitgliedssnummer, "0000") & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
End Sub
Wie müßte das Makro aussehen, wenn es nun um eine zusätzliche "on Error Routine" ergänzt wird, die bei einem Fehler ("Müller") das pdf unter dem Verzeichnis "Sonstig" abspeichert, aus dem man dann das Dokument manuell in die Mitgliedsakte verschiebt? Meine Versuche landen im Debugger...
on Error...
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Laufwerk & ":\Verein\Mitglieder A-Z Schriftverkehr\sonstig\" & format(Date, "YYYYMMDD") & " " & .Name & " " & Format(Mitgliedsnummer, "0000") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Ich möchte vermeiden, den Herrn Müller wieder in "Mueller" umzubenennen; das sieht in Serienbriefen immer wie EDV aus den 80ern aus...
Ganz herzlichen Dank im Voraus
Gert