Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nur sichtbare Zellen addieren

Gruppe

Format

Problem

Wie kann ich von einem vorgegebenen Bereich nur die sichtbaren Zellen summieren lassen?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function NettoSumme(rngAll As Object)
   Dim rngAct As Range
   Dim dValue As Double
   For Each rngAct In rngAll.Cells
      If Rows(rngAct.Row).Hidden = False Then
         dValue = dValue + rngAct.Value
      End If
   Next rngAct
   NettoSumme = dValue
End Function