Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dir Funktion aus Excel 4 Win macht Fehler im MAC

Dir Funktion aus Excel 4 Win macht Fehler im MAC
26.03.2014 19:38:33
Thomas
Hallo,
habe Probleme, ein unter Excel 2010 unter WIndows geschriebenes Makro auf einem MAC zum Laufen zu bekommen... Es soll in einem Verzeichnis geprüft werden, ob die Datei
"2014.03.xlsm" existiert.
"Produktionsdatei" = aktuelles Datum
Mit ChDir wechsele ich jeweils im entsprechenden Syntax (WIN oder MAC korrekt in das Verzeichnis "WINPfad" oder "APPLEPfad"
WINDOWS VARIANTE (OK):
If Dir(WINPfad, Format(Produktionsdatei, "yyyy.mm") & ".xlsm") = "" Then
MsgBox "Datei fehlt!", vbExclamation
Exit Sub
End If
APPLE "VERSUCH" (nicht OK):
If Dir(APPLEPfad, MacID(Format(Produktionsdatei, "yyyy.mm")) & ".xlsm") = "" Then
MsgBox "Datei fehlt!", vbExclamation
Exit Sub
End If
Aplle erkennt NIEMALS das Vorhandensein der Datei!!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dir Funktion aus Excel 4 Win macht Fehler im MAC
26.03.2014 22:37:16
KlausF
Hallo Thomas,
so sollte es unter dem Mac klappen:
https://www.herber.de/bbs/user/89868.xls
Alternativ könntest Du auch über Applescript in VBA gehen:
Sub CeckIfFileExistsOnMac()
Dim Filestr As String
Dim scriptToRun As String
Dim Result As Boolean
Filestr = "Mac:Users:Klaus:Documents:2014.03.xlsm"  'Pfad anpassen
scriptToRun = scriptToRun & "tell application " & Chr(34) & "Finder" & Chr(34) & Chr(13)
scriptToRun = scriptToRun & "exists file " & Chr(34) & Filestr & Chr(34) & Chr(13)
scriptToRun = scriptToRun & "end tell" & Chr(13)
Result = MacScript(scriptToRun)
MsgBox Result
End Sub
Gibt den Wert WAHR oder FALSCH zurück
Gruß
Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige