Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Probleme mit Makro

Probleme mit Makro
23.06.2004 09:11:49
Andreas
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit Makro
23.06.2004 09:24:43
Andi
;-) Hat sich erledigt. Fehler gefunden!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige