Modifizierter Filter_Switch
28.07.2007 22:38:32
Peter
Nachfolgenden Filterswitch hat mit Nepumuk zur Verfügung gestellt. Läuft super.
Nun möchte ich noch einen modifizierten Switch und zwar möchte ich wechseln zwischen:
.Rows(1).AutoFilter Field:=1, Criteria1:="=S"
und
.Rows(1).AutoFilter Field:=1, Criteria1:="=F"
Dabei müsste ich ja wohl die Criteria1 abfragen können, um dann das jeweilige andere Kriterum zu wählen.
Kann mir da jemand helfen?
Danke, Peter
Sub Filter_Switch2()
Dim strASN As String
strASN = ActiveSheet.Name
With Worksheets("K_Anlagen")
.Select
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
Else
.Rows(1).AutoFilter Field:=1, Criteria1:="=S"
End If
End If
End With
Worksheets(strASN).Activate
End Sub