AW: zellinhalt vergleichen
18.06.2009 16:46:58
Helmut
Im Prinzip so (Anpassungen sind erforderlich)
Sub test()
Dim myLength As Long
Dim i As Long
Dim j As Long
Dim myTestString As String
myLength = Len(Range("a1").Value)
For i = 1 To myLength
If Mid(Range("a1").Value, i, 1) = " " Or i = 1 Then
For j = i + 1 To myLength
If Mid(Range("a1").Value, j, 1) = " " Or j = myLength Then
If i = 1 Then
myTestString = Mid(Range("a1").Value, i, j - i)
Else
If j = myLength Then
myTestString = Mid(Range("a1").Value, i + 1, j - i)
Else
myTestString = Mid(Range("a1").Value, i + 1, j - i - 1)
End If
End If
If InStr(Range("b1").Value, myTestString) = 0 Then
With Range("a1").Characters(Start:=i, Length:=j - i).Font
.Color = -16776961
End With
End If
j = myLength
End If
Next j
End If
Next i
End Sub