in meiner Tabelle gibt es verschiedene Tabellenblätter gleichen Aufbaus. Jedes Tabellenblatt _
enthält Autofilter. Ich nutze ein zentrales Auswertungsblatt um die Autofilter in allen Blätten _
gleichzeitig mittels eines Makros zu steuern. Folgendes Makro wird hierfür verwendet:
Sub Tabellenfilter()
Dim Kriterium
Dim Tabelle As Worksheet
Set Tabelle = ActiveSheet
Kriterium = InputBox("Bitte Auswahlkriterium eingeben", , "Hafen")
Sheets("Tabelle 1").Select
Selection.AutoFilter Field:=6, Criteria1:=Kriterium
Sheets("Tabelle 2").Select
Selection.AutoFilter Field:=6, Criteria1:=Kriterium
Sheets("Tabelle 3").Select
Selection.AutoFilter Field:=6, Criteria1:=Kriterium
Sheets("Tabelle 4").Select
Selection.AutoFilter Field:=6, Criteria1:=Kriterium
Tabelle.Select
End Sub
Soweit funktioniert dies auch gut. Allerdings wäre es schöner wenn ich nicht jedes mal einen Hafen in die Inputbox eingeben müsste, sondern aus einer Drop Down Tabelle die gültigen Werte auswählen könnte. Die entsprechenden Werte würden sich in (Tabelle 1 A11:A5000) befinden. Hin diesem Bereich befinden sich allerdings auch Mehrfachnennungen, so dass eine Konsolidierung wie beim Excel-Autofilter sinnvoll wäre.
Geht das überhaupt?
Vielen Dank für eure Hilfe
Sebastian