Dropdown Rückgabewert für Autofilter verwenden

Question

Hallo,

ich lass mir in einem Dropdown die Werte aus Spalte 7 anzeigen. Ich sehe die Namen aus Spalte 6.
Nach Auswahl eines Namen möchte ich die Tabelle per VBA nach diesem Wert sortieren. Bei der Formatierung des Steuerelements lasse ich mir den Wert in Z3 ausgeben. Dort steht dann eine 1 oder eben die andere dem Namen entsprechende Ziffer.

ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=7, Criteria1:=Z3, Operator:=xlAnd

Mit dieser Formel komme ich nicht weiter :-)

Danke !

Answer 1

Hallo tannex,

schau mal auf meiner HP in der Rubrik Beispieldateien und dort dann in dem Beispiel 34 (Listen und Kombinationsfeld aus Symbolleiste Formular) nach. Dort stelle ich dazu eine Beispieldatei zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo Oliver,

nicht schlecht, aber so weit bin ich mit einer Bereich.Verschieben Formel gekommen.
Das Problem ist nun, das in meiner Zelle Z3 der "NAME" steht und ich die Tabelle in Spalte 7 genau nach diesem "Namen" sortiert haben möchte.

In deinem Beispiel wäre es jetzt so, das du eine dritte Tabelle hättest, in welcher der Wochentrag mehrmals vorkommt, und du nach Auswahl eines Tages diese automatisch sortiert haben möchtest (also den Autofilter automatisiert).

Danke und Gruß,
tannex

Answer 3

Hallo tannex,

ohne Deine Datei zu kennen, würde ich sagen es müsste wie folgt gehen:

ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=7, Criteria1:=Range("Z3"), Operator:=xlAnd
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 4

Hallo Oliver,

die Formel bei mir war falsch.
Es musste RANGE ("Z3") rein ..

Jetzt klappt es wunderbar - SUPER !!!!

DANKE !!!

tannex