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
Jetzt brauche ich noch eine zweite Funktion zur Abfrage ob die Spalte sichtbar ist. Einfach nur EntireRow mit EntireCollumn zu ersetzen hat nicht funktioniert.Könnt ihr mir weiterhelfen?