Hallo,

wie kann man bitte mehrere Textteile finden?  Ich suche z.B. haus und baum - die Treffer sollen doppelt unterstrichen werden. Mit haus funktioniert es schon - aber den baum bringe ich nicht unter. Vielen Dank für Eure Hilfe.

With Tabelle1.Range("A19:G260")
    Set c = .Find("haus", LookAt:=xlPart)
    If Not c Is Nothing Then
           firstAddress = c.Address
        Do
           c.Font.Underline = xlUnderlineStyleDouble
            Set c = .FindNext(c)
                Loop While c.Address <> firstAddress
       End If
    End With