Deze website maakt gebruik van cookies. Waarom? Klik hier voor ons privacy- en cookiebeleid. Door op akkoord te klikken of door gebruik te blijven maken van deze website geeft u aan akkoord te zijn met het gebruik van cookies.

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.