Untenstehender Prozess funktioniert:
Modul1
Sub DruckenUndPDF()
'
' DruckenUndPDF Makro
' Druckt Rechnung aus, erstellt ein PDF und erstellt eine EMail
'
' Tastenkombination: Strg+r
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.Run "'Teilnehmerliste-Handwerkermarkt_2024.xlsm'!PDFundSenden"

End Sub
Modul2
Sub PDFundSenden()
Dim strFilePDF As String
Dim Outlook As Object
Dim OutlookMailItem As Object

Set Outlook = CreateObject("outlook.application")
Set OutlookMailItem = Outlook.CreateItem(0)

strFilePDF = "C:\Users\info\Dropbox\HWM Zug\Rechnungen Bearbeitungsgebühr\2024\" & Range("E16").Text & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePDF

With OutlookMailItem
.to = Range("G13")
.Subject = Range("E16")
.Body = Range("B11") & vbLf & vbLf & "Die Rechnung ist als PDF angehängt." & vbLf & vbLf & "Mit freundlichen Grüssen" & vbLf & vbLf & "Zuger Handwerkermarkt" & vbLf & "Esther Enzler"
.Attachments.Add strFilePDF
'.send
.Display
End With

Set Outlook = Nothing
Set OutlookMailItem = Nothing
End Sub

Die Kassierin sollte dies auch auf ihrem Apple ausführen können und das PDF in denselben Ordner auf Dropbox ablegen können.
Wie muss ich vorgehen, damit beide Personen dies nützen können?
Herzlichen Dank für die Hilfe
Hans-Ueli