Gruppe
Allgemein
Problem
Wie kann ich aller Werte eines variablen Bereiches der Spalten A und B in Spalte C multiplizieren? Es sollen keine festen Werte, sondern Formeln eingetragen werden.
StandardModule: basMain
Sub Berechnen()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Application.Count(Range(Cells(iRow, 1), _
Cells(iRow, 2))) > 0 Then
Cells(iRow, 3).FormulaR1C1 = "=RC[-2]*RC[-1]"
End If
Next iRow
End Sub