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, a, "G2F") > 0 Then
x(1, 2).Interior.ColorIndex = 3
End If
End If
Next
End Sub
Nicht grade schnell, aber einfach und flexibel.
Gruß
Till
|