Option Explicit
Sub kontrollieren()
Dim rng As Range
Dim x, a, b
Set rng = ActiveSheet.UsedRange
For Each x In rng
a = x.Value
If InStr(1, a, "G0M") + InStr(1, a, "G1M") + InStr(1, a, "G2M") > 0 Then
b = x(1, 2).Value
If InStr(1, b, "G1F") + InStr(1,b, "G2F") > 0 Then
x(1, 2).Interior.ColorIndex = 3
End If
End If
Next
End Sub
Joar, da war noch ein "a" wo ein "b" sein sollte.
|