Clever-Excel-Forum

Hallo Forum,
Mit folgendem Code möchte ich mehrere Tabellen per Eingabe des Filterkriteriums in einer InputBox filtern.
Bei herkömmlichen Tabellen funktioniert das auch, aber bei intelligente Tabellen nicht.
Gib es eine Möglichkeit das es auch bei intelligenten Tabellen funktioniert?

Code:
Sub FilterInDreiBlättern()

Dim Kriterium

Dim Tabelle As Worksheet

Set Tabelle = ActiveSheet

Kriterium = InputBox("Bitte Auswahlkriterium eingeben", , "AFID")

    Sheets(2).Select

    Selection.AutoFilter Field:=1, Criteria1:=Kriterium

    Sheets(3).Select

    Selection.AutoFilter Field:=1, Criteria1:=Kriterium

    Sheets(4).Select

    Selection.AutoFilter Field:=1, Criteria1:=Kriterium

    Sheets(5).Select

    Selection.AutoFilter Field:=1, Criteria1:=Kriterium

    Sheets(6).Select

    Selection.AutoFilter Field:=1, Criteria1:=Kriterium

    Sheets(7).Select

    Selection.AutoFilter Field:=1, Criteria1:=Kriterium

    Sheets(8).Select

    Selection.AutoFilter Field:=1, Criteria1:=Kriterium

    Tabelle.Select

End Sub

im Code wird

Code:
Selection.Autofilter Field:=1, Criterial:=Kriterium

gelb markiert und es wird ein Laufzeitfehler angezeigt.

Laufzeitfehler '1004'

Dies kann nicht auf den ausgewählten Bereich angewendet werden.
Wählen Sie eine einzelne Zelle innerhal eines Bereiches aus, und versuchen sie es dann noch mal.

Besten dank im Voraus
omron2003

Hallo,

auch hier stellt sich wieder die Frage, ob der Dateiaufbau sinnvoll ist. Gleichartige Daten gehören in eine Liste.

nun die Daten sind aus verschiedenen SQL Tabellen, die einens gemeinsam haben und das wäre die Auftragsnummer, also alle Tabellen besitzen eine Spalte mit der Auftragsnummer die je nach Tabelle ein oder mehrfach vorkommen kann.
Ich suche nun einen Weg diese in Excel entweder als einzelne Liste oder wie beschrieben über den AutoFilter an die Daten einer Auftragsnummer ran zu kommen.

Gruß
omron2003

Hallo,

wie so oft, eine Beispieldatei hilft helfen.

Hallo,

du musst das bei "ListObjects" anders ansprechen. Mal ein Link aus dem Nachbarforum:

Filtern...

Kommst du damit klar?

omron2003

Klaus-Dieter

omron2003

Klaus-Dieter

Case