Danke für den Autofilter Hinweis.
Aber Ich weiß nicht wie ich das Ergebniss Kopieren kann. Bei mir Kopieren sich immer alle Zeilen mit.
Danke aber trotzdem.
Ich habe jetzt eine "Spaghetti-Lösung" gefunden.
Eigentlich durch Versuch, Fehlschlag und Zufall.
' Nach 31 suchen
With Worksheets(QSheet.Name)
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
With Worksheets(QSheet.Name)
Set Kopierange = .Rows(1)
For SuchZeile = 1 To loLetzte
If .Cells(SuchZeile, 10).Value = 31 Then
Set Kopierange = Union(Kopierange, .Rows(SuchZeile))
End If
Next SuchZeile
'Kopierange.Copy Destination:=Worksheets(Ort).Range("A1")
End With
' Nach 61 suchen
With Worksheets(QSheet.Name)
For SuchZeile = 1 To loLetzte
If .Cells(SuchZeile, 10).Value = 61 Then
Set Kopierange = Union(Kopierange, .Rows(SuchZeile))
End If
Next SuchZeile
Kopierange.Copy Destination:=Worksheets(Ort).Range("A1")
End With
Aber trotzdem Danke.
Ihr seht ich ruhe mich nicht auf der Frage aus, sondern Versuche auch Lösungen zu Finden.
Mit dieser Lösung kann man wahrscheinlich auch noch mehr Argumente Suchen.
Tschau
Bernd
|