VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nur sichtbare Zellen addieren

Gruppe

UDF

Bereich

Format

Thema

Nur sichtbare Zellen addieren

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Format