Der untenstehende Code habe ich im Forum gefunden. Wie ist es möglich den Code so auszubauen, damit ich mehrere Teilstrings eingeben kann und in Spalte D danach suche?
Danke und Gruss
Maruseru
Sub test()
Dim such, Bereich
such = "test"
For i = 1 To 8
If InStr(1, Cells(i, 1).Value, such, 1) Then
Bereich = Bereich + Cells(i, 1).AddressLocal(False, False) & ","
End If
Next
Bereich = Left(Bereich, Len(Bereich) - 1)
Range(Bereich).EntireRow.Copy Destination:=Worksheets("Tabelle2").Cells(1, 1)
End Sub