Office: speichern unter per vba aufrufen

Hallo zusammen,

in meiner Arbeitsmappe ist das Excel Interface ausgeblendet.
Da die Datei nur als Vorlage dient, möchte ich über einen Button ins "speichern unter" Menü wechseln, wo sich dann jeder seinen Speicherort aussuchen kann.
Wie kann ich das per VBA machen?

Gruß
Honk

 

Hi,

versuche es mal nach diesem Prinzip:

Code:

    Dim strFilter As String
    Dim varSpeichern As Variant
    strFilter = "Excel Files (*.xlsm), *.xlsm"
    varSpeichern = Application.GetSaveAsFilename("", strFilter)

---

 

Hi,

Das ist schon mal Fehler Nummer 1. Wieso willst du den User "bevormunden" und ihm die Möglichkeit nehmen, vernünftig zu arbeiten?

Dann speichere sie doch einfach als Vorlage und du brauchst dich um so einen Schei* nicht zu kümmern.

 

Guten Morgen,

Danke für den Code.
Leider wird bei mir das Speichern nicht übernommen.
Ich gebe einen Speicherort an und klicke auf speichern, das Fenster schließt sich wieder und das war es dann.
Wenn ich die Datei schließen möchte, werde ich gefragt ob ich die Änderung (in der Originaldatei!) speichern möchte.
Habe ich da irgend etwas übersehen oder falsch verstanden?

Gruß
Honk

 

Würdest du die Hilfe zu Application.GetSaveAsFilename ansehen, dann würdest du wissen, was da passiert...
Im Übrigen bin ich immer noch der Meinung, dass du auf dem Holzweg bist. Nochmals: speichere deine Vorlagen-Datei einfach als Vorlage (*.xltx bzw. *.xltm) und du musst du dich gar nicht darum kümmern.

 

Hi,

du hast nur geschrieben du möchtest das Menü aufrufen, damit sich jeder den Speicherort aussuchen kann - also war anzunehmen du weißt, wie der Code lautet wenn dann gespeichert werden soll.

Ergänze den Code durch folgende Zeile:

Code:

    If Not IsNumeric(varSpeichern) Then ThisWorkbook.SaveAs varSpeichern

---

 

Hallo Beverly,

vielen Dank, jetzt funktioniert es so wie ich es haben wollte.
Da ich noch sehr weit von einem Excel Profi entfernt bin, bin ich auf solche Hilfestellungen angewiesen.
Deshalb nochmal Danke.


Und hallo HKindler,
auch dir danke ich für deine ehrliche Meinung und die Hilfestellung.
Du hast natürlich vollkommen Recht, wenn du fragst warum man das Interface unbedingt ausblenden muss.
Ich erfülle damit aber eine Vorgabe meines Arbeitgebers, an die ich mich zu halten habe.
Persönlich hätte ich gerne drauf verzichtet, wäre auch weniger Arbeit gewesen.


Gruß
Honk