möchte mein sheet auf bestimmte werte abfragen und mit die identifizierten zellen mit einer bestimmten hintergrundfarbe versehen. hab dazu die untenstehenden anweisungen geschrieben. die sache funktioniert soweit gut. nun möcht ich das ganze aber nur für bestimmte spalten durchführen. dh. ich suche die spalte "ordnung", gebe die zu suchenden werte an und möchte diese dann mit einer speziellen hintergrundfarbe versehen. kann mir jemand helfen meinen code dementsprechend anzupassen?
Sub start()
Dim strfalseValue1 As String
Dim strfalseValue2 As String
Dim strfalseValue3 As String
strfalseValue1 = "gering"
strfalseValue2 = "extrem"
strfalseValue3 = "stark"
Call Ordnung_einfaerben(strfalseValue1, strfalseValue2, strfalseValue3)
End Sub
Sub Ordnung_einfaerben(ByRef strfalseValue1, strfalseValue2, strfalseValue3)
Dim c As Object
For Each c In ActiveSheet.UsedRange
If c = strfalseValue1 Then
c.Interior.ColorIndex = 4
ElseIf c = strfalseValue2 Then
c.Interior.ColorIndex = 6
ElseIf c = strfalseValue3 Then
c.Interior.ColorIndex = 3
End If
Next c
End Sub
tausend dank,
rudi