Hallo,
dieses Makro funktioniert in aktiven Tabellenblatt gut nur nach Anwendung des Filters leider nicht mehr auf den gefilterten Bereich. Habt ihr einen Tipp für mich, was ich ändern muss??
Danke und VG Tom

Sub SpaltenAusblenden()
Dim sp As Long
Set Bereich = ActiveSheet.Range("A1:Z106").SpecialCells(xlCellTypeVisible)
For sp = 1 To ActiveSheet.UsedRange.Columns.Count
If WorksheetFunction.CountA(Columns(sp)) = 1 Then Columns(sp).Hidden = True
Next
End Sub