unter Mithilfe einiger Beiträge im Forum bastelte ich mir in den vergangenen Tagen folgendes Makro zum Speichern zusammen. Ich möchte aber statt des statischen Dateinamens das aktuelle Datum mit Zeit (aus der Zelle Q1 mit =jetzt() Funktion) speichern lassen.
Private Sub CommandButton57_Click()
Windows("220203.xls").Activate
Dim chr(13) As String
On Error Resume Next
Antwort = MsgBox("" _
+ vbCrLf + "Achtung !! " _
+ vbCrLf + "" _
+ vbCrLf + "" _
+ vbCrLf + "Willst Du Deine Änderungen speichern ?" _
+ vbCrLf + "" _
+ vbCrLf + "Wähle in diesem Fall ' JA '" _
+ vbCrLf + "" _
+ vbCrLf + "Wenn Du ohne speichern schliessen willst, wähle ' NEIN ' (alle Änderungen gehen verloren)" _
+ vbCrLf + "" _
+ vbCrLf + "Willst Du zur Anwendung zurück, wähle ' ABBRECHEN '" _
+ vbCrLf + "" _
+ vbCrLf + "" _
& "", vbExclamation + vbYesNoCancel, "Michel Kämpf")
If Antwort = vbYes Then
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\Desktop\220203.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWorkbook.Close
End If
End Sub
Weiss jemand Hilfe?
Vielen Dank einstweilen
Michel