Makro erweitern auf alle Tabellenblätter
08.02.2017 17:07:53
Andreas
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.