MsgBox wird zweimal geöffnet
22.06.2016 11:24:59
Flow
ich habe eine kurze Frage, die die Experten hier vermutlich schnell lösen können:
Nachfolgender Code soll einen bestimmten Zellenbereich überprüfen. In den jeweiligen Zellen ist _
ein Dropdown hinterlegt, dass entsprechende Codes zur Auswahl gibt. Im Falle, dass der Code _
1001 gewählt wird, soll eine MsgBox erscheinen die hinweisen soll, dass eine weitere Eingabe _
getätigt werden soll. (Quasi ähnlich einer Mandatory Angabe bei Access).
Private Sub Worksheet_Calculate()
Dim a As Integer
a = 4
Do Until a = 54
If Cells(a, 6) = 1001 Then
If Cells(a, 8) = "" Then
Cells(a, 8).Select
MsgBox ("Please enter Q-No. in line " & a)
'Exit Sub
Else
End If
End If
a = a + 1
Loop
End Sub
Nun zu meinem Problem:
Wenn dieser Code ausgeführt wird und eben der Fall eintritt, dass die MsgBox geöffnet wird, öffnet sich diese zweimal nacheinander. Vermutlich gerate ich irgendwo in eine Endlosschleife, ich habe aber leider keine Ahnung wo.
Hoffe ihr könnt mir da weiter helfen.
Viele Grüße
Flow