Office: VBA auf MAC

Hallo zusammen,

ich habe keine große Ahnung von VBA.
Aber ich muss eine Excel Dokument auf dem Mac nutzen können.
Jetzt habe ich gelesen das es die Möglichkeit gibt das Macro so zu schreiben das es sowohl für Mac wie auch für Windows geht.
Kann mir jemand bitte helfen das ganze so umzuschreiben das es auf dem MAC geht?
Danke im Voraus


Sub BlattSpeichern()

Application.ScreenUpdating = False
Worksheets("Fertig").Copy
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
'Pfad anpassen "Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\???????\
ActiveWorkbook.SaveAs Filename:="Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\" & neuName & ".awl", FileFormat:=xlTextPrinter, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Pfad anpassen "Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\???????\
MsgBox " Die Datei wurde unter Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\" & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
ActiveWorkbook.Close False
End Sub

:)

 

Moin Edgar,

welche Excel-Mac Version benutzt du denn und welcher Fehler tritt bei deinem CODE wo auf?

 

Hallo Name,

das, was bei dem Code aus meiner schneller Übersicht zu ändern wäre, wären die Pfade und die grundsätzlich andere Schreibweise von Pfaden beim Mac.

Schau mal bei Ron de Bruin vorbei.

Grüße
EarlFred

 

Hi,

EarlFred hat recht. Ein OS X kann nichts mit Laufwerskbustaben anfangen.
Dort sieht ein Pfad eher so aus, /user/mnt/......

willst du das es auf beiden Funktioniert, dann solltest du abfragen welches System verwendet wird und dann entsprechend das speichern anpassen.

Code:

VG
JD

 

Hallo JD,

der Mac kennt als Pfadtrenner (auch) "/"? Ich kenne nur ":".

Wie man prüft, ob Excel auf Windows oder Mac läuft, ist auch auf der von mir verlinkten Seite zu finden. Ron de Bruin hat wirklich viele und gute Informationen und Beispiele zusammengetragen.

Grüße
EarlFred

 

Hi Earl,

ja warum nicht, ist ja FreeBsd basierend und die Linux und Unix Derivate kennen auch "/". Weiß nicht was Excel da macht, aber der de Bruin hat es mit ":" gemacht, müssten man mal testen. Es könnte sein das "/" als escape-Zeichen dient, dann müssten man "//" schreiben. Hab meinen Mac gerade leider nicht griffbereit, sonst hätte ich es gerne mal getestet.

 

Hallo zusammen,

ich nutze Mac OS 10.8.3 mit Excel 2011

Der Fehler ist auf jeden fall der Pfad.

 

Leier bekomme ich Fehler beim Kompilieren
Die variante mit dem if, kann er nichts mit dem Windows anfangen.
Ich habe es mal etwa versucht anzupassen, und statt auf einem Netzlaufwerk direkt auf der Platte. Aber immer noch Fehler. Sieht jemand den Fehler?

Sub BlattSpeichern()

Application.ScreenUpdating = False
Worksheets("Fertig").Copy
Dim neuName As String
Dim Pfad As String


Pfad = "Users:EdgarPaulo:Arbeitsordner:2 - Projekte:1301 - FFT - BR217:Erzeugte Ventil DB"
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
'Pfad anpassen "Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\???????\
ActiveWorkbook.SaveAs Filename:=Pfad & neuName & ".awl", FileFormat:=xlTextPrinter, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Pfad anpassen "Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\???????\
MsgBox " Die Datei wurde unter Pfad & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
ActiveWorkbook.Close False
End Sub

 

Hallo Name?,

Tippfehler, fehlende Sonderzeichen (Anführungszeichen, Doppelpunkte). Man kann Code auch etwas ansehnlicher formatieren - dann wird es auch für Dich leichter.

Ungetestet
Code:

Für die Zukunft: Folgende Angaben sind bei Fehlern notwendig:
1. Angabe der Zeile, in der der Fehler auftritt
2. Fehlernummer und -beschreibung

Grüße
EarlFred

 

EarlFred, du hättest ihm noch sagen sollen, dass dieser Code nur für den Mac ist *wink.gif*

 

Hallo EarlFred
danke für den Code! Er funktioniert.

Ich habe ihn noch etwas modifiziert bezüglich Windows tauglich
Jedoch hänge ich an 3 Punkten.

1. Geht er bei Windows in den Debug modus und bleibt mit dem Pfeil bei "CreateBackup:=False" Stehen!
2. Hätte ich gerne auch die Funktion in Windows das er auf den Übergeorneten Ordner zugreift
3. Wenn Ordner nicht vorhanden im Mac bzw Windows dann Ordner erzeugen

Das ist der Aktuelle Code


Function isMac() As Boolean
isMac = False
If InStr(Application.OperatingSystem, "Macintosh") Then
isMac = True
End If
End Function
Sub BlattSpeichern()

Dim neuName As String
Dim Pfad As String

Application.ScreenUpdating = False

Worksheets("Fertig").Copy

If (isMac()) Then
'Pfad = "Users:EdgarPaulo:Arbeitsordner:2 - Projekte:1301 - FFT - BR217:Erzeugte Ventil DB:"
Pfad = ThisWorkbook.Path & ":Erzeugte Ventil DB:"
Else
Pfad = "Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\"
End If


neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")

If neuName "" Then
ActiveWorkbook.SaveAs _
Filename:=Pfad & neuName & ".awl", _
FileFormat:=xlTextPrinter, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

End If

If (isMac()) Then
MsgBox " Die Datei wurde unter Pfad " & Pfad & neuName & ".awl" & " gespeichert !", vbInformation
Else
MsgBox "Z:\60 - REUSE_S7-Kopf\Programmvorbereitungen\Erzeugte Ventil DB\"
End If

Application.ScreenUpdating = True
ActiveWorkbook.Close False
End Sub


Danke

 

Hallo Name?

ich bin sicher, Du schaffst das. Viel Erfolg!

Grüße
EarlFred

 

Hallo EarlFred,

ich werde gerne berichten, wenn ich es schaffen sollte.
Ich danke dir jedenfalls für deine Große Hilfe

Gruß

Edgar

 

Moin
ich bräuchte da nochmal unterstützung bitte.
Ich will Prüfen ob der Ordner vorhanden ist und wenn nicht den Ordner erzeugen. Aber er bringt einen Fehler in der Dir Zeile!

Danke im Voraus
Gruß
Edgar

 

Hi,

also list du hier rondebruin

Dir und MkDir sind sehr wahrscheinlich Windows befehle und funktionieren deshalb nicht auf einen Mac. Du musst wieder unterscheiden, welches System und dann entsprechenden die Befehle ändern.
Aus den vorherigen Sachen und dem Link solltest du es schnell lösen können.

VG
JD