Bereik van een macro aanpassen

[Koos Voos]

Hoi,

Ik heb een macro gevonden met onderstaande code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case "rood"
Target.Interior.Color = vbRed
Case "blauw"
Target.Interior.Color = vbBlue
Case "groen"
Target.Interior.Color = vbGreen
Case "geel"
Target.Interior.Color = vbYellow
End Select
End If
End Sub

Hoe krijg ik voor elkaar dat dit alles werkt voor celbereik A1 t/m C8....
en niet alleen voor A1 zoals in deze macro ??

Ik krijg het helaas niet voor elkaar
PS: is voor excel 2003

Bedankt
Koos

 

[danny147]

Beste Koos Voos

Is het de bedoeling dat je iets typt in de cellen A1:C8.

Vb ik typ A en het moet dan rood worden of ik typ Z en het moet groen worden.

Wat wil je ?

Groetjes Danny. :thumb:

 

[Ginger]

Private Sub Worksheet_Change(ByVal Target As Range)
If [COLOR="Blue"]Not intersect(Target, Range("A1:C8")) Is Nothing[/COLOR] Then
Select Case Ucase(Target)
Case "ROOD"
Target.Interior.Color = vbRed
Case "BLAUW"
Target.Interior.Color = vbBlue
Case "GROEN"
Target.Interior.Color = vbGreen
Case "GEEL"
Target.Interior.Color = vbYellow
End Select
End If
End Sub

Groet, Leo

 

[danny147]

Beste Koos Voos

Ginger heeft het bij het rechte eind, vraag verkeerd begrepen.

Groetjes Danny. :thumb:

 

[Koos Voos]

Heren,

mijn hartelijke dank voor de zeer snelle reactie.
getest en werkt......!!!!!!!!

:thumb::thumb::thumb:

Nogmaals bedankt
Koos

 

[gGerretje]

In ComputerIdee heeft ooit een heel handig programmaatje gestaan.
Daarin kon je willekeurig cellen selecteren en met een druk op een opdrachtknop werden al die cellen rood (of een andere kleur uiteraard).
En met wat uitbreiding kun je de kleur ook gewoon aan een waarde koppelen.

 

[snb]

het ook eenvoudig met

Private Sub Worksheet_Change(ByVal Target As Range)
If Not intersect(Target, [A1:C8])) Is Nothing Then Target.Interior.ColorIndex = UBound(Split(Split("|||rood|groen|blauw|geel", lcase(target))(0), "|"))
End Sub

of

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not intersect(Target, [A1:C8]) Is Nothing Then 
    c0 = "|03|rood|04|groen|05|blauw|06|geel|"
    target.Interior.ColorIndex = Val(Mid(c0, InStr(c0, "|" & LCase(target) & "|") - 2, 2))
  End if
End Sub

 

[danny147]

Beste gGerretje

Het is niet de gewoonte om een extra vraag hier te plaatsen.

Men moet steeds een nieuwe topic openen en verwijzen naar de topic.
snb zou dit ook moeten weten

Groetjes Danny. :thumb:

 

[snb]

Wat vertel je me nou, Danny,
Welke extra vraag ?

 

[danny147]

Beste snb

Wat vertel je me nou, Danny,
Welke extra vraag ?

Mijn vraag was misplaatst hier, sorry

Groetjes Danny. :thumb:

 

[snb]

@Danny

:thumb:

 

[gGerretje]

Hallo Danny,

Mijn opmerking over dat programmaatje in ComputerIdee was geen vraag, maar een tip over hoe je met die kleurtjes kunt omgaan. Ik heb het programmaatje.
Voor de liefhebbers wil ik het wel sturen.
Ik was misschien ook niet duidelijk genoeg,
Sorry,

Groet,
Ger