Vraag & Antwoord

Anders (software)

excel vraag

Anoniem
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.