Ich sollte für eine etwas komplexe Tabelle eine Funktion analog der Formel "Teilergebnis" erarbeiten - nur mit dem Unterschied, dass ausgeblendete Spalten nicht berücksichtigt werden sollten (im Gegensatz zur Formel "Teilergebnis", welche mit der Option 109 ausgeblendete Zeilen nicht berücksichtigt).
Über die letzten Tage bin ich soweit gekommen, dass es für einen zusammenhängenden Bereich funktioniert:
Function TEILERGEBNIS2(rng_ As Range) As Double
Application.Volatile
Dim Zelle As Range
For Each Zelle In rng_
If IsNumeric(Zelle) Then
If Zelle.EntireColumn.Hidden = False Then
TEILERGEBNIS2 = TEILERGEBNIS2 + Zelle
End If
End If
Next
End Function
Nun sollte ich aber die Funktion so erweitert haben, dass ich mindestens 20 nicht zusammenhängende Bereiche abdecken kann. Leider komme ich aber auf keine Weise auch nur soweit, dass ich nur schon 2 nicht zusammenhängende Bereiche abdecken kann.
Kann mir jemand helfen? Vielen herzlichen Dank im Voraus!