VBA für Windows und Mac
29.01.2004 11:43:40
stephan
Ich habe ein kleines VBA-Programm geschrieben. Hierfür konntet Ihr mir bei folgendem Makro zum öffnen einer Datei helfen. Leider funktioniert das nicht unter VBA für Macintosh.
BoOffen = False
For Each x In Workbooks
If x.Name = "Archiv.xls" Then
Workbooks("Archiv.xls").Activate
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then
Workbooks.Open FileName:="C:\Eigenorganisation\Archiv.xls"
End If
Der Mac erkennt es nicht, ob die Datei bereits geöffnet ist oder nicht. Er versucht sie nochmal zu öffnen und scheitert dann. Das erstmalige öffnen funktioniert.
Vielen Dank für Eure Hilfe.
Stephan