Danke für Deine Antwort! Ganz klar ist mir das noch nicht :)
Normal würde mein Programm mehr oder weniger so aussehen:
--> gehe in die unterste Zeile der Liste
Do Until (Cells(aktZeile, 8) > 100)
If aktZeile = ersteZeile Then
Exit Do
End If
aktZeile = aktZeile - 1
Loop
Worksheets("Messergebnis").Cells(n, 3).Value = Cells(aktZeile - 1, Datum)
--> Gehe wieder in die unterste Zeile
Do Until (Cells(aktZeile, 8) > (Cells(aktZeile, 9))
If aktZeile = ersteZeile Then
Exit Do
End If
aktZeile = aktZeile - 1
Loop
Worksheets("Messergebnis").Cells(n, 3).Value = Cells(aktZeile - 1, Datum)
--> Gehe wieder in die unterste Zeile
Do Until (Cells(aktZeile, 8) > (Cells(aktZeile, 10))
If aktZeile = ersteZeile Then
Exit Do
End If
aktZeile = aktZeile - 1
Loop
Worksheets("Messergebnis").Cells(n, 3).Value = Cells(aktZeile - 1, Datum)
Und was mir auffällt, das Fettgedruckte ist doch immer das selbe. Mein Gedanke war nun, diese Do-Schleife nur einmal zu tippen und dann zu sagen, beim ersten Mal machst Du
(Cells(aktZeile, 8) > 100)
beim zweiten Mal
(Cells(aktZeile, 8) > (Cells(aktZeile, 9))
beim dritten Mal
(Cells(aktZeile, 8) > (Cells(aktZeile, 10))
Somit müsste ich diese Schleife nur einmal tippen.
Sollte es hier keine Lösung geben kann ich es aber auch mehrmals untereinander schreiben!?
|