Verzeichnis der aktuellen Arbeitsmappe feststellen

Wenn Sie in einem Makro feststellen möchten, in welchem Verzeichnis die aktive Arbeitsmappe gespeichert wird, können Sie die Eigenschaft Path verwenden. Sie gibt den Pfad zurück, unter dem eine Datei zu finden ist.

Um den Pfad der aktuellen Arbeitsmappe zu bestimmen, wenden Sie die Eigenschaft auf das Objekt ActiveWorkbook an. Das folgende Makro zeigt, wie das in der Praxis aussieht:

Sub ZeigeSpeicherverzeichnis()
Dim Verzeichnis As String
Verzeichnis = ActiveWorkbook.Path
If Verzeichnis <> "" Then
 MsgBox "Die aktuelle Arbeitsmappe wird in folgendem " & _
  "Verzeichnis gespeichert: " & vbLf & Verzeichnis
Else
 MsgBox "Die aktuelle Arbeitsmappe wurde noch nicht " & _
  "gespeichert."
End If
End Sub

Nach dem Start zeigt das Makro den Pfad der aktiven Arbeitsmappe in einem Fenster an. Die folgende Arbeitsmappe zeigt, wie das Ergebnis aussehen kann:

Falls die Arbeitsmappe noch nicht gespeichert wurde, liefert die Eigenschaft Path einen leeren Text zurück. In diesem Fall antwortet das Makro mit einem anderen Hinweisfenster:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html