untenstehendes Makro sucht im Sheet "Test", Spalte 2, eine Liste nach den Werten 5 oder 6 ab.
Alle gefunden Werte werden als Block kopiert und auf die Sheets mit dem Namen 5 und 6 kopiert.
Das Makro funktioniert soweit gut.
Jedoch wird im Sheet "Test" die erste Reihe nicht mitkopiert, obwohl in Spalte 2 bereits das Suchkriterium "5" enthalten ist.
Was muss man ändern, damit auch die erste Reihe im Sheet "Test" im Suchbereich mitberücksichtigt wird?
Gruß
Chris
Sub SF()
Dim Zelle1 As Range
Dim Zelle2 As Range
Dim x
With Sheets("Test")
.UsedRange.Sort key1:=.Cells(1, 2), order1:=xlAscending, Header:=xlNo
For Each x In Array("5", "6")
Set Zelle1 = .Columns(2).Find(what:=x, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext)
Set Zelle2 = .Columns(2).Find(what:=x, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious)
Range(Zelle1, Zelle2).Offset(0, -1).Resize(, 4).Copy Worksheets(x).Cells(1, 1)
Next
End With
End Sub