Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Summenbezüge korrigieren

Gruppe

Bearbeiten

Problem

Beim Löschen von Zeilen kommt es zu Fehlermeldungen bei Summenbezügen. Kann ich diese Fehler korrigieren?

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

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