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