Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel Makro VBA Werte dividieren, Code kürzen

Excel Makro VBA Werte dividieren, Code kürzen
01.12.2014 12:46:54
braun
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Makro VBA Werte dividieren, Code kürzen
01.12.2014 13:00:50
AndrRo
Hallo Braun
ungetestet:
For Each rng In Range("C15:P29").Cells
rng.Value = rng.Value / ((rng.row-14) / 2)
Next rng
gruss AndrRo

AW: Excel Makro VBA Werte dividieren, Code kürzen
01.12.2014 13:30:38
braun
Super, vielen Dank euch beiden :)
kurze Frage: Warum rng.Row - 14 / 2 ?=)
wo steht das mit den 0,5er Schritten?
Viele Grüße :)

AW: Excel Makro VBA Werte dividieren, Code kürzen
01.12.2014 14:14:01
AndrRo
es ist egal ob ich mal 0.5 oder durch 2 rechnet.
der Kehrwert von 0.5 ist 2.
Mathematik 4. Klasse

AW: Excel Makro VBA Werte dividieren, Code kürzen
01.12.2014 13:02:03
Klaus
Hallo Braun,
im Prinzip so (ungetestet):
Dim rng As Range
Dim i As Long
For i = 15 To 84
For Each rng In Range("C" & i & ":P" & i).Cells
rng.Value = rng.Value / ((i - 14) * 0.5)
Next rng
Next i
Grüße,
Klaus M.vdT.

Anzeige
AndrRo's Lösung ist besser!
01.12.2014 13:06:01
Klaus
Hallo AndrRo,
(rng.row-14) ist eine nette Idee um die zweite Schleife zu sparen, warum bin ich da nicht drauf gekommen?
Grüße,
Klaus M.vdT.

AW: AndrRo's Lösung ist besser!
01.12.2014 13:41:35
braun
Super, vielen Dank euch beiden :)
kurze Frage: Warum rng.Row - 14 / 2 ?=)
wo steht das mit den 0,5er Schritten?
Viele Grüße :)

AW: AndrRo's Lösung ist besser!
01.12.2014 13:56:29
Rudi
Hallo,
Warum rng.Row - 14 / 2
genauer gesagt (rng.Row - 14) / 2
wo steht das mit den 0,5er Schritten?
im Code ;-)
Rng.Row = 15, 16, 17, ...
(rng.Row - 14 )= 1, 2, 3, ....
(rng.Row - 14)/2 = 0,5, 1, 1,5, ...
Gruß
Rudi

Anzeige
AW: AndrRo's Lösung ist besser!
01.12.2014 14:18:12
braun
Danke :)
Ich habe jetzt allerdings von C95 - P165 das gleiche Spielchen, nur dass man als erstes durch 35,5 teilen muss, und dann geht es weiter in 0,5er-Schritten (36,36.5,..)
For Each rng In Range("C95:P165").Cells
rng.Value = rng.Value / ((rng.Row - 94) / ?)
Next rng
Was kann ich dort einfügen, das es passt?
Vielen Dank im Voraus

AW: AndrRo's Lösung ist besser!
01.12.2014 14:21:36
braun
das wäre dann wahrscheinlich dieser code?
For Each rng In Range("C95:P165").Cells
rng.Value = rng.Value / ((rng.Row - 24) / 2)
Next rng
VG

genau! owT
01.12.2014 14:33:15
Rudi
warum fragst du und probierst es nicht einfach aus?
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige