meine Recherchen bringen mich nicht weiter - beim Schließen diverser Dokumente sollen folgende Punkte ablaufen:
- Sicherung Kopie
- Sicherung/Überschreiben der aktiven Datei
Mein Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:= _
("MeinPfad1" & Format(Now, "yyMMdd_HH-MM") & " " & Sheets("Grundlagen").Range("I33") & ".xlsm")
Dim YesOrNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String
Dim CurrentFile As String
QuestionToMessageBox = "Soll das Dokument gespeichert werden?"
YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Save file")
If YesOrNoAnswerToMessageBox = vbNo Then
MsgBox "Dokument wurde nicht gespeichert"
Else
CurrentFile = ThisWorkbook.FullName
ActiveWorkbook.SaveAs Filename:= _
( "MeinPfad2" & Sheets("Grundlagen").Range("I33") & ".xlsm"), FileFormat:=52
End If
End Sub
Das Speichern der Kopie klappt wunderbar und fehlerfrei. Beim erneuten Speichern ist alles gut, wenn ich bestätige, dass die Datei ersetzt werden soll ebenso. Wenn ich "Nein" oder "Abbrechen" wähle, kommt der tolle Laufzeitfehler 1004. Wähle ich "Debuggen" reklamiert er mein SaveAs, trotz FileFormat (es gibt noch mehr Makros xlsm ist erforderlich). Bei den meisten Kollegen (gleiche Excel-Version) kommt die Fehlermeldung immer wenn die Datei bereits vorhanden ist.
Anmerkung: Ich verstehe die meisten Codes, kann sie aber nicht selber anlegen.
Ich hoffe, irgendein netter Mensch an einem anderen Rechner kann helfen. Dieses blöde Makro treibt mich nämlich langsam aber sicher in den Wahnsinn.
Grüße vom fledergeTier