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
|