Supportnet / Forum / Tabellenkalkulation
Alternierdende Steps in einem Excel Makro
Frage
Hallo allerseits!
Ich habe folgendes Problem mit einem Excel Makro: Ich möchte bei folgender Berechnung den Step alternieren (d.h. beim ersten Durchlauf 96, beim 2. Durchlauf 98,...):
Sub Standby-Lösung()
Sheets("Messung").Select
x = 11
For s = 775 To 100000 Step 97
Cells(x, 27).Select
ActiveCell.FormulaR1C1 = "=MEDIAN(R" & s & "C6:R" & s + 6 & "C6)"
x = x + 1
Next s
End Sub
nun habe ich folgendes hinzugefügt:
Sub Standbylösung()
Sheets("Messung").Select
y = 98
x = 11
For s = 775 To 100000 Step y
y = (x Mod 2)
If y = 0 Then y = 96
If y > 0 Then y = 98
Cells(x, 26).Select
ActiveCell.FormulaR1C1 = "=MEDIAN(R" & s & "C3:R" & s + 6 & "C3)"
x = x + 1
Next s
End Sub
Das Problem, das sich ergibt ist nun folgendes: der Step nimmt immer den Wert an, den ich vor der Schleife angegeben habe und verändert sich nicht. Wenn ich aber y erst in der Schleife definiere, dann bekomme ich einen Laufzeitfehler.
Wahrscheinlich liegt es an der Anordnung der Befehle, aber ich komme einfach nicht darauf.
Ich wäre sehr erfreut, wenn jemand mein "triviales" Problem lösen könnte!
Danke, Reinhard
Antwort 1 von Mako
Hallo an Alle!
Hab nun ein Ergebnis, falls es jemanden interessiert:
[CODE]Sub test3()
Sheets("Messung").Select
x = 3
y = 90
For s = 775 To 100000 Step y
While s < 100000
y = IIf((x Mod 2) = 0, 90, 100)
s = s + y
Cells(x, 14).Value = y
Cells(x, 15).Select
ActiveCell.FormulaR1C1 = "=MEDIAN(R" & s & "C4:R" & s + 18 & "C4)"
x = x + 1
Wend
Next s
End Sub
[/CODE]
thanx and cu, reinhard
Hab nun ein Ergebnis, falls es jemanden interessiert:
[CODE]Sub test3()
Sheets("Messung").Select
x = 3
y = 90
For s = 775 To 100000 Step y
While s < 100000
y = IIf((x Mod 2) = 0, 90, 100)
s = s + y
Cells(x, 14).Value = y
Cells(x, 15).Select
ActiveCell.FormulaR1C1 = "=MEDIAN(R" & s & "C4:R" & s + 18 & "C4)"
x = x + 1
Wend
Next s
End Sub
[/CODE]
thanx and cu, reinhard