sub kleuren

[Spiesse]

Beste forumisten,

ik heb een code aangemaakt om bepaalde cellen te kleuren via vba (moet via vba zijn, voorwaardelijke opmaak kan me hierbij niet helpen...)

nu is het zo dat de cellen in de range verschillende waarden kunnen zijn (ik dacht dus aan OR te kunnen gebruiken)... Jammer genoeg kleurt hij maar de eerste if in mijn 'onderzoek'). er zijn tot nu toe 28 mogelijke waarden die moeten gekleurd worden...

hoe zou ik dit kunnen oplossen?

Sub kleuren()

With Sheets("doppers")

For Each cell In .Range("a2:a3000")
 If cell.Value = "Spiesschaert David" Or cell.Value = "prutser" Then
  cell.Interior.ColorIndex = 45
End If
Next
End With
End Sub

ik hoor het graag van jullie!

groeten,
spiesse

 

[ExcelAmateur]

Spiesse,

Zo werkt het bij mij wel.

Sub kleuren()

  With Sheets("doppers")

     For Each cl In .Range("a2:a3000")
       If cl.Value = "Spiesschaert David" Or cl.Value = "prutser" Then
         cl.Interior.ColorIndex = 45
       End If
    Next
  End With

End Sub

 

[Spiesse]

Hey excelamateur,

thx voor je reply. is er een reden waarom jij kiest voor cl ipv cell?

ik denk dat de .value ook gevoelig is aan hoofdletters... als ik prutser in hoofdletters zet in sub en in kleine letters in cel doet hij niks. pas ik de cel aan naar hoofdletters doet hij dit wel...

kan jij dit bevestigen?

 

[ExcelAmateur]

Spiesse,

Als ik van anderen de code soms bekijk wordt er nooit Cell gebruikt maar cl.
Je moet via de zoekmachine van helpmij maar eens zoeken op Hoofdletter gevoelig.
Ik denk dat je wel iets er over zal vinden.
Zelf dacht ik zoiets als Ucase, hier over kun je ook in de help van Excel vinden.

Suc6

 

[Spiesse]

thx voor je verdere uitleg ondertussen is het euvel opgelost. ik zet deze dan ook op opgelost

 

[edmoor]

Maak er in het For Each gedeelte eens het volgende van:

     For Each cl In .Range("a2:a3000")
          Select Case Ucase(cl.Value)
              Case "SPIESSCHAERT DAVID", "PRUTSER"
                  cl.Interior.ColorIndex = 45
              Case "VOLGENDE VOOWAARDE"
                  cl.Interior.ColorIndex = andere kleur
          End Select
    Next

*Net na je bericht geplaatst

 

[Spiesse]

hier ben ik nog even terug...

een extraatje:
er zou een AND moeten toegevoegd worden, nl;: de maand van kolom I moet de maand van vandaag zijn...

nu gebruik ik volgende formule in kolom I: ALS([Werkloos van]="";"";TEKST([@[Werkloos van]];"mmmm"))

dus in de vba zal een uitbreide code moeten komen zekeR?