Daten filtern

Forumthread: 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

AW: Daten filtern

Mike
AW: Daten filtern

Heino
AW: Daten filtern

Dominik
AW: Daten filtern

Dominik
AW: Daten filtern

Heino

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

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

AW: Daten filtern

18.05.2011 20:00:37

Heino

Hallo Dominik,
genau was ich brauche.
Herzlichen Dank für deine Mühe.
Heino

Beliebteste Forumthreads (12 Monate)

Forumthread: Daten filtern

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread