Plage mich nun schon seit geraumer Zeit mit einem Problem herum. Und zwar soll mit folgendem Code eine Backup-Datei mit dem aktuellen Datum in einem bestimmten Ordner gespeichert werden.
Sub Speichern()
x = Format(Int(Now), "0000")
y = Format(x, "DD-MM-YYYY")
ChDir "F:\Ordner1\Ordner2\Ordner3\Ordner4\Ordner5\Ordner6\"
'Als Dateiname wird "Backup " und das aktuelle Systemdatum verwendet
Dateiname = Application.GetSaveAsFilename _
("Backup " & y, "Micrsoft Excel-Dateien (*.xls),*.xls")
'Die Arbeismappe wird gespeichert
ActiveWorkbook.SaveCopyAs Filename:=Dateiname
End Sub
In einer leeren Mappe ohne jegliche sonstige Makros funktioniert das Teil ohne Probleme. Mein Problem ist nun, daß ich den Code in einer ziemlich komplexen, bereits bestehenden Mappe einfügen will. Diese Mappe hat um die 25 Module, ist also wirklich ziemlich umfangreich. Egal wo ich dort obrigen Code einfüge, immer bekomme ich diese Fehlermeldung: "Fehler beim Kompilieren: Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft". Der 1. Formatbefehl ist dabei markiert. Kann mir vielleicht irgendjemand helfen? Bin echt verzweifelt!
Danke im Voraus!
Liebe Grüße
Stefan