Anzeige
Archiv - Navigation
1212to1216
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

Daten filtern

Daten filtern
Heino
Hallo,
habe eine Tabelle mit ca.1200 Zeilen.
In Spalte E stehen Artikelnummern, welche manchmal doppelt vorkommen.
Jetzt möchte ich gerne über eine Abfrage in Zelle A1z.B. "1416" einen Filter für alle Zeilen mit der Artikelnummer setzen. Diese sollen dann angezeigt werden.
Kann mir hier bitte einer helfen.
Danke
Heino

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten filtern
18.05.2011 10:40:00
Mike
Hallo Heino,
eine Möglichkeit wäre, den Autofilter über die Tabelle zu setzen und
dann den gewünschten Wert aus der Liste (in der Spalte) auswählen.
Gruss
Mike
AW: Daten filtern
18.05.2011 11:21:19
Heino
Hallo Mike,
genau das wollte ich vermeiden, weil man ja bei dieser Lösung teilweise unendlich scrollen muss bis man das Suchkriterium gefunden hat.
Geht dieses wohl auch per VBA.
Vielleicht kannst Du mir da weiterhelfen.
Heino
AW: Daten filtern
18.05.2011 14:56:12
Dominik
Hi,
habe ein kleines Macro geschrieben:
Du kannst die Artikelnummer auch alternativ über eine Inputbox einlesen:
Sub ArtNr()
'Entweder Artikelnummer aus Zelle lesen
Artikelnummer = Range("A1")
'oder über Inputbox einlesen lassen
Artikelnummer = InputBox("Bitte zu suchende Artikelnummer eingeben:")
'Zeile 1 Selektieren
ActiveSheet.Rows("1:1").Select
'Autofilter setzen
Selection.AutoFilter
'in 5ter Spalte = Spalte E Nach in der Variable Artikelnummer gespeicherten Artikelnummer  _
suchen
Selection.AutoFilter Field:=5, Criteria1:="=" & Artikelnummer, Operator:=xlAnd
End Sub
Hoffe ich konnte dir helfen.
Dominik
Anzeige
AW: Daten filtern
18.05.2011 14:53:51
Dominik
Hi,
habe ein kleines Macro geschrieben:
Du kannst die Artikelnummer auch alternativ über eine Inputbox einlesen:
Sub ArtNr()
'Entweder Artikelnummer aus Zelle lesen
Artikelnummer = Range("A1")
'oder über Inputbox einlesen lassen
Artikelnummer = InputBox("Bitte zu suchende Artikelnummer eingeben:")
'Zeile 1 Selektieren
ActiveSheet.Rows("1:1").Select
'Autofilter setzen
Selection.AutoFilter
'in 5ter Spalte = Spalte E Nach in der Variable Artikelnummer gespeicherten Artikelnummer  _
suchen
Selection.AutoFilter Field:=5, Criteria1:="=" & Artikelnummer, Operator:=xlAnd
End Sub

Hoffe ich konnte dir helfen.
Dominik
Anzeige
AW: Daten filtern
18.05.2011 20:00:37
Heino
Hallo Dominik,
genau was ich brauche.
Herzlichen Dank für deine Mühe.
Heino

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige