Gruppe
UDF
Problem
Wie kann ich von einem vorgegebenen Bereich nur die sichtbaren Zellen summieren lassen?
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