Mit ListBox nach Wert Filtern
11.04.2018 14:29:47
Maxi
ich habe eine ListBox und möchte nun einen Wert in der ListBox anklicken, dan auf den Button "Filtern" klicken und nach dem ausgewählten Wert in zwei Tabellen filtern. Die Tabellen heißen Tabelle NEU und Tabelle ALT.
Wenn ich den Wert nach dem gefiltert werden soll explizit angeben, funktioniert es einwandfrei. Die Filterung ist also nicht das Problem.
Wenn ich aber den Wert nicht explizit angeben, sondern versuche ihn aus der ListBox zu holen, bekomme ich den Fehler:
Laufzeitfehler 13: Typen unverträglich
In der Zeile: Filter = ActiveCell.Value
Offenbar kann ich also den ActiveCell Wert der ListBox nicht in dem String "Filter" speichern.
Hat jemand ne Ahnung?
Danke euch.
Sub Typ_Filter()
Dim Filter As String
Range("X16").Select 'Hier steht die ListBox
Filter = ActiveCell.Value
Sheets("Tabelle NEU").Select
ActiveSheet.Range("$A$2:$AP$1168").AutoFilter Field:=1, Criteria1:="=*" _
, Operator:=xlAnd
Sheets("Tabelle ALT").Select
ActiveSheet.Range("$A$2:$AK$1168").AutoFilter Field:=1, Criteria1:="=*" _
, Operator:=xlAnd
Sheets("Tabelle NEU").Select
ActiveSheet.Range("$A$2:$AP$1168").AutoFilter Field:=1, Criteria1:=Filter
Sheets("Tabelle ALT").Select
ActiveSheet.Range("$A$2:$AK$664").AutoFilter Field:=1, Criteria1:=Filter
Sheets("Analyse").Select
Range("V18").Select
ActiveCell.FormulaR1C1 = "Differenz - 28 Vergleich - Tp"
Range("V19").Select
Call filtertyp
End Sub