Ich möchte eine SummenFormel, die manuell (rechter mausklick und ausblenden) ausgeblendete Zellen nicht berücksichtigt. Mit TEILERGEBNIS(9;C1:C100) funktioniert dies in Excel 2000 leider nicht.
Vielen Dank für die Hilfe
Function MySum(rng As Range)
Dim rngAct As Range
Dim dValue As Double
For Each rngAct In rng
If IsNumeric(rngAct.Value) Then
If rngAct.EntireRow.Hidden = False Then
dValue = dValue + rngAct.Value
End If
End If
Next rngAct
MySum = dValue
End Function