Willekeurig cellenbereik selecteren en inkleuren

[tonp60]

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:

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:

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

 

[emields]

een voorbeeldbestand kan veel verduidelijken.

 

[Haije]

Ton,

ActiveCell.Resize(1, 5).Interior.ColorIndex = 19

zou voldoende moeten zijn

 

[Jack Nouws]

Zo denk ik...

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]ActiveCell.Resize(5).Interior.ColorIndex = 19
[/FONT]

 

[edmoor]

En .Activate is iets anders dan .Select

 

[tonp60]

Jack

Bedankt voor de oplossing. Dit was precies wat ik bedoel.