Ich habe diese Sub eingefügt, die ich auch hier auf herber.de gefunden habe. Es geht darum, ein File zu speichern, dessen Namen das aktuelle Datum ist, also z.B. xyz09-23-02, aber den Pfad soll man im "Speichern unter Fenster" selber angeben können.
Sub DateiUnterTagesdatumAbspeichern()
tagesdatum = Application.Text(Now(), "mm-dd-yy")
sicherung = "Bxyz" & tagesdatum & ".XLS"
strVerzeichnis = Application.GetSaveAsFilename(sicherung)
ActiveWorkbook.SaveCopyAs strVerzeichnis
End Sub
Nun habe ich eine Frage: Wenn ich im "Speicher unter Fenster" auf Abbrechen drücke, wieso speichert Excel ein File names False ohne Endung (also ohne .xls) in das Laufwerk d: und wie kann ich das verhindern? Ich danke schon im vorraus für wertvolle Tipps!
Katja