das folgende Makro sollte eigentlich den Standardpfad in Excel ändern.
Excel macht aber nicht das was ich wünsche.
Danke für Hilfe
Markus
Option Explicit
Sub Pfad_der_offenen_ExcelDatei_speichern()
' sollte den Pfad der offenen Exel-Datei als Standard abspeichern
Dim Pfad1 As String
Pfad1 = ThisWorkbook.Path
MsgBox Pfad1
Application.DefaultFilePath = Pfad1
End Sub