bestimmte Zeilen nach einer Bedingung kopieren
Andre
ich werde noch verrückt mit dem code. Ich möchte gerne bestimme Zeilen von einem Sheet ins nächste kopieren, wenn zwei Bedinungen (mit Oder) erfüllt sind.
Leider klappt meine Schleife irgendwie nicht. i müsste bei jedem Durchgang höher gehen um alle 50k Zeilen zu prüfen und zu kopieren.
Kann mir jemand auf die Sprünge helfen, wo es hakt.
Private Sub copy_Act_Sav()
Dim ActSavprozentMin, ActSavprozentMax As Long
Dim i As Integer
Dim LZDataRow As Integer
Dim Ziel, Quelle As Worksheet
Dim LZData As Range
Application.ScreenUpdating = False
Application.Calculation = xlManual
wb_ziel = ActiveWorkbook.Name
ActSavprozentMin = Workbooks(wb_ziel).Worksheets("Home").Cells(2, 3)
ActSavprozentMax = Workbooks(wb_ziel).Worksheets("Home").Cells(2, 4)
Set Quelle = Workbooks.Item(1).Worksheets("Data")
Set Ziel = Workbooks.Item(1).Worksheets("test")
i = 1
Do Until Quelle.Cells(i, 1) ""
If (ActSavprozentMin > Quelle.Cells(i, 201)) Or (ActSavprozentMax Vielen Dank schon mal im voraus
Gruss
andre