VBA Exel fout in procedure

[anoniem]

Met onderstaande procedure is het de bedoeling dat de MsgBox de waarde uit Cel B7 toont en een vraag stelt waarop de gebruiker met Ja of Nee kan reageren. Bij Ja wordt UserForm3 geladen en bij Nee moet de waarde uit Cel B7 in een nieuweMsgBox getoond worden. Bij uitvoering van de procedure blijft bij Nee de procedure "hangen"en bij Ja duurt het enige tijd voordat het Userform opstart. Wie help mij? ------------- Private Sub Dialoogvenster() MsgBox Range("B7").Value, vbYesNo, "Is er een inreis bekend na:" If MsgBox(Range("B7").Value, vbYesNo, "Is er een inreis bekend na:") = vbNo Then 'MsgBox Bericht Einddatum verblijf. MsgBox Range("B16").Value, "Einddatum verblijf is" Else 'Bij inreis in afgelopen 6 mnd UserForm3 ophalen Load UserForm3 UserForm3.Show End If End Sub

[anoniem]

Haal de eerste regel eens weg. Je krijgt nu namelijk twee keer de MsgBox te zien. Het kan zo lijken dat de procedure blijft hangen. [code:1:a106fe48b0] Sub DialoogVenster() If(MsgBox(Range("B7").Value, vbYesNo, "Is er een inreis bekend na:") = vbNo then MsgBox Range("B16").Value, "Einddatum verblijf is:" Else Load UserForm3 ' show laadt het formulier ook al UserForm3.show End If [/code:1:a106fe48b0]

[anoniem]

[quote:6b84ea4f0f="meneer_ed"]Haal de eerste regel eens weg. Je krijgt nu namelijk twee keer de MsgBox te zien. Het kan zo lijken dat de procedure blijft hangen. [code:1:6b84ea4f0f] Sub DialoogVenster() If(MsgBox(Range("B7").Value, vbYesNo, "Is er een inreis bekend na:") = vbNo then MsgBox Range("B16").Value, "Einddatum verblijf is:" Else Load UserForm3 ' show laadt het formulier ook al UserForm3.show End If [/code:1:6b84ea4f0f][/quote:6b84ea4f0f] Het lukt ook nu niet. Is het mogelijk om de 2e MsgBox in een Makro op te nemen en dan vanuit de procedure te starten, zo ja hoe doe ik dat?