Makro funktioniert, aber ..
Markus
das folgende Makro habe ich in einem Add-In eingebaut.
Es ermittelt den Pfad der aktuellen Datei und trägt diesen unter:
Extras, Optionen, Allgemein, Standardspeicherort ein, aber ...
Wenn ich eine Datei über "Datei öffnen" öffen will, öffnet Excel den letzten eingetragenen Pfad,
statt den neu erstellten durch mein Makro.
Schliesse ich Excel und öffne es neu, das funktioniert es richtig.
Muss da noch eine Aktualisierung gemacht werden.
Danke für einen Tipp.
Markus
Sub Pfad_festlegen()
Application.DisplayStatusBar = True
Ordner = ActiveWorkbook.Path
Application.StatusBar = "Neuer Pfad für Excel-Sheets: " & Ordner
Application.DefaultFilePath = Ordner
End Sub