Ich möchte per Macro 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
Wegem "On Error Resume Next" wird das Programm beendet. 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