Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Schaltet Autofilter für Spalte 5 mit dem unter dem Cursor liegenden Wert ein / aus
If Selection.Column <> 5 Then Exit Sub
Kundennr = Selection.Value
c1 = ""
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(5)
If .On Then c1 = .Criteria1
End With
End If
End With
If c1 = "" Then Selection.AutoFilter Field:=5, Criteria1:=Kundennr Else Selection.AutoFilter Field:=5
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Schaltet Autofilter für Spalte 5 mit dem unter dem Cursor liegenden Wert ein / aus
If Selection.Column <> 5 Then Exit Sub
Kundennr = Selection.Value
c1 = ""
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(5)
If .On Then c1 = .Criteria1
End With
End If
End With
If c1 = "" Then Selection.AutoFilter Field:=5, Criteria1:=Kundennr Else Selection.AutoFilter Field:=5
End Sub