Nepumuk hatte mir schon weitergeholfen mit folgendem Code
With Worksheets(1).Range("A:D")
Set Ergebnis = .Find(SearchStr, LookAt:=xlWhole, LookIn:=xlValues)
If Not Ergebnis Is Nothing Then
ersteAdresse = Ergebnis.Address
Do
.Range(.Cells(Ergebnis.Row, 1), .Cells(Ergebnis.Row, 4)).Copy _
Destination:=wksZ.Cells(Z + 1, 1)
Z = Z + 1
Set Ergebnis = .FindNext(Ergebnis)
Loop Until Ergebnis.Address = ersteAdresse
End If
End With
Der funktioniert auch soweit super.
Wenn ich allerdings den zu durchsuchenden Range folgendermaßen aufbaue wird als Ergebnis = _ Nothing zurückgegeben.
With Worksheets(1).Range(Cells(2,1),Cells(CelLCount,4))
Noch besser wird es wenn ich den Range nur auf eine Spalte
With Worksheets(1).Range("D:D")
beschränken will.Dann wird Spalte 7 bis Spalte 10 kopiert.
Ich verstehe es leider nicht.
Kann mir jemand, vielleicht auch wieder Nepumuk, helfen und erklären?
Vielen lieben Dank
Gruß Frank