per Makro alle Zeilen und Spalten einblenden

Question

Hallo,

ich bräuchte ein Makro, das im aktiven Tabellenblatt alle ausgeblendeten Zeilen und Spalten einblendet

und auch eine Filterung der Daten soll aufgehoben werde (NICHT die Filterung selbst).

Vielen Dank im Voraus. Oskar

Answer 1

Hi Oskar,

z.B. so:

Sub AllesEinblenden()
    With ActiveSheet
        If .AutoFilterMode Then .AutoFilter.ShowAllData
        .Rows.Hidden = False
        .Columns.Hidden = False
    End With
End Sub

Bis später, Karin

Answer 2

Danke Karin,

läuft auch super.

Viele Grüße

Oskar