wie kann ich bei folgendem Code die 1 durch 'alle Zellen der Zeile' ersetzen, da mein Suchbegriff "Haus" irgendwo in der Zeile stehen kann.
With Worksheets("Liste")
Do While .Cells(z, 1) = "Haus"
z = z + 1
Loop
Rows(ActiveCell.Row).Copy .Range("A" & z)
End With
gruß otto