Worksheetfunction.Product

[ngassanov]

Hallo Zusammen,

ich möchte in VBA mit WorksheetFunction.Product eine Spalte bzw. Range bspw. Range("A!:A4000") mit minus 1 multiplizieren und dann in einer anderen Spalte bzw. in der selben Spalten ausgeben.

Leider kriege ich es nicht hin.

Vielen Dank im Voraus!

[Kuwer]

Hallo,

könntest Du das genauer mit z.B. 3 Zeilen erklären, was Du meinst?

Gruß Uwe

[schauan]

Hallöchen,

1)
In B1 steht der Faktor, Werte der Spalte durch das Ergebnis ersetzen

Code:

Sub Makro_Multi()
    Range("B1").Copy
    Range("A1:A100").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
End Sub

2)
In B1 steht der Faktor, Ergebnisse in anderer Spalte ausgeben
--> Daten in ein Array übernehmen, Werte berechnen, Array an anderer Stelle ausgeben