|
Jetzt ist mir doch was aufgefallen, es fehlt noch ein Teil und zwar der mit sumCell:
So in die Richtung, weiß aber nicht wie und wo ich den noch einfügen soll:
Set rng = Range(Cells(R, 4), Cells(R, 8))
rng.ClearContents
If .Value <> "x" Then .Value = "x"
sumCell = (8 - C) * Cells(R, 3) 'Summe
Der Code soll für alle Zeilen der Tabelle bis 33 laufen und betrifft diese Mal die Spalten D-H (anstatt D-G). Steht in D ein "x" soll dieses als "4" erkannt werden und mit dem Wert in C multipliziert werden. Das Ergebnis soll dann in die Spalte K eingetragen werden.
Ein "x" in E wird als "3"
eine "x" in F wird als "2"
ein "x" in G wird als "1"
ein "x" in H wird als "0" anererkannt und mit dem WErt aus C multipliert und in K eingetragen.
So soll mit jeder Zeile bis 33 verfahren werden.
Kann man das noch intergrieren oder schreibt man da ein weiteres Sub? Der Code bezieht sich ja hier auf einen größeren Bereich und mit der Deklaration komm ich auch nicht zurecht!
DANKE
|