anoniem Geplaatst: 12 januari 2003 Delen Geplaatst: 12 januari 2003 [size=9:888b3e3dd6]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 [/size:888b3e3dd6] 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 [color=red:888b3e3dd6]adres[/color:888b3e3dd6] 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. [color=#][/color] Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen