Ich hab ein simples Problem, aber komme beim Googeln auf nichts.
Ich hab eine Zeile (5), in der Stelen vereinzelt werte
Ich möchte, dass mir alle Zellen, in denen eine Zahl (1-6) vorkommt, pink gefärbt werden
Das Ding ist, wenn in den Zellen was drin steht, steht auf jeden Fall eine Zahl drin, aber auch ein Buchstabe.
Ich habe es so versucht:
With ws
For spalte = 3 To 62
If Cells(5, spalte).Value = "*1*" _
Or Cells(5, spalte).Value = "*2*" _
Or Cells(5, spalte).Value = "*3*" _
Or Cells(5, spalte).Value = "*4*" _
Or Cells(5, spalte).Value = "*5*" _
Or Cells(5, spalte).Value = "*6*" _
Then
spalte1 = spalte
Range(Cells(5, spalte1), Cells(5, spalte1)).Interior.ColorIndex = 5
End If
Next
End With
Es tut sich leider nichts....