Hallo liebe Community,

Da dieses Forum bisher alle meine Probleme gelöst hat, hoffe ich, dass mir vielleicht auch dieses Mal jemand weiterhelfen kann :D Ich habe dieses Thema schon einmal eröffnet und habe nach mehrmaligem probieren keine Lösung gefunden, vielleicht klappt es jetzt :)

Ich habe ein Makro, dass einen bestimmten Zellbereich drucken soll. Dabei soll man den Speicherpfad selbst wählen können. Das klappt auch auf meinem Windowsrechner.
Ich habe nun einen Kollegen, welcher meine Excel ebenfalls nutzen muss, allerdings ein Mac Book hat.

Dabei kommt folgende Fehlermeldung:
"Fehler der Methode "GetSaveAsFilename" des Objekts "_Application" "

Hier mein Code:

Sub PDF_Erstellen_Eingabe_Alles()
'Benutzer wählt Pfad und Name aus
Dim FullPath As Variant
FullPath = Application.GetSaveAsFilename(FileFilter:="PDF-Dateien (*.pdf),*.pdf")

If FullPath > False Then

'Tabelleblatt Format anpassen
Tabelle1.PageSetup.Orientation = xlLandscape

'PDF erstellen
Tabelle1.Range("A1:AG79").ExportAsFixedFormat xlTypePDF, Filename:=FullPath, Openafterpublish:=True

End If

End Sub