Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VBA Exel fout in procedure

Franzie
2 antwoorden
  • 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
  • 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]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.