• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Willekeurig cellenbereik selecteren en inkleuren

Status
Niet open voor verdere reacties.

tonp60

Gebruiker
Lid geworden
29 jul 2009
Berichten
136
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:
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
 
Ton,
Code:
ActiveCell.Resize(1, 5).Interior.ColorIndex = 19
zou voldoende moeten zijn
 
Zo denk ik...
Code:
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]ActiveCell.Resize(5).Interior.ColorIndex = 19
[/FONT]
 
En .Activate is iets anders dan .Select ;)
 
Jack

Bedankt voor de oplossing. Dit was precies wat ik bedoel.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan