Msgbox mit JA NEIN

Hallo,
ich lade mir Daten in ein Sheet. Danach möchte ich prüfen, ob in der Zelle der Wert mit "OK" beginnt:
If Left$(Range("A1"), 2) = "OK" Then
MsgBox "blabla"
End If
Es soll nun folgendes geprüft werden:
Wenn Zelle A1 nicht mit OK beginnt, soll eine MsgBox aufgehen und fragen, ob es die richtigen Daten sind.
Wenn ich auf NEIN klicke, soll eine weitere msgbox kommen, ob die Daten gelöscht werden sollen. Wenn ich auf JA klicke, soll der Inhalt der Spalte A gelöscht werden, wenn NEIN, dann ein exit sub
Wenn ich in der ersten msgbox (Frage ob richtige Daten) JA klicke, soll es einfach weitergehen, (also einfach diesen Teil verlassen und mein nachfolgender Code geht weiter)
Wie verschachtelt man denn das ?
Danke Jockel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub jockel() If Left$(Range("A1"), 2) = "OK" Then If MsgBox("Sind´s die richtigen Daten?", vbYesNo) = vbNo Then If MsgBox("Soll der Zellinhalt gelöscht werden?", vbYesNo) = vbYes Then Range("A1").ClearContents End If End If End If End Sub

Sub ml() 'Dim Erg 'Wo liegt der Unterschied ? Ja ergibt 6, Nein ergibt 7 Dim Erg As VbMsgBoxResult 'Wo liegt der Unterschied ? Ja ergibt 6, Nein ergibt 7 If UCase(Left(Range("A1"), 2)) = "OK" Then Erg = MsgBox("richtige Daten ? ", vbYesNo + vbInformation) MsgBox Erg 'Kontrolle ;o) If Erg = 6 Then MsgBox "richtige Daten :)" If Erg = 7 Then MsgBox "falsche Daten :(" End If End Sub

Hallo Matthias,
unabhängig von der Typendeklaration die Luc vorgeschlagen hat, empfehle ich, so oft wie möglich mit den in VB(A) enthaltenen vbKonstanten zu arbeiten.
Mit der Syntax If Erg=6 then können wohl die meisten VBA-User kaum etwas anfangen - bzw. man fragt sich, wieso bei einer MsgBox mit den Schaltflächen plötzlich der Wert 6 resultieren sollte !
Besser lesbar ist die Alternative If Erg=vbYes then
Bei Ja/Nein kann man sich die Werte 6 / 7 evtl. noch merken, aber bei anderen Konstanten sicherlich nicht (z.B. vbCancel, vbAbort, vbRetry : 2 / 3 / 4 - oder vbcritical, vbquestion, vbinformation : 16 / 32 / 64 - oder die Farben : vbRed, vbMagenta, vbGreen : 255 /16711935 / 65280 - etc.)
Ist nur ein unbedeutender Hinweis bzw. eine Bitte von mir, da ich ansonsten "nix verstehe" ;-)
Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

86 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Msgbox mit JA NEIN

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

86 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread