Gruppe
Allgemein
Problem
Wenn der Wert der jeweiligen Zelle in Spalte A von dem der darüberliegenden Zelle abweicht, soll eine Adddition eingefügt werden.
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