habe ein kleines Problem. Unsere Buchhaltung legt unsere Aufträge an und dann sind manchmal im Dateinamen ungeschickte Zeichen wie ein Komma zB. Bei meinem Excel (2016) ist das kein Problem. Beim Excel von meinem Kollegen (2010) geht das nicht. Ich habe nun was im Internet gefunden, jedoch Zeigt es mit immer einen Fehler an. Kann mir jemand helfen bitte?
Private Sub CommandButton10_Click()
Dim Zähler As Long
Dim Dateiname As String
Do
Zähler = Zähler + 1
Dateiname = "explorer.exe """ & gblDateiPfad & "" & Sheets("Startseite").Cells(20, 7). _
Value & " Protokoll " & "chemische Zusammensetzung" & " " & Zähler & ".pdf"
Loop Until Dir(Dateiname) = ""
Sheets("chemische Zusammensetzung").Range("A1:H54").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Gruß Zoe