Option Explicit
Sub Example()
Dim rngResult As Excel.Range
Dim strFirstAddress As String
Dim vntaWhat As Variant
Dim vntWhat As Variant
vntaWhat = Array("haus", "baum")
With Tabelle1.Range("A19:G260")
For Each vntWhat In vntaWhat
Set rngResult = .Find(vntWhat, LookAt:=xlPart)
If Not rngResult Is Nothing Then
strFirstAddress = rngResult.Address
Do
rngResult.Font.Underline = xlUnderlineStyleDouble
Set rngResult = .FindNext(After:=rngResult)
Loop While rngResult.Address <> strFirstAddress
End If
Next
End With
End Sub