mit dem Makro (siehe unten) offne ich Windows Explorer in gleichem Verzeichnis, wo die geöffnete Datei liegt.
Was muss ich bitte im Code anpassen, damit sich Windows Explorer im Verzeichnis "Daten" (wenn vorhanden liegt es immer im Verzeichnis davor) öffnet?
Beispiel Ablage der XLS-Datei: D:\PRJ\2014\Planung\Test.xls
Windows Explorer soll hier geöffnet werden: D:\PRJ\2014\Daten\Planung\
Sub Explorer()
Dim strPath As String
strPath = ActiveWorkbook.Path
If strPath = "" Then Exit Sub
Shell Environ("WinDir") & "\explorer.exe /n,/e," & strPath, vbNormalFocus
End Sub
Viele Grüße,Selma