Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Änderung der Kostenstelle Werte summieren

Gruppe

Berechnen

Problem

Wenn der Wert der jeweiligen Zelle in Spalte A von dem der darüberliegenden Zelle abweicht, soll eine Adddition eingefügt werden.

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

StandardModule: basMain

Sub Summieren()
   Dim rng As Range
   Dim dSum As Double
   Dim iRow As Integer
   Set rng = Cells(Rows.Count, 1).End(xlUp)
   iRow = 3
   Do While rng.Row > iRow
      If Cells(iRow - 1, 1) <> Cells(iRow, 1) Then
         Rows(iRow).Insert
         Cells(iRow, 2) = dSum
         Rows(iRow + 1).Insert
         iRow = iRow + 2
         dSum = 0
      End If
      dSum = dSum + Cells(iRow, 2)
      iRow = iRow + 1
   Loop
End Sub