Private Sub ComboBox1_Change()
Dim c As Range
Dim rngZelle As Range
Dim rngBereich As Range
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(lngLetzte, 14)).Interior.ColorIndex = xlNone
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