Moin Zusammen,
im Rahmen meines Studium soll ich mit Hilfe eines Makros eine PDF speichern, welche fortlaufend nummeriert wird. Dabei wird die PDF unter Vorgaben aus Excel und aktuellem Datum abgespeichert.
Da es sich um ein Prüfprotokoll handelt, soll ein Überspeichern vermieden werden. Dabei soll das erste Protokoll ohne Nummerierung abgespeichert werden. Kommt es zu einem weiteren Protokoll, soll dieses mit dem Zusatz "_01.pdf" abgespeichert werden. Darauf folgt dann "_02.pdf", "_03.pdf", etc.
Dim datei As String, Pfad As String, i As Integer
Pfad = "C:\Users\User\Desktop\" & Range("B4").Value & "_" & Range("B7").Value & "_" & Format(Date, "YYMMDD")
i = 0
datei = Dir("Pfad * .pdf")
Do Until datei = ""
i = i + 1
datei = Dir()
Loop
If i = 0 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & "_" & Format(i, "00") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Problem:
Die PDF wird durchgehend überschrieben.
Ich habe schon einiges in Excel 13 ausprobiert, da ich aber noch nie richtig mit VBA gearbeitet habe und meine Grundlagen zur C++ Programmierung schon etwas eingestaubt sind, bin ich langsam am verzweifeln. Kann mir jemand helfen ?
Vielen Dank im Vorhinaus :)