Makro läuft nicht unter MS Office 16 für Mac

Sub Check_Folder_And_Save() Dim myFSO As Object, f As Object Dim SaveFolder As String, myFileName As String, myLW As String Set myFSO = CreateObject("Scripting.FileSystemObject") SaveFolder = "Mein Speicherordner" ActiveSheet.Copy myFileName = ActiveSheet.Name & ".xlsx" myLW = Left(SaveFolder, 2) ChDrive myLW If myFSO.folderexists(SaveFolder) Then ActiveWorkbook.SaveAs Filename:=SaveFolder & "\" & myFileName MsgBox " Aktuelle Rechnung gespeichert in " & SaveFolder & "" Else MkDir SaveFolder ActiveWorkbook.SaveAs Filename:=SaveFolder & "\" & myFileName MsgBox "Neuer Ordner " & SaveFolder & " erstellt und aktuelle Rechnung darin gespeichert" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
um das Makro zweigleisig zu machen muss das Betriebssystem geprüft werden.
Den Speicherpfad kannst du über den Computernamen steuern oder evtl auch eine andere Environ-Variable.
Wie bereits von den anderen Helfern erwähnt: Das File-Schripting-System funktioniert nicht auf dem Mac.
Als Erstzt kannst du mit Dir arbeiten, aber auch diese Anweisung funktioniert auf dem Mac anders. Ich hab dann noch etwas auf den Mac zugeschnittenes gefunden, kann es aber mangels Mac nicht testen.
Nachfolgend dein Makro wie es auf beiden Betriebssystemen funktionieren sollte - Mit ? beim Mac.
Gruß
Franz

Sub Check_Folder_And_Save()
Dim myFSO As Object, f As Object
Dim SaveFolder As String, myFileName As String, myLW As String
Dim strComputerName As String
Dim strOS As String
On Error GoTo Fehler
strComputerName = VBA.Environ("Computername")
strOS = VBA.Environ("OS")                       'Betriebssystem
'Speicherpfad abhängig vom Computernamen
Select Case strComputerName
Case "Mein PC"          'anpassen!
SaveFolder = "Mein Speicherordner PC"
Case "Mein Notebook"    'anpassen
SaveFolder = "Mein Speicherordner Notebook"
Case Else
SaveFolder = "C:\Users\Public\Test"
End Select
'Betriebssystem prüfen
If InStr(strOS, "Windows") > 0 Then
'Windows.Betriebssystem
Set myFSO = CreateObject("Scripting.FileSystemObject")
ActiveSheet.Copy
myFileName = ActiveSheet.Name & ".xlsx"
myLW = Left(SaveFolder, 2)
ChDrive myLW
If myFSO.folderexists(SaveFolder) Then
ActiveWorkbook.SaveAs Filename:=SaveFolder & "\" & myFileName, FileFormat:=51
MsgBox " Aktuelle Rechnung gespeichert in " & SaveFolder & ""
Else
MkDir SaveFolder
ActiveWorkbook.SaveAs Filename:=SaveFolder & "\" & myFileName, FileFormat:=51
MsgBox "Neuer Ordner " & SaveFolder & " erstellt und aktuelle Rechnung darin  _
gespeichert"
End If
Set myFSO = Nothing
Else
'Mac Betriebssystem
ActiveSheet.Copy
myFileName = ActiveSheet.Name & ".xlsx"
myLW = Left(SaveFolder, 2)  'mac: ?
ChDrive myLW                'mac: ?
'Note: This macro uses the FileOrFolderExistsOnMac function.
If FileOrFolderExistsOnMac(SaveFolder) = True Then
ActiveWorkbook.SaveAs Filename:=SaveFolder & Application.PathSeparator _
& myFileName, FileFormat:=51
MsgBox " Aktuelle Rechnung gespeichert in " & SaveFolder & ""
Else
MkDir SaveFolder    'Bei mac ggf. anpassen
ActiveWorkbook.SaveAs Filename:=SaveFolder & Application.PathSeparator _
& myFileName, FileFormat:=51
MsgBox "Neuer Ordner " & SaveFolder & " erstellt und aktuelle Rechnung darin  _
gespeichert"
End If
End If
Fehler:
With Err
Select Case .Number
Case 0 'Alles ok
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description, _
vbOKOnly, "Fehler Makro: Check_Folder_And_Save"
End Select
End With
End Sub
Function FileOrFolderExistsOnMac(FileOrFolderstr As String) As Boolean
'Ron de Bruin : 26-June-2015
'Function to test whether a file or folder exist on a Mac in office 2011 and up
'Uses AppleScript to avoid the problem with long names in Office 2011,
'limit is max 32 characters including the extension in 2011.
Dim ScriptToCheckFileFolder As String
Dim TestStr As String
If Val(Application.Version)

Hallo Franz,
grundsätzlich scheint es auf dem MacBook zu laufen, aber irgendwie hakt es noch mit dem Speicherpfad. Ich habe einiges ausprobiert, hänge aber immer noch daran. Hier mal der Auszug code, auf den es meiner Meinung nach ankommt. Ich weiß nicht wo der Fehler liegt.
'Speicherpfad abhängig vom Computernamen
Select Case strComputerName
Case "hp"
SaveFolder = "G:\Uli macht Licht\Rechnungen\Rechnungsausgang"
Case "michels MacBook Pro"
SaveFolder = "/Users/michel/UmL/Rechnungen/Rechnungsausgang"
Case Else
SaveFolder = "C:\Users\Public\Test"
End Select
Auch verstehe ich nicht, was die Zeilen
Case Else
SaveFolder ="C:\Users\Public\Test"
bedeuten sollen? Die zwei Speicherorte werden doch schon darüber benannt.
DANKE schonmal

Beliebteste Forumthreads (12 Monate)

Makro läuft nicht unter MS Office 16 für Mac

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread