2 Spalten per WksChange und Zelleingabe steuern?
19.06.2017 16:46:18
TiloT
ich möchte gerne den Autofilter in 2 oder mehr Spalten durch Eingabe des Suchwertes in der ersten Zeile steuern per WksChange!
Mit einem WksChange komm ich klar!
Aber wie verschachtel ich das wenn die beiden Filter gemeinsam laufen sollen bzw. sich dann ja auch bedingen?
Gerne für Spalte C bis H, falls das zu viel ist bitte für C und D
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 And Target.Row = 1 Then
If Target.Value "" Then
Selection.AutoFilter Field:=3, Criteria1:=Range("C1").Value
Else
FilterAufheben
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 And Target.Row = 1 Then
If Target.Value "" Then
Selection.AutoFilter Field:=4, Criteria1:=Range("D1").Value
Else
FilterAufheben
End If
End If
End Sub
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub Vielen Dank für die Hilfe und Gruß
Tilo
Anzeige