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

Excel VBA vraag

Anoniem
skywalker
4 antwoorden
  • Hallo allemaal,

    Klein vraagje,
    Ik heb een soort van kasboek gemaakt. Via een formulier vul ik een bedrag in die na een druk op de knop "Invullen" het bedrag plaatst in het werkblad.

    Met deze code converteert hij het getal in het tekstvak naar een valuta (Currency)

    [code:1:324d065804]curBedrag1 = CCur(bedrag1.Text)[/code:1:324d065804]

    Nu wil ik in de vba code van de knop "Invullen" een extra controle toevoegen die kijkt of de waarde in het tekstvak ook daadwerkelijk een getal is. Dus wanneer je daar tekst invoert moet hij een waarschuwing geven. Nu wanneer ik er tekst invoer loopt het programma helemaal vast, omdat de typen niet overeen komen (logisch)

    Heb het al geprobeerd met verschillende if- vormen maar kom er niet uit.
    Misschien dat iemand anders mij kan helpen?

    Alvast bedankt
  • SkyWalker,

    De functie IsNumeric is waarschijnlijk geschikt.
    Je had natuurlijk ook een [code:1:d9130b5ccd]on error goto label[/code:1:d9130b5ccd] kunnen gebruiken…

    Ik hoop dat je er wat aan hebt.

    Groeten, Maarten.
  • Bedankt voor je reactie. Heb verschillende mogelijkheden geprobeerd met de opties die je gaf. Maar helaas werkt het niet. Hoe zou ik dat moeten formuleren?
  • Hallo anonieme walker,

    Lukt dus ook de code
    [code:1:c887ddc307]if IsNumeric(bedrag1.Text) then curBedrag1 = CCur(bedrag1.Text)
    else goto NogMaarEenPoging[/code:1:c887ddc307]
    niet?
    (Opm.: de code uit de losse pols geschreven…)

    Laat even weten wat hiermee je resultaat is.

    Groeten, Maarten.

Beantwoord deze vraag

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