Ich versuche schon seit geraumer Zeit eine Sub zu erstellen, die mir ermöglicht, den Pfad der Mustervorlage der geöffneten Datei zu ermitteln. Vieleicht hat ja einer von Euch eine tolle Idee.
Danke
Sub DieserPfad()
Dim Pfad$, Datei$
Pfad = ThisWorkbook.FullName
Datei = ThisWorkbook.Name
Pfad = Left(Pfad, Len(Pfad) - Len(Datei))
End Sub