Ich möchte eine Datei Abspeichern. Dazu benutze ich folgende Sub:
Tagesdatum = Application.Text(Now(), "yyyy.mm.dd")
Sicherung = Tagesdatum & "-Name.XLS"
Verzeichnis = Application.GetSaveAsFilename(Sicherung)
If Verzeichnis <> False Then
On Error Resume Next
ActiveWorkbook.SaveAs Verzeichnis
Else
Exit Sub
End If
Mein Problem ist jetzt, wenn ich die Abfrage mit "Nein" bestätige, sollte eigentlich wieder das Fenster "Speichern unter" erscheinen um einen anderen Namen einzugeben. Was muss ich ändern?
Vielen Dank für jeden jeden Tip!
Liebe Grüsse Katja