Set rngFind = .Find(strSuchbegriff, , , xlPart)
If Not rngFind Is Nothing Then
strErsteZelle = rngFind.Address
Do
sArr() = Split(rngFind.Text, Chr(32))
For y = LBound(sArr) To UBound(sArr)
If Len(sArr(y)) = Len(Trim(strSuchbegriff)) Or Len(sArr(y)) = Len(Trim(strSuchbegriff)) + 1 Then
rngFind.Interior.ColorIndex = 36
End If
Next y
Set rngFind = .FindNext(rngFind)
Loop Until rngFind Is Nothing Or rngFind.Address = strErsteZelle
strSuchbegriffFound = strSuchbegriffFound & Chr(10) & "- " & strSuchbegriff
Else
strSuchbegriffNotFound = strSuchbegriffNotFound & Chr(10) & "- " & strSuchbegriff
End If
...