Makro mit MsgBox nacheinander ausfuehren
chandler
wuerde gerne zwei Makros nacheinander ausfuehren, dabei vorerst eine MsgBox(" ", vbYesNoCancel) Box oeffnen um zu entscheiden:
Wenn Ok dann das Makro CONNECT_1 startet, wenn aber No, dann soll die zweite
MsgBox geoeffnet werden und wenn OK, dann das Makro BEGIN startet, sonst No oder Cancel.
Mein Problem: Wenn ich mich fuer Nein entschiede bei der ersten Box, oeffnet sich die zweite Box nicht.
Warum? Hier mein Versuch:
Private Sub measure()
Dim reply
On Error GoTo ERRHANDLER
reply = MsgBox("Communicate to the logger?", vbYesNoCancel)
If reply = vbYes Then
Call CONNECT_1
If reply = vbCancel Then
reply = MsgBox("Logger is run the first time?", vbYesNoCancel)
If reply vbCancel Then
If reply = vbYes Then
Call BEGIN
On Error GoTo 0
End If
End If
End If
End If
ERRHANDLER:
If Err.Number > 0 Then MsgBox Err.Description, , "Error Nr. " & Err.Number
End Sub
Vorab vielen Dank fuer Hilfe. Cruesse chandler
Anzeige