Doppelte MsgBox verhindern
12.02.2007 12:12:46
mtremer
bei folgendem Code bekomme ich zwei Mal die MsgBox.
Wie kann ich die verhindern?
Zum Verständnis: Es soll geprüft werden, ob CheckBox6 aktiviert ist.
Wenn ja soll er die beschriebenen Vorgänge durchführen.
Wenn nicht, dann soll die MsgBox kommen und den Haken von CheckBox14 wieder herausnehmen.
Private Sub CheckBox14_Click()
With ActiveSheet
If CheckBox6 Then
With CheckBox14
If .Value Then
CheckBox13.Value = False
Range("C13").Value = .Caption
Else
Range("C13").Value = "in Bearbeitung"
End If
End With
Else
CheckBox14.Value = False
MsgBox "CheckBox6 ist noch nicht angeklickt"
Exit Sub
End If
End With
End Sub
Lösung 1: eine MsgBox, dann End Sub wie beschrieben.
Lösung 2: eine MsgBox, bei der man "Ja" oder "Nein" anklicken kann. Bei "Nein" = End Sub wie beschrieben, bei "Ja" = CheckBox6 aktivieren und weiter im ursprünglichen Sub (CheckBox13.Value = False und Range("C13").Value = .Caption)
Danke für Eure Mühe.
Viele Grüße
Marco