Office: Prüfen ob Zeilen oder Spalten ausgeblendet sind

kryox · 7. Mai 2015

Hallo zusammen,

@snowboarder: Danke! genau danach habe ich gesucht:

Code:

Sub test()
With ActiveSheet
If Cells.CountLarge Cells.SpecialCells(xlCellTypeVisible).CountLarge Then
Select Case MsgBox("Es sind noch Zellen ausgeblendet. Einblenden?", vbYesNo)
Case vbYes
If .FilterMode Then .ShowAllData
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
Case Else
End Select
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 7. Mai 2015

Hi Luschi,

wenn ich das richtig verstehe, können bei bedingter Kompilierung keine Variablen zur Laufzeit belegt werden - deshalb funktioniert die "eigentlich logische" Verzweigung auch nicht.

In den Excel-Versionen vor 2007 springt der Code übrigens sofort von With ActiveSheet zu End With.

Beverly · 7. Mai 2015

Hi,

nur als Hinweis: wenn du die Mappe in allen Excel-Versionen einsetzen willst, dann löst dieser Code vor 2007 einen Fehler aus - in den Versionen ab 2007 gibt es damit kein Problem.

slowboarder · 8. Mai 2015

Hi

dann hier mal ein Code, der in allen Excelversionen funktioniert:

Code:

Sub test()
Dim rngAll As Range
Dim rngVis As Range

With ActiveSheet

If .Columns.Count > .Cells.SpecialCells(xlCellTypeVisible).Rows(1).Cells.Count _
Or .Rows.Count > .Cells.SpecialCells(xlCellTypeVisible).Columns(1).Cells.Count Then

Select Case MsgBox("Es sind noch Zellen ausgeblendet. Einblenden?", vbQuestion + vbYesNo)
Case vbYes
If .FilterMode Then .ShowAllData
.Columns.Hidden = False
.Rows.Hidden = False
Case vbNo
End Select
End If

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Daniel

Beverly · 8. Mai 2015

Einen weiteren Code gibt es bereits einige Beiträge weiter oben: Link zum Beitrag 07.05.2015, 20:09 - falls das untergegangen ist...*wink.gif*

Office: Prüfen ob Zeilen oder Spalten ausgeblendet sind

Prüfen ob Zeilen oder Spalten ausgeblendet sind

Prüfen ob Zeilen oder Spalten ausgeblendet sind

Prüfen ob Zeilen oder Spalten ausgeblendet sind

Prüfen ob Zeilen oder Spalten ausgeblendet sind - Similar Threads - Prüfen Zeilen Spalten

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

Alle Zeilen durchlaufen und prüfen

Wenn-Oder Funktion soll bei Falsch die nächste Zeile prüfen(Excel 2003)

Zeile durchlaufen, Wert Prüfen und kopieren

Inhalt prüfen und Zeilen zählen

Vollständigkeit einer Zeile prüfen