excel vba filter mit einem steuerelement aus und wieder einschalten

Question

Guten Tag, ich möchte diese Filter Makro mit denselben Steuerelement aus und wieder einschalten. Bitte um Hilfe und Vervollständigung. Danke

Sub Filter_C()
ActiveSheet.Range("$c$4:$c$33").AutoFilter Field:=1, Criteria1:="<>", VisibleDropDown:=True

   Dim z As Long   'Erste Sichtbare Zeile
         For z = 4 To Cells.SpecialCells(xlCellTypeLastCell).Row   'Zeile 4
         If Rows(z).Hidden = False Then
         Cells(z, 3).Select 'Spalte C
         Exit For
      End If
   Next z

End Sub

Answer 1

Hi Jelena,

meinst du so:

Sub Filter_C()
    With ActiveSheet.Range("$c$4:$c$33")
        If ActiveSheet.FilterMode Then
            .AutoFilter field:=1
        Else
            .AutoFilter field:=1, Criteria1:="<>", VisibleDropDown:=True
            Range("C4").Select
       End If
    End With
End Sub

Bis später, Karin

Answer 2

Hallo Karin, ja so meinte ich. Danke