Autofilter auf Zellnamen

Forumthread: Autofilter auf Zellnamen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Autofilter auf Zellnamen

03.12.2024 16:56:00

Thorsten

Hallo,

mit diesem Code setze ich den Autofilter auf die Zelle C2 und filtere alles mit dem Namen Biogas.

ActiveSheet.ListObjects("Tabelle_Abfrage_von_Assist303").Range.AutoFilter _
Field:=3, Criteria1:="BIOGAS"

Füge ich nun eine Spalte davor ein, wird der Bezug nicht automatisch angepasst.
Kann man den Code so verändern, dass er den Bezug behält? Wenn man den Namen von Zelle C2 auf "Warengruppe" ändert, kann man das in den Code übernehmen, dass der Bezug immer richtig bleibt, wenn man die Spalten verschiebt?

Vielen Dank für eure Hilfe.

Viele Grüße
Thorsten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter auf Zellnamen

03.12.2024 17:02:25

{Boris}
AW: Autofilter auf Zellnamen

03.12.2024 17:04:00

daniel

AW: Autofilter auf Zellnamen

03.12.2024 17:02:25

{Boris}

Hi,

mit Field:=3 gibst Du eine Konstante vor (3). Diese Konstanten musst Du variabel halten.
Ganz einfach z.B. zu Beginn des Codes, indem Du die Konstante einer Variablen zuweist:

Const MeineKonstante As Long = 3

Dann musst Du nur =3 auf =4 ändern, wenn Du ne Spalte eingefügt hast, und codest weiter mit:

Field:=MeineKonstante, Criteria1:="BIOGAS"

Oder Du ermittelst die Filterspalte z.B. mit der Find-Methode (anhand der Überschrift).

VG, Boris

AW: Autofilter auf Zellnamen

03.12.2024 17:04:00

daniel

Hi

du kannst dir über die Überschrift die Spaltennummer ermitteln:

dim sp as long

sp = application.Match("Überschrift der Spalte", ActiveSheet.ListObjects("Tabelle_Abfrage_von_Assist303").Range.Rows(1), 0)

ActiveSheet.ListObjects("Tabelle_Abfrage_von_Assist303").Range.AutoFilter Field:=sp, Criteria1:="BIOGAS"

gruß Daniel

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!