Ich habe folgendes Problem ich habe eine sehr lange Tabelle die gefiltert werden soll, leider sind die Bediener nicht sehr PC Affin und scheitern an der Bedienung der Filterfunktion. Meine Lösung sind dafür Eingabefelder die dementsprechend alles Filter würden, leider steht aber nur die Version 2013 zu Verfügung die FILTER() - Funktion fählt leider aus.
Ich habe auch geschafft die Felder auszulesen und zu zurück zusetzen, aber ich scheitere an einer If-Funtion das leere Felder ignoriert werden. Ich hoffe ihr könnt mir auf die Sprünge helfen.
Ganz großes Kino wäre natürlich, wenn die Buttonklickerei wegfallen würde.
Filter-Button
Sub Makro2()
' Filtern der Ergebnisse nach Zelleneingaben
Dim Filter1 As String
Dim Filter2 As String
Dim Filter3 As String
Dim Filter4 As String
If Filter1 = "" Then
Filter1 = Range("A3")
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=1, Criteria1:=Filter1
Filter2 = Range("B3")
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=2, Criteria1:=Filter2
Filter3 = Range("C3")
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=3, Criteria1:=Filter1
Filter2 = Range("D3")
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=4, Criteria1:=Filter2
End Sub
Rücksetz-Button
Sub Makro4()
' Makro4 Makro
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=1
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=2
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=3
ActiveSheet.Range("$A$5:$D$9").AutoFilter Field:=4
End Sub