Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Message-Box überspringen

Message-Box überspringen
18.07.2004 19:51:33
Serge
Ich habe ein Makro geschrieben das andere Makros (Run) aufruft.
Diese anderen Runs enthalten aber Message-Box die ich beim Sammelmakro überspringen möchte.
Wie lautet die Anweisung?
Apllication.........! oder so
Danke Serge

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Message-Box überspringen
18.07.2004 19:58:35
JensD
Hi
Mach es mit einer Hilfvariable.
Dim SammelVar As Boolean

Sub SammmelMakro()
SammelVar = True
Call Makro1
Call makro2
SammelVar = False
End Sub



Sub Makro1()
If SammelVar = False Then MsgBox "Hallo, Makro 1"
End Sub



Sub makro2()
If SammelVar = False Then MsgBox "Hallo, Makro 2"
End Sub

Gruß Jens
AW: Message-Box überspringen
18.07.2004 20:31:00
Matthias
Hallo Serge, hallo Jens,
alternativ ohne globale Variable, mit optionalem Argument:

Sub SammmelMakro()
Makro1 True
Makro2 True
End Sub



Sub Makro1(Optional NoMsg As Boolean)
If IsMissing(NoMsg) Then NoMsg = False
If Not NoMsg Then MsgBox "Hallo, Makro 1"
End Sub



Sub Makro2(Optional NoMsg As Boolean)
If IsMissing(NoMsg) Then NoMsg = False
If Not NoMsg Then MsgBox "Hallo, Makro 2"
End Sub

Gruß Matthias
Anzeige
AW: Message-Box überspringen
18.07.2004 21:33:29
JensD
Auch eine Lösung, geht noch ein stück kürzer

Sub Makro1(Optional NoMsg As Boolean)
If IsMissing(NoMsg) Then MsgBox "Hallo, Makro 1"
End Sub

Gruß Jens
AW: Message-Box überspringen
18.07.2004 20:00:20
Josef
Hallo Serge!
Eine MessageBox lässt sich nicht überspringen!
Gruß Sepp

Links zu Excel-Dialogen

MessageBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige