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

Anders (software)

excel vraag

None
1 antwoord
  • zoekweek = InputBox("test")
    If zoekweek > 52 Then GoTo verkeerdekeuze

    Range("weekgerardstart").Select
    Do
    ActiveCell.Offset(1, 0).Select
    If zoekweek = ActiveCell.Value Then Exit Do
    Loop



    ActiveCell.Select
    Exit Sub
    verkeerdekeuze:
    MsgBox "kies een weeknummer dat lager is dan 52, opnieuw"

    End Sub

    via bovenstaande code selecteer ik een cel.

    rechts van deze cel wil ik andere cellen selecteren en knippen/copieren. dit lukte me altijd via deze code.
    Range(adres, Range(adres).End(xlToRight)). cut
    waarbij adres vanuit een select case benoemd wordt.
    echter adres is nu dus veranderlijk en dan werkt de code niet!!

    wie helpt me verder? activecell invullen i.p.v. adres werkt niet, krijg een global range error.

    bedankt alvast

Beantwoord deze vraag

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