Speichern unter als PDF mit Zähler gleichen Namen
08.05.2017 20:35:11
Johann
Ich komme leider mit meinem Code zum Speichern als PDF mit
Prüfung auf gleichen Dateinamen nicht weiter.
Folgender Problemcode:
Sub Speichern_unter_als_PDF()
Dim varFilename As Variant
Dim Dateiname As String
Dim Zähler As Long
Do
Zähler = Zähler +1
Dateiname =_
Range("E24").Value & Format(Date, "_ddmmyyyy_") & Range("I55").Value & Zähler
Loop Until Dir(Dateiname) = ""
varFilename = Aplication.GetSaveAsFilename(_
InitialFileName:=Dateiname, FileFilter:"PDF(*.pdf),*.pdf", _
Title:"als PDF speichern")
If varFilename False Then 'hier ist mein Problem denke ich
ActiveWorkbook.Worksheets("Erfassung").ExportAsFixedFormat (xlTypePDF), _
Filename:=varFilename, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End Sub
Speichern unter dialog öffnet sich
PDF ist eingestellt
Dateiname ist Richtig
nur der Zähler ist immer die 1
Bitte um Hilfe und Danke Herzlichst für eure mühe.