search for multiple words

You could declare Suche as variant and load array of search words.

May be something like below... this is untested.

Sub test()
Dim Suche
T = "T1"
X = "A"
AX = 1

Z = "T4"
Y = 2
AY = "B"

Suche = Array("hello", "my", "another")

Set A = Worksheets(T)
Set B = Worksheets(Z)
Y = Y
For i = 0 To UBound(Suche)
    With A.Columns(X)
        Set Gefunden = .Find(Suche(i), LookIn:=xlValues)
        If Not Gefunden Is Nothing Then
        Erste = Gefunden.Address
            Do 'für alle Fundstellen
            B.Cells(Y, AY).Resize(1, AX) = Gefunden.Offset(0, 1).Resize(1, AX).Value
            Y = Y + 1
            Set Gefunden = .FindNext(Gefunden)
            Loop Until Gefunden.Address = Erste
        End If
    End With
Next i
End Sub

Sub test()
    Dim Suche As Variant, Flurbin As Variant
    Dim Gefunden As Range, Erste As String, Y As Long
    
    Suche = Array("hello", "my", "another")
    Y = 2
    
    With Worksheets("T1").Columns("A")
        For Each Flurbin In Suche
            Set Gefunden = .Find(Flurbin, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
            If Not Gefunden Is Nothing Then
                Erste = Gefunden.Address
                Do    'für alle Fundstellen
                    Worksheets("T4").Cells(Y, "B").Value = Gefunden.Offset(0, 1).Value
                    Y = Y + 1
                    Set Gefunden = .FindNext(Gefunden)
                Loop Until Gefunden.Address = Erste
            End If
        Next Flurbin
    End With
End Sub