Hi

Ich habe ein Makro das für meine Zwecke super funktioniert. Dies würde ich aber gern so umgeschrieben haben, das es nach der Zahl "1" in allen Tabellenblättern sucht und nicht nur in Tabelle1. Ich bin mir sicher, ihr könnt mir da helfen.

Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 8

For Zeile = 2 To ZeileMax

If .Cells(Zeile, 1).Value = "1" Then

.Rows(Zeile).Copy Destination:=Tabelle9.Rows(n)
n = n + 1

End If
Next Zeile
End With
End Sub

Wenn das geht, würde ich auch noch gerne wollen, das das Makro nicht nur nach "1" sucht, sondern gleichzeitig auch noch nach "2" und "3"

Danke schon mal für eure Hilfe.