das folgende Makro liest mir den Dateipfad aus:
Sub auslesen()
Dim Pfad As String, DateiName As String
DateiName = ActiveWorkbook.Name
Pfad = Workbooks(DateiName).Path
Range("A1").Value = Pfad
End Sub
Allerdings brauche ich den Pfad ohne den letzten Ordner, also:
C:\Hallo\xy\z (Makro) soll sein C:\Hallo\xy. Hab im Archiv nichts brauchbares gefunden.
Kann man das realisieren und wenn ja wie?
Schonmal vielen Dank
Gruß
Chris