Filterpfeile entfernen

[derHoepp]

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

[Kuwer]

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