Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autofilter anhand zweier Kriterien

Autofilter anhand zweier Kriterien
Felix
Hallo zusammen,
ich möchte gerne eine Liste bei der ich im Kopf entsprechend zweier Kriterien die Autofilter setzen kann.
In der ersten Zelle definiere ich in Bezug auf welche Spalte ich den Autofilter setze; in der zweiten Zelle welchen Status ich filtere.
Beispiel:
Spalte A beinhaltet den Status (Offen, in Arbeit, Abgeschlossen...)
Spalte B die Zuständigkeit (Müller, Meier, Schulz...)
Das Makro zum setzen des Filters muss sich also nicht auf eine feste Spalte beziehen (das habe ich hinbekommen) sondern auf den Wert der sich in der ersten Zelle befindet. (d.h. der Anwender kann entscheiden ob er die Liste nach Status oder Zuständigkeit sortiert haben will...)
Bisher sieht das Makro folgend aus:

Sub Makro1()
v1 = Range("b2").Text
V2 = Range("B3").Text
Selection.AutoFilter field:=4, Criteria1:=V2
End Sub

D.h. er sortiert mir die Tabelle nach den Vorgaben jedoch nur nach den Vorgaben in Spalte 4. Anstatt der Spalte 4 möchte ich nun das Kriterium aus b2 (=> Variable v1) einfügen.
Vielen Dank im Voraus für die Hilfe...
Viele Grüße
Felix

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Autofilter-Kriterien aus Zellen
25.08.2009 14:10:28
NoNet
Hallo Felix,
meinst Du das so :
Sub AutofilterKriterienausZellen()
v1 = Range("b2")
V2 = Range("B3").Text
Selection.AutoFilter field:=v1, Criteria1:=V2
End Sub
Gruß, NoNet
AW: Autofilter-Kriterien aus Zellen
25.08.2009 14:16:24
Felix
Hallo NoNet,
da meldet er mir einen Fehler...?!
Viele Grüße
Felix
Steht in B2 der Überschriftentext ?
25.08.2009 14:28:53
NoNet
Hallo Felix,
das Makro geht davon aus, dass in B2 eine Zahl (z.B. 4 für Spalte D) steht.
Falls dort keine Zahl, sondern die Überschrift der zu filternden Spalte steht, dann folgendermassen :
Sub AutofilterKriterienausZellen()
Dim v1, v2, intSpalte As Integer
v1 = Range("b2").Text
v2 = Range("B3").Text
'Rows(5) bedeutet : zu filternde Überschrift steht in Zeile 5 - bitte anpassen !
intSpalte = Application.Match(v1, Rows(5), 0)
Selection.AutoFilter field:=intSpalte, Criteria1:=v2
End Sub
Die Angabe Rows(5) bedeutet : Die Überschriften (und Filterpfeile) stehen in Zeile 5 - das musst Du evtl. an Deine Tabelle anpassen !
Gruß, NoNet
Anzeige
AW: Autofilter-Kriterien aus Zellen
25.08.2009 14:35:44
Felix
Hallo zusammen,
habe es mit einer Hilfskrücke hinbekommen.
Ich glaube es lag einfach daran, dass die Bezeichnung in Zelle 2 mit 100% übereinstimmend waren mit den Zellbezeichnung in den Kopfzeilen.
Habe entsprechend eine versteckte Zeile eingefügt in der ich numerisch hinterlegt habe, welche Spalte gemeint ist. Damit kommt Excel zurecht.
Grüße und Danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige