|
Du denkst vieel zu kompliziert:
Public sub Schleife(x as integer)
dim z
for z=aktZeile to ersteZeile step -1
if x=0 and Cells(aktZeile, 8) > 100 then Exit For
if x=1 and Cells(aktZeile, 8) > (Cells(aktZeile, 9) then then Exit For
if x=2 and Cells(aktZeile, 8) > (Cells(aktZeile, 10) then then Exit For
next z
Worksheets("Messergebnis").Cells(n, 3).Value = Cells(aktZeile - 1, Datum)
End Sub
Aufruf mit:
call Schleife(0)
call Schleife(1)
call Schleife(2)
|