Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus Spalte A mit Werten aus Spalte B multiplizieren

Gruppe

Berechnen

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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