Ich habe das untere Makro, welches aber leider nicht so funktioniert, wie es soll. Mein Wunsch war es, dass der Benutzer der Datei beim Schließen gefragt wird, ob die gemachten Daten sortiert und alle Veränderungen gespeichert werden sollen, oder eben nicht. Dazu soll die Frage nach dem Speichern automatisch beim Beenden der Datei erscheinen. Eigentlich funktioniert alles, bis auf die Tatsache, dass, obwohl ich auf >Nein< klicke, das Makro trotzdem alle Veränderungen speichert und nicht die Datei ohne Speichern beendet.
Hier das Makro:
Sub auto_close()
Dim a As String
a = MsgBox("Wollen Sie die gemachten Eingaben speichern" & Chr(10) & "und alle Daten vor dem Beenden sortieren?", vbYesNo, "")
If a = vbYesNo Then
MsgBox "Die Datei wird ohne Veränderungen geschlossen."
Workbooks("Datenbank.xls").Close SaveChanges:=False
Else
Range("A3:AW152").Select
Range("AW152").Activate
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Range("H1").Select
ActiveWorkbook.Save
MsgBox "Die Daten wurden sortiert, die Datei wird geschlossen."
Workbooks("Datenbank.xls").Close SaveChanges:=True
End If
End Sub
Ich hoffe, jemand weiß, was ich falsch mache.
Vorab schon vielen Dank,
Erdogan