cellen kleuren met letters

[Pa Dalton]

Bijgevoegd bestandje heb ik op een ander forum gevonden.
In dit bestandje worden in een cel cijfers geplaatst en dan gekleurd.
Wat ik zoek is eigenlijk hetzelfde maar dan met letters.
Ik heb al geprobeerd om dit te veranderen maar kom er niet uit.
Wie zou hier eens naar willen kijken?

Alvast hartelijk bedankt.
Pa Dalton

 

[Wigi]

Pa Dalton

cross-posting is niet gewenst. Plaats op zijn minst een link naar het andere forum.

 

[Pa Dalton]

cross-posting is niet gewenst. Plaats op zijn minst een link naar het andere forum.


Ik heb toch netjes vermeld dat ik het op een ander forum heb gevonden?
Cross-posting is niet gewenst in een en dezelfde forum, maar op een ander forum mag ik toch ook wel een bericht neerzetten?
M.a.w. ik mag niet in meerdere etalage's kijken?

Pa Dalton

 

[Wigi]

Ik heb toch netjes vermeld dat ik het op een ander forum heb gevonden?
Cross-posting is niet gewenst in een en dezelfde forum, maar op een ander forum mag ik toch ook wel een bericht neerzetten?
M.a.w. ik mag niet in meerdere etalage's kijken?

Je laat vrijwilligers hetzelfde werk meerdere malen doen. Als je een link plaatst, kan men zien wat er al gebeurd is aan je vraag.

 

[Pa Dalton]

Helemaal gesnapt.
Als het weer voorkomt zal ik het in ieder geval vermelden.

Pa Dalton

 

[Demeter]

Bij gebrrek aan een linkje, hier een antwoord voor de andere lezers welke ook een antwoord zoeken mbt kleuren .

Kijk eens hier:
http://www.ozgrid.com/VBA/excel-conditional-formatting-limit.htm

en probeer:

 .Font.ColorIndex

er in te verwerken

 

[Pa Dalton]

Demeter,

Bedankt, eenvoudig en goed.
Alle andere mensen ook bedankt voor het meedenken.

Pa Dalton

Hier heb ik er 15 te pakken.
Ik hoop dat iedereen er zijn voordeel mee kan doen.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer

If Not Intersect(Target, Range("A1:A15")) Is Nothing Then
Select Case Target
Case "A"
icolor = 1
Case "B"
icolor = 2
Case "C"
icolor = 3
Case "D"
icolor = 4
Case "E"
icolor = 5
Case "F"
icolor = 6
Case "G"
icolor = 7
Case "H"
icolor = 8
Case "I"
icolor = 9
Case "J"
icolor = 10
Case "K"
icolor = 11
Case "L"
icolor = 12
Case "M"
icolor = 13
Case "N"
icolor = 14
Case "O"
icolor = 15
Case Else
'Whatever
End Select

Target.Interior.ColorIndex = icolor
End If

End Sub

 

[Wigi]

Pa Dalton, kan je eens de code tags rond je code zetten aub? Maakt het leesbaar.

 

[Pa Dalton]

Wigi,

Ik begrijp niet wat je bedoelt maar ik heb het bestandje even hier neergezet.
Misschien is het zo duidelijker.
(Ik ben nog maar zo'n kleine beginneling, maar.... begin het zo langzamerhand wel een beetje te leren)


Pa Dalton

 

[Wigi]

Ik bedoel dat je niet moet zetten

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A15")) Is Nothing Then _
Target.Interior.ColorIndex = Asc(Target.Range("A1").Value) - 64
End Sub

maar

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A15")) Is Nothing Then _
    Target.Interior.ColorIndex = Asc(Target.Range("A1").Value) - 64
End Sub

Trouwens, dit is meteen verbeterde code voor jou.

Wigi

 

[Demeter]

Dalton,

Misschien ook handig om op het andere forum het antwoord te geven of een link te plaatsen naar dit forum? .
el zo schappelijk en helpen we elkander.


@Wigi,

Ik vraag me af en toe echt af waar jij het iedere keer weer vandaan haalt.
Denk dat dat een eerste stap zal moeten worden voor mij op tot de pro's te gaan behoren (ooit).