Erweiterung Makro um Revisionsnr.
13.07.2020 11:13:51
Dörte
ich kranke an einem Makro, was bis vor Hinzufügen einer Revisionsnummer funktionierte und nun an unerwarteter Stelle nicht funktioniert.
In der Arbeitsmappe gibt es einen Master, einee Review History (je 1 Arbeitsblatt) und über 60 weitere Arbeitsblätter und ich habe ein Makro, was jedes Arbeitsblatt (außer dem Master) unter definiertem Namen (in einer Zelle) unter einem bestimmten Pfad (in einer anderen Zelle definiert) im Netzwerk als pdf ablegt. Wenn der Zielordner nicht existiert, wird er erstellt.
Nun habe ich jedem Blatt und Dateinamen eine Revisionsnummer zugeteilt in Form von .01.01 und mein Makro funktioniert nicht mehr.
Die Fehlermeldung erscheint in dem Block, wo es die pdf-Files erstellen soll:
Sub PrintAndSavePdf()
Dim strFileName As String
Dim strPath As String
Dim ws As Worksheet
Dim strPathSplit As Variant
Dim myTempPath As String
For Each ws In ActiveWorkbook.Worksheets
If ws.Name "Master" Then
strFileName = ws.Range("I2") & ".pdf"
strPath = ws.Range("I1")
myTempPath = ""
If Dir(strPath, vbDirectory) = "" Then
strPathSplit = Split(strPath, "\\")
If UBound(strPathSplit) > 0 Then
myTempPath = "\\"
strPathSplit = Split(strPathSplit(1), "\")
End If
myTempPath = myTempPath & strPathSplit(0) & "\"
For i = 1 To UBound(strPathSplit)
myTempPath = myTempPath & strPathSplit(i) & "\"
If Dir(myTempPath, vbDirectory) = "" Then
MkDir (myTempPath)
End If
Next i
End If
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPath & strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Next ws
End Sub
Kann mir jemand helfen, das Makro wieder zum Laufen zu bringen?
Vielen Dank im Voraus!