MSgBox Rückmeldung

Forumthread: MSgBox Rückmeldung
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: MSgBox Rückmeldung

MSgBox Rückmeldung

13.04.2006 11:43:48

Philipp

Hi ihr,
Ich habe Code der mir mehrere Fehlermeldungen bringt. Wie kann ich die erscheinenden MsgBoxen zählen?
Gruß Philipp

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MSgBox Rückmeldung

13.04.2006 12:24:51

UweD
AW: MSgBox Rückmeldung

13.04.2006 12:30:58

Gerhard
AW: MSgBox Rückmeldung

13.04.2006 12:44:14

Philipp
AW: MSgBox Rückmeldung

13.04.2006 12:44:50

Tassos

AW: MSgBox Rückmeldung

13.04.2006 12:24:51

UweD

Hallo
meinst du die Systemmeldungen, oder greifst du die Fehlermeldungen über "on error" ab und gibst selbst Msgboxen aus?
Gruß UweD

AW: MSgBox Rückmeldung

13.04.2006 12:30:58

Gerhard

Das wäre mal eine Möglichkeit:


Sub test()
Dim anzahlmsg
anzahlmsg = 0
msg = msgbox("Alarm")
if msg > 0 then
anzahlmsg = anzahlmsg + 1
end if
End Sub

Wenn Du diese If-Schleife nach jeder Messagebox einbaust, dann kommt am Ende eine Anzahl der bestätigten Messages dabei heraus, die Du abfragen oder irgendwohin speichern kannst.
Ich hoffe, Du kannst damit was anfangen.
gruss Gerhard

AW: MSgBox Rückmeldung

13.04.2006 12:44:14

Philipp

Danke Gerhard,
die Frage ist damit geklärt:-)
Philipp

AW: MSgBox Rückmeldung

13.04.2006 12:44:50

Tassos

Hallo,
Gehe davon aus dass die "Fehlermeldungen" vorhersehebar sind
Dann So:
Dim i%


Sub errcount()
On Error GoTo Ende
i = 0
MsgBox "Fehlermeldung 1" 'Deine Fehlermeldung
zaeler
MsgBox "Fehlermeldung 2"
zaeler
MsgBox "Fehlermeldung 3"
zaeler
Select Case i
Case Is = 0
MsgBox " Keine Fehlermeldung"
Case Is = 1
MsgBox "1 Fehlermeldung"
Case Is > 1
MsgBox "insgesammt " & i & " Fehlermeldungen"
End Select
Ende:
If Err Then zaeler
End Sub