Sub SucheNachInhalten()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngZeileMax2 As Long
Dim VarDat As Variant
Dim i As Integer
With Tabelle1
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
lngZeileMax2 = Sheets("Tabelle2").Range("A" & .Rows.Count).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
VarDat = Sheets("Tabelle2").Range("A2:A" & lngZeileMax2)
For i = 1 To UBound(VarDat)
If .Range("A" & lngZeile).Value = VarDat(i, 1) And .Range("B" & lngZeile).Value = "WV" Then
.Range("A" & lngZeile).Interior.ColorIndex = 6
End If
If .Range("A" & lngZeile).Value = VarDat(i, 1) And .Range("B" & lngZeile).Value = "STWV" Then
.Range("A" & lngZeile).Interior.ColorIndex = 8
Exit For
End If
Next i
Next lngZeile
End With
End Sub