Funktion zur Prüfung ob Spalte ausgeblendet
11.03.2015 08:58:40
Johannes
In einem Berichtswesen mit Formelberichten will ich jeweils nur sichtbare Zellen aktualisieren. Dies spart Performance.
Eure Hilfe zum Beitrag:
"mit Formel abfragen, ob Zeile ausgeblendet ist?"
war sehr hilfreich für mich.
Hier noch einmal die Lösung:
Function ISTAUSGEBLENDET(rngParam As Range) As Boolean
' TRUE wenn ALLE Zellen im Bereich ausgeblendet sind
Dim r As Range, blnVisible As Boolean
For Each r In rngParam
If Not r.EntireRow.Hidden Then
blnVisible = True
Exit For
End If
Next r
ISTAUSGEBLENDET = Not blnVisible
End Function
Könnt ihr mir weiterhelfen?
Anzeige