Thema: Summenbezüge korrigieren

StandardModule: Modul1

Sub NeuSummieren()
   Dim iRowL As Integer, iRow As Integer, iStart As Integer
   Dim sFormula As String
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row - 1
   iStart = 1
   For iRow = 1 To iRowL
      If IsError(Cells(iRow, 2)) Then
         Cells(iRow, 2).Formula = _
            "=SUM(B" & iStart & ":B" & iRow - 1 & ")"
         iStart = iRow + 1
         sFormula = sFormula & Cells(iRow, 2).Address & ","
      End If
   Next iRow
   sFormula = Left(sFormula, Len(sFormula) - 1)
   Cells(iRowL + 1, 2).Formula = "=SUM(" & sFormula & ")"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten