VBA Code "Mac tauglich" machen
03.07.2019 20:43:03
Matthias
habe folgenden Code in einer Datei integriert:
Sub Speichern2()
Dim strDateiname As String
Dim objFileDialog As FileDialog
ThisWorkbook.Save
Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs)
strDateiname = "Honorarnote " & Range("G15").Text
With objFileDialog
.FilterIndex = 1
If .Show Then
Application.DisplayAlerts = False
Call .Execute
Application.DisplayAlerts = True
End If
End With
Set objFileDialog = Nothing
End Sub
Hat jemand eine Ahnung, warum der Code bei einem Mac User nicht funktioniert bzw. was ich adaptieren muss, damit es fuktioniert?
Danke und schönen Abend!