Zeilen verschieben wenn Bedingung erfüllt
16.02.2017 10:37:06
Georg
Folgender code macht nicht exakt, das was ich möchte. Es scheitert an meinen wenigen VBA Kenntnissen:
1. Es soll ein bestimmter Wert abgefragt werden(gleich oder kleiner): momentan w, es handelt sich eig. um einen Zeitwert von 10 Sekunden, ich hab es in eine Zahl umgewandelt. Lieber wäre mir aber wenn eine bestimmte Zelle, wo der Wert drin steht abgefragt wird.
2. Die Zeilen sollen nicht kopiert werden, sondert verschoben z. B. nach Tabellenblatt "Kleiner"
3. Wenn der Code durchläuft, werden vier Zeilen kopiert, es müssten aber 192 Zeilen gefunden werden, die diesen wert oder kleiner haben. (Hab ich über Filterfunktion überprüft. Ursache mir nicht klar?)
4. Schön wäre - aber kein MUSS - wenn man das dynamisch gestalten könnte mit rows.Count oder so. Momentan sind es immer 2000 Zeilen, aber das kann sich ändern.
Sub test()
Dim a As Long
Dim i As Long
Dim w As Long
w = 1.15740740740741E-04
Application.ScreenUpdating = False
a = 2
For i = 1 To 2001
With Worksheets(1)
If .Cells(i, "D")