Excel resultaat geven op basis van celkleur

Status
Niet open voor verdere reacties.
L

lucie222

Nieuwe gebruiker
Lid geworden
5 apr 2019
Berichten
2
Beste Iedereen,

Mijn naam is Lucie en ik heb een probleem.

Ik heb drie cellen in kolom A

A1 = geel gekleurd (6)
A2 = rood gekleurd (3)
A3 = blauw gekleurd (5)

Nu wil ik in de kolom ernaast, een code geven

Als kolom

A1 = geel gekleurd (6) dan resultaat in B1 geel
A2 = rood gekleurd (3) dan resultaat in B2 rood
A3 = blauw gekleurd (5) dan resultaat in B3 blauw

Ik ben zover gekomen, maar het lukt me niet meerdere codes in dezelfde Macro te proppen

Code: 
Sub lucie2()
Dim LR As Long, I As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To LR
    With Range("B" & I)
        .Value = IIf(.Offset(, -1).Interior.ColorIndex = 3, "r", "")
    End With
Next I
End Sub

Mvg

Mevrouw Lucie
 
test deze eens
Code: 
Sub lucie2()
Dim LR As Long, I As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For Each cl In Range("B1:B" & LR)

      MC = cl.Offset(, -1).Interior.ColorIndex
Select Case MC
   Case 3
 cl.Value = "r"

   Case 6
 cl.Value = "g"
 
   Case 5
 cl.Value = "b"

End Select
Next
End Sub
 
Iets anders geschreven
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub lucie2()
  For Each cl In Columns(1).SpecialCells(2)
    Select Case cl.Interior.ColorIndex
      Case 3:  NewValue = "r"
      Case 6:  NewValue = "g"
      Case 5:  NewValue = "b"
    End Select
   cl.Offset(, 1) = NewValue
  Next
End Sub
[/FONT]
of
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub lucie2()
  For Each cl In Columns(1).SpecialCells(2)
    cl.Offset(, 1).Value = IIf(cl.Interior.ColorIndex = 3, "r", IIf(cl.Interior.ColorIndex = 6, "g", "b"))
  Next
End Sub
[/FONT]
 
Bedankt jullie allemaal.
Dat werkt inderdaad goed.

Fijne dag.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan