Private
Sub
CommandButton1_Click()
Dim
c
As
Range
Dim
rngZelle
As
Range
Dim
rngBereich
As
Range
Set
c = Columns(1).Find(ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
If
Not
c
Is
Nothing
Then
Set
rngBereich = Range(Cells(c.Row, 2), Cells(c.Row, 14))
For
Each
rngZelle
In
rngBereich
If
rngZelle.Value <>
""
Then
rngZelle.Interior.Color = vbRed
End
If
Next
End
If
End
Sub