VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Summenbezüge korrigieren

Gruppe

Allgemein

Bereich

Bearbeiten

Thema

Summenbezüge korrigieren

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

    


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