VBA Button "speichen" / "speichen unter"
09.06.2005 10:41:24
last-unicorn
bin in VBA absolut unbedarft und hoffe, jemand von euch kann mir helfen...
Und zwar möchte ich zum einen einen Button integrieren, der mir die aktuelle Version mit den vorgenommenen Änderungen meiner Excel Datei einfach speichert, d.h. die vorherige Version überschreibt.
Das zweite betrifft einen VBA Code zu "Datei speichern unter". Soll heißen: die Ausgangsdatei bleibt bestehen und die Datei in der Änderungen vorgenommen werden wird als neue Datei gespeichert.
Nach langem Stöbern habe ich folgenden Code gefunden:
Sub DateiInNeueMappeSpeichern_Click()
Dateiname = Application.GetSaveAsFilename("Bauzeitenplan_" & ".xls")
ActiveWorkbook.SaveAs (Dateiname)
End Sub
Problem dabei: Falls ich die Datei nicht speichere und auf Abbrechen gehe, wird dennoch eine Datei "FALSE.xls" gespeichert!?!?
Außerdem wird mir als Speicherort das voreingestellte Verzeichnis angeboten. Ich hätte aber gerne das aktuelle Verzeichnis...