Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MsgBox soll nur einmal erscheinen

MsgBox soll nur einmal erscheinen
17.07.2007 08:45:39
Micha
Halle Excel Experten,
ich habe in eine Excel Tabelle 2 MsgBoxen eingebaut, die über eine If - Then Abfrage erscheinen. Beim weiteren bearbeiten der Tabelle läuft diese Abfrage natürlich weiter und die MsgBox öffnet sich nach jeder Eingabe. Gibt es ein Möglichkeit die MsgBox nur einmal anzeigen zu lassen und dann den Prozess der If Abfrage zu beenden. Ich möchte also erreichen, das wenn die If Bedingung zutrifft die MsgBox (nur einmal) erscheint und danach nicht mehr, das heißt die If - Abfrage soll nach einmaligen Durchlauf nicht mehr starten. Wichtig ist der einmalige Durchlauf - nach Bestätigen der MsgBox mit "ok" - soll die Prozedur nicht mehr ausgeführt werden - und auch keine MsgBox mehr erscheinen. Ich hoffe das war halbwegs verständlich und ich bekomme eine Lösung.
Hier meine Abfrage:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("L2").Value = "ACHTUNG! -VERARBEITER FALSCH- BITTE PRÜFEN" Then
MsgBox "Bitte Verarbeiter prüfen!!" & vbLf & "" & vbLf & "Ich brauche die Handynummer!"
&  _vbLf & "" & vbLf & "         - DANKE -", vbInformation, "SEHR WICHTIG!!"
End If
If Range("F1").Value = "Holz" Then
MsgBox "ACHTUNG HOLZFASSADE" & vbLf & "" & vbLf & "WENN NEUER HAUSTYP:" & vbLf & "" & vbLf & _
_  "+ VENTILACK WEISS FÜR DIE UNTERSCHLÄGE", vbInformation, "WICHTIGER HINWEIS"
End If
End Sub


Viele Grüße Micha

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

Betreff
Datum
Anwender
Anzeige
AW: MsgBox soll nur einmal erscheinen
17.07.2007 08:49:00
Rudi
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("L2").Value = "ACHTUNG! -VERARBEITER FALSCH- BITTE PRÜFEN" Then
MsgBox "Bitte Verarbeiter prüfen!!" & vbLf & "" & vbLf & "Ich brauche die Handynummer!"
&  _vbLf & "" & vbLf & "         - DANKE -", vbInformation, "SEHR WICHTIG!!"
Exit Sub
End If
If Range("F1").Value = "Holz" Then
MsgBox "ACHTUNG HOLZFASSADE" & vbLf & "" & vbLf & "WENN NEUER HAUSTYP:" & vbLf & "" & vbLf & _
_
_  "+ VENTILACK WEISS FÜR DIE UNTERSCHLÄGE", vbInformation, "WICHTIGER HINWEIS"
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: MsgBox soll nur einmal erscheinen
17.07.2007 08:50:00
Matthias
Hallo Micha,
mein Vorschlage:

Private Sub Worksheet_Change(ByVal Target As Range)
Static m1 As Boolean, m2 As Boolean
If Not m1 And Range("L2").Value = "ACHTUNG! -VERARBEITER FALSCH- BITTE PRÜFEN" Then
m1 = True
MsgBox "Bitte Verarbeiter prüfen!!" & vbLf & "" & vbLf & "Ich brauche die Handynummer!" & _
vbLf & "" & vbLf & "         - DANKE -", vbInformation, "SEHR WICHTIG!!"
End If
If Not m2 And Range("F1").Value = "Holz" Then
m2 = True
MsgBox "ACHTUNG HOLZFASSADE" & vbLf & "" & vbLf & "WENN NEUER HAUSTYP:" & vbLf & "" & vbLf &  _
_
"+ VENTILACK WEISS FÜR DIE UNTERSCHLÄGE", vbInformation, "WICHTIGER HINWEIS"
End If
End Sub


Gruß Matthias

Anzeige
AW: MsgBox soll nur einmal erscheinen
17.07.2007 09:01:00
Micha
Hallo Matthias,
supi!!!!
DANKE - Das ging aber fix und es funktioniert, so wie ich es mir gedacht habe.
Ich bin begeistert!!
Gruß Micha

AW: MsgBox soll nur einmal erscheinen
17.07.2007 08:52:46
Armin
Hallo Micha,
so müsste es gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
DIM vergl as String
verg  ="ACHTUNG! -VERARBEITER FALSCH- BITTE PRÜFEN"
If Range("L2").Value = verg Then
MsgBox "Bitte Verarbeiter prüfen!!" & vbLf & "" & vbLf & "Ich brauche die Handynummer!"
&  _vbLf & "" & vbLf & "         - DANKE -", vbInformation, "SEHR WICHTIG!!"
verg=""
End If
If Range("F1").Value = "Holz" Then
MsgBox "ACHTUNG HOLZFASSADE" & vbLf & "" & vbLf & "WENN NEUER HAUSTYP:" & vbLf & "" & vbLf & _
_
_  "+ VENTILACK WEISS FÜR DIE UNTERSCHLÄGE", vbInformation, "WICHTIGER HINWEIS"
End If
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige