ich habe schon hier und im Internet recherchiert, aber keine Lösung gefunden. Sinn und Zweck der ganzen Sache ist, dass zwei Ordner erstellt werden - falls noch nicht vorhanden. Dann soll das Makro, die Arbeitsmappe speichern. Bis dahin überhaupt kein Problem. Nur am Ende fragt Excel, wenn die Datei schon vorhanden ist, ob sie überschrieben werden soll. Wenn ich auf "ja" klicke - kein Problem, aber bei "nein" oder "Abbrechen" kommt der Laufzeitfehler.
Kann man die Buttons nicht auslesen? Ich hatte schon versucht:
Frage = Application.ActiveWorkbook.SaveAs("Deckblatt" & Format(Date, "yymmdd"))
If Frage = vbYes Then ...
Leider kommt dann die Fehlermeldung "Function oder Variable erwartet" und er markiert mir ".SaveAs". Kann mir jemand helfen?
Hier der komplette Code:
OrdnerJahrNeu = Format(Date, "yyyy")
OrdnerMonatNeu = Format(Date, "yy-mm")
Dim Directory1 As String
Dim Directory2 As String
Dim Directory3 As String
Directory1 = "C:\"
Directory2 = "C:\" & OrdnerJahrNeu & "\"
Directory3 = "C:\" & OrdnerJahrNeu & "\" & OrdnerMonatNeu & "\"
If Dir(Directory1 & OrdnerJahrNeu, vbDirectory) = "" Then MkDir Directory1 & OrdnerJahrNeu
If Dir(Directory2 & OrdnerMonatNeu, vbDirectory) = "" Then MkDir Directory2 & OrdnerMonatNeu
ChDrive "C:\"
ChDir Directory3
Application.ActiveWorkbook.SaveAs ("Deckblatt" & Format(Date, "yymmdd"))
MsgBox "Das Dokument wurde unter """ & Directory3 & """ gespeichert.", vbInformation, "Speichern erfolgreich"
vielen Dank!!!