Hallo
mit diesem Macro kopiere ich Zeilen wenn Inhalt "1234"
was muss ich anpassen wenn ich Zeilen "1234" + "2345" + "3456" ...
auch kopieren will
Sub datcopy()
Dim ByI As Integer
Dim InSpalte As Integer
Dim LoZeile As Integer

LoZeile = 8
InSpalte = 1
With Worksheets("All")
For ByI = 8 To 4000
If .Cells(ByI, 7) = "1234" Then
.Range(Cells(ByI, 1), Cells(ByI, 16)).Copy _
Destination:=Worksheets("Diverse").Cells(LoZeile, InSpalte)
LoZeile = LoZeile + 1
End If
Next ByI
End With
Danke für Lösungsansatz
gruss geri