Guten Tag,
folgender Code würde sich bis C84:P84 ziehen..
Dim rng As Range
For Each rng In Range("C15:P15").Cells
rng.Value = rng.Value / 0.5
Next rng
For Each rng In Range("C16:P16").Cells
rng.Value = rng.Value / 1
Next rng
For Each rng In Range("C17:P17").Cells
rng.Value = rng.Value / 1.5
Next rng
For Each rng In Range("C18:P18").Cells
rng.Value = rng.Value / 2
Next rng
For Each rng In Range("C19:P19").Cells
rng.Value = rng.Value / 2.5
Next rng
For Each rng In Range("C20:P20").Cells
rng.Value = rng.Value / 3
Next rng
For Each rng In Range("C21:P21").Cells
rng.Value = rng.Value / 3.5
Next rng
For Each rng In Range("C22:P22").Cells
rng.Value = rng.Value / 4
Next rng
For Each rng In Range("C23:P23").Cells
rng.Value = rng.Value / 4.5
Next rng
For Each rng In Range("C24:P24").Cells
rng.Value = rng.Value / 5
Next rng
For Each rng In Range("C25:P25").Cells
rng.Value = rng.Value / 5.5
Next rng
For Each rng In Range("C26:P26").Cells
rng.Value = rng.Value / 6
Next rng
For Each rng In Range("C27:P27").Cells
rng.Value = rng.Value / 6.5
Next rng
For Each rng In Range("C28:P28").Cells
rng.Value = rng.Value / 7
Next rng
For Each rng In Range("C29:P29").Cells
rng.Value = rng.Value / 7.5
Next rng
Der Wert der dividiert wird erhöht sich immer um 0,5.
gibt es eine Möglichkeit, diesen Code zu kürzen?
Viele Grüße