gibt es eine Möglichkeit per VBA festzustellen, ob irgendeine (mindestens eine) Zeile bzw. Spalte des Tabellenblatts ausgeblendet ist ohne alle Zeilen/Spalten über eine Schleife einzeln abfragen zu müssen?
Vielen Dank schon mal im Voraus,
MiHa
Sub a()
Dim Ws As Worksheet: Set Ws = ActiveSheet
Dim r As Range, br As Boolean, bc As Boolean
With Ws
Set r = .Range(.Cells(1, 1), .Cells(1, .Columns.Count))
If r.SpecialCells(xlCellTypeVisible).Count
LGIf Worksheetfunction.CountA(Columns(1)) = Worksheefunction.SubTotal(103,Columns(1)) Then Msgbox "nichts ausgeblendet"
das entspricht der Formel: =Wenn(Anzahl2(A:A)=Teilergebnis(103;A:A);"nichts ausgeblendet";"")Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(1)
Dim c As Range: Set c = Ws.UsedRange
Dim cRef As Range: Set cRef = Ws.Range("A1")
If c.Width
LG