ich habe in einer Tabelle Formeln stehen, die in der gleichen Zeile Informationen abfragt und dementsprechend bestimmte Zahlen wiedergibt. Diese Zahlen möchte ich Filtern. In einem Auswahlmenü wählt man ein Filterkriterium aus, welches eine Zahl in der Zelle "Nummer_gewaehlt" wiedergibt. Dieser Inhalt der Zelle möchte ich in der Tabelle filtern. Dazu habe ich bislang folgendes:
Private Sub Auswahl_Change()
Application.ScreenUpdating = False
Call Modul13.AlleFilterAus
Sheets("Anzeige").Select
Dim variabl As Range
Set variabl = Range("Nummer_gewaehlt")
ActiveSheet.ListObjects("ArbPlatz").Range.AutoFilter Field:=1, Criterial:=Worksheets("Anzeige").Range("Nummer_gewaehlt")
Range("A1").Select
Call Modul5.AnzFrban
Application.ScreenUpdating = True
End Sub
Funzt aber nicht.Hat jemand eine Idee?