Guten Morgen liebe Gemeinde
Ich habe folgendes Problem:
Ich bin im Unternehmen für die Erstellung einer Kalkulationsvorlage in Excel zuständig.
Dies klappt auch alles so wie ich es möchte (auch durch eure Unterstützung ;-) ).
Nun ist alles soweit fertig und ich habe es getestet.
Dabei ist mir aufgefallen, dass wenn man speichern unter drückt man die Basisdatei (Masterdatei) auch unter einem anderen Namen speichern kann (also klassisches Speichern Unter).
Nun könnte ich die Masterdatei als Vorlage speichern um ein Überschreiben der Datei zu verhindern.
Das möchte ich nun aber etwas eleganter machen.
Ist es möglich wenn der Befehl/Button Speichern Unter gedrückt wird, das dann die UserForm uf_kopfdaten geöffnet wird? in dieser habe ich dann eine Speichern unter Routine in VBA programmiert welche einen definierten Namen als Speichername ausgibt.
'Speichern Unter
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\temp\" 'Verzeichnis-Vorschlag
Datei = Format(Date, "YYYY.MM.DD") & " " & ThisWorkbook.Sheets("Kopfdaten").Range("b4") & " " & ThisWorkbook.Sheets("Kopfdaten").Range("b3") & " AF" & ThisWorkbook.Sheets("Kopfdaten").Range("b5") & " Rev." & ThisWorkbook.Sheets("Kopfdaten").Range("d1") & " " & ".xlsm" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern gedrückt.