Excel Speicherdialog mit VBA

Hallo liebes Forum,

mich würde interessieren, wie ein guter Speicherdialog in Excel über ein Makro zu realisieren ist. Zur Zeit habe ich folgenden Code im Makro:

Textdatei = InputBox("Dateiname: ", „Speichern unter“, „C:\Test.txt“)
.
Dort muss ich dann den Pfad direkt über die Tastatur eingeben. Der Textdatei wurden zuvor einige Inhalte aus Zellen zugewiesen:

Dim Textdatei As String, var1 As String, var2 As String
var1 = Application.Range(„Blatt1!K22“)
var2 = Application.Range(„Blatt1!M22“)

Ich würde aber lieber einen Speicherdialog haben, wie es ihn in jedem normalen Programm gibt, also wie „speichern unter“ , dort kann man dann ja mit der Maus den Pfad auswählen.
Falls jemand eine Idee hat, wäre das ziemlich hilfreich. Vielen Dank schonmal!

Gruß Achim

Hallo Achim,

ich halte es immer so, dass ich ein Makro aufzeichne.
Den Quelltext dann in ein Unterprogramm kopieren.
Dann mit Sprungadresse ( CALL *meinmakro* ) das Makro
aus dem laufenden VBA Code aufrufen.

Vielleicht hilft die das?

Gruß Peter

Hallo liebes Forum,

Hallo!

mich würde interessieren, wie ein guter Speicherdialog in
Excel über ein Makro zu realisieren ist.

Probiere die „GetSaveAsFileName“-Methode in Verbindung mit der „SaveAs“-Methode.
Beide Methoden sind in der VBA-Hilfe ausführlich mit Beispielcode erläutert.

Viele Grüße, tester!