Hallo nochmal.
Ich habe folgenden Code geschrieben um die Werte eines Bereiches zu multiplizieren.
aber irgendwie klappt es nicht. weiß jemand Rat?
Dim a,d as Double
d = 1
For Each wert In Range(Cells(2, 2), Cells(1 + a, 4))
d = d * wert.Value
Next
Gruß
Andy