Probleme mit Makro
23.06.2004 09:11:49
Andreas
ich habe ein Makro entwickelt, dass ein Tabellenblatt speichert und beendet, wenn ich einen Button drücke. Diesen Code habe ich dann auch für weitere andere Tabellenblätter genommen, leider funktioniert er dort nicht. Nur in diesem einem, in dem ich das MAkro aufgezeichnet habe. Ich schicke msal den Code mit und hoffe ihr könnt mir helfen. Vielen Dank im Voraus.
MFG Andreas
Private Sub CommandButton4_Click()
' Zurücksetzen von Farbe, Größe und Dicke in den Ausgangszustand
Sheets("P3").Range("A5:J103").Select
Selection.Font.Bold = True
Selection.Font.Bold = False
Selection.Font.ColorIndex = 0
Selection.Font.Size = 10
Sheets("P3").Select
Sheets("P3").Cells(65536, 1).End(xlUp).Offset(1, 0).Select
'Beenden Makro
' Abfrage ob Excel wirklich beendet werden soll (MSGBOX)
' Bei Bestätigung speichert das Programm und beendet Excel
' Makro am 11.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Active.Sheet
iMsgresz = MsgBox("Wollen Sie wirklich Speichern und Beenden?", vbYesNoCancel, "")
If iMsgresz = vbYes Then
ActiveWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
Else
iMsgresz = vbNo Or vbCancel
iMsgresz = Quit
End If
End Sub