VBA Excel PDF Datei speichern

AMallorca

Erdapfel
Registriert
08.11.22
Beiträge
1
Hallo zusammen,
kann mir bitte jemand bei einem Problem helfen.
Ich möchte aus der der Windowsumgebung (ich nutze MacBookPro Ventura / Windows11 Office 365 über Parallels).
1. eine PDF einer Tabelle auf dem Mac Desktop speichern in dem Ordner "PDF_Auswertung" speichern und dann
2. die Datei "Anwesenheitsliste" im Order "Anwesenheit speichern"
auf C (Desktop) funktioniert der Code.
Nach der Umstellung auf den Mac bekomme ich einen Laufzeitfehler
Ich finde leider den Fehler nicht, was ich umstellen muss.
Danke und Viele Grüße

Andreas

Pfad auf dem Mac. /Users/hamburg/Desktop/Anwesenheitsliste
"MacintoshHD-Benutzer*in-hamburg-Schreibtisch-Anwesenheitsliste"

Sub Speichern()
ThisWorkbook.SaveAs "/Users/hamburg/Desktop/Anwesenheit/" & "Anwesenheitsliste_" _
& Format(Now, "DD.MM.YYYY_hh.mm.ss") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled _
, CreateBackup:=False
MsgBox ("Datei wurde erfolgreich gespeichert")
End Sub
------------------------------------------------------------------------------------

Pfad auf dem Mac. /Users/hamburg/Desktop/PDF_Auswertung
"MacintoshHD-Benutzer*in-hamburg-Schreibtisch-PDF_Auswertung"

Sub PdfSpeichernAuswertung()

'Querformat einstellen'

ActiveSheet.PageSetup.Orientation = 2

'PDF im bestimten Bereich (Seite) speichern'
Range("C1:R30").Select

Dim FName As String
FName = "/Users/hamburg/Desktop/PDF_Auswertung/" & _
Format(Now, "DD.MM.YYYY_hh.mm.ss") & "_" & Cells(5, 8).Value & Range("H3") & Range("J3") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, FName
MsgBox ("PDF wurde erfolgreich gespeichert")

End Sub