Filtern in einer zweiten Tabelle
20.08.2017 09:35:57
Christian
ich habe zwei Tabellen, in der Tabelle Kennzahlen soll ein Filter Kriterium eingegeben werden, mit dem in der Tabelle Filter_Tage gefiltert werden soll.
Zum Beispiel steht in der Tabelle Kennzahlen in der Zelle B1 eine 1, dann soll in der Tabelle Filter_Tage die Werte nach der 1 gefiltet werden.
Dieser Code liegt bereits in der Tabelle Filter_Tage
Private Sub Worksheet_Change(ByVal Target As Range)
' Eingabezelle ist D45, falls mehrere selektiert dann wenn 1. markierte Zelle D45
If Target.Cells(1).Address(False, False) = "D45" Then
' prüfen ob Autofilter vorhanden ist sond auf A6 Autofilter setzen
If Not ActiveSheet.AutoFilterMode Then Range("A6").CurrentRegion.AutoFilter
' Eingabe in D45 ist nicht leer
If Target "" Then
' Autofilter setzen
Range("A6").AutoFilter field:=1, Criteria1:=Target.Value
Else
' Filterung aufheben
ActiveSheet.AutoFilter.ShowAllData
End If
End If
End Sub
Habt ihr eine Idee?
Anbei eine Beispieldatei:
https://www.herber.de/bbs/user/115594.xlsm
Viele Grüße und vielen Dank für euren Support
Christian