Hallo
Ik wil graag vanaf een bepaalde cel (die steeds verschillend is) een cellenbereik selecteren en dit inkleuren.
Het is de bedoeling dat er vanaf iedere willekeurige cel, een bereik van 5 cellen geselecteerd wordt.
Bijv. als C1 de actieve cel is dan moet het cellenbereik de selectie bevatten C1 t/m C5.
Is H11 de actieve cel is dan moet het cellenbereik de selectie bevatten H11 t/m H15.
Hierna moet deze selectie ingekleurd worden met Colorindex 19
Ik kom tot nu toe niet verder dan:
Nu wordt er gesprongen vanaf de actieve cel naar het eind van het gewenste bereik, maar er wordt niets geselecteerd.
Daarna moet ik iets doen met:
Het hapert echter al bij het selecteren van het bereik.
Wie kan mij helpen?
Gr.
Ton
Ik wil graag vanaf een bepaalde cel (die steeds verschillend is) een cellenbereik selecteren en dit inkleuren.
Het is de bedoeling dat er vanaf iedere willekeurige cel, een bereik van 5 cellen geselecteerd wordt.
Bijv. als C1 de actieve cel is dan moet het cellenbereik de selectie bevatten C1 t/m C5.
Is H11 de actieve cel is dan moet het cellenbereik de selectie bevatten H11 t/m H15.
Hierna moet deze selectie ingekleurd worden met Colorindex 19
Ik kom tot nu toe niet verder dan:
Code:
Sub Test()
ActiveCell.Offset(4, 0).Activate
End Sub
Nu wordt er gesprongen vanaf de actieve cel naar het eind van het gewenste bereik, maar er wordt niets geselecteerd.
Daarna moet ik iets doen met:
Code:
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With
Het hapert echter al bij het selecteren van het bereik.
Wie kan mij helpen?
Gr.
Ton