Clever-Excel-Forum

Seiten: 1 2

Moin,

mit zwei nebeneinanderliegenden Listobjekten/Strg+T-Tabellen könnte man eine leere Spalte einfügen und hätte das Autofilterverhalten simuliert.

Viele Grüße
derHöpp

Hallo J-Bee,

mit folgendem Makro kann man das erreichen:

Code:
Sub AusEinBlenden()

  Dim i As Long, rngAFDaten As Range

  With ActiveSheet

    If .AutoFilterMode Then

      With .AutoFilter

        Set rngAFDaten = .Range.Offset(1).Resize(.Range.Rows.Count - 1)

        For i = 1 To .Filters.Count

          .Range.AutoFilter Field:=i, VisibleDropDown:=Application.CountA(rngAFDaten.Columns(i))

        Next i

      End With

    End If

  End With

End Sub

Gruß Uwe

Seiten: 1 2

derHoepp

Kuwer