Filterproblem bei Excel

[Christian Stüben]

Hallo allerseits,
ein Kunde berichtet mir von folgendem Problem bei Excel.

In einem Excel-Datenblatt sind ca. 2000 Zeilen gefüllt, Passagiere für
verschiedene Flüge.

Es wurde ein Filter gemacht, der die Passagiere eines bestimmten Fluges
zusammen zur Anzeige bringt.

Es kamen aber immer zuwenige Passagiere zur Anzeige.

Nach sehr viel hin- und her stellte sich heraus, daß alle Passagiere über
der 1000ten Position im Filter nicht mehr berücksichtigt wurden.


Frage:
ist ein solcher oder ähnlicher Fehler in Excel bekannt? Gibt es Abhilfe?


Betriebssystem und Excel-Vesion hat mir der Kunde leider nicht mitgeteilt.
Sorry.


Danke im Voraus!
mfg Chris

[Alexander Wolff]

Post by Christian Stüben
Nach sehr viel hin- und her stellte sich heraus, daß alle Passagiere
über der 1000ten Position im Filter nicht mehr berücksichtigt wurden.
ist ein solcher oder ähnlicher Fehler in Excel bekannt? Gibt es Abhilfe?

Das ist eine Begrenzung, ja. Autofilter kann nur die ersten 1024
(verschiedenden) Einträge überhaupt verwerten. Ausweg: Pivot-Tabelle,
Spezialfilter oder auch evtl. eine der Funktionen von Bernd Plumhoff,
www.sulprobil.com

Post by Christian Stüben
Betriebssystem und Excel-Vesion hat mir der Kunde leider nicht
mitgeteilt. Sorry.

Bei allen Versionen vor 2007 wird es so sein, vermute ich.

[Thomas Ramel]

Grüezi zusammen

Alexander Wolff schrieb am 01.04.2009

Post by Alexander Wolff

Post by Christian Stüben
Nach sehr viel hin- und her stellte sich heraus, daß alle Passagiere
über der 1000ten Position im Filter nicht mehr berücksichtigt wurden.
ist ein solcher oder ähnlicher Fehler in Excel bekannt? Gibt es Abhilfe?

Das ist eine Begrenzung, ja. Autofilter kann nur die ersten 1024
(verschiedenden) Einträge überhaupt verwerten. Ausweg: Pivot-Tabelle,
Spezialfilter oder auch evtl. eine der Funktionen von Bernd Plumhoff,
www.sulprobil.com

Post by Christian Stüben
Betriebssystem und Excel-Vesion hat mir der Kunde leider nicht
mitgeteilt. Sorry.

Bei allen Versionen vor 2007 wird es so sein, vermute ich.

Sorry, aber hier ist IMO eine Klarstellung dringend notwendig:

Der Autofilter kann komplette Spalten korrekt filtern - da gibt es *keine*
Einschränkungen (wenn der Bereich nicht zufällig noch von einer komplett
leeren Zeile unterbrochen wird).

Das *DropDown* im Autofilter kann bis xl2003 nur die ersten ca. 1000
unterschiedlichen Einträge der Spalte darstellen - hier liegt eine
Einschränkung vor, die sich so auch nicht umgehen lässt.
Enthalten die Daten also mehr als 1000 unterschiedliche Einträge können die
weiteren nicht direkt im DropDown ausgewählt werden - der
Benutzerdefinierte Autofilter funktioniert aber dennoch ohne Probleme.


Als Umgehung dieser Einschränkung bietet sich eine Hilfsspalte mit der
folgenden Formel an (bezogen auf die zu filternde Spalte):

=LINKS(A2;3)

und nach unten kopieren.
Damit werden die ersten drei Zeichen der eigentlichen Spalte ausgegeben.

Nun kann in der Hilfssplalte erst eine Vorauswahl getroffen und
anschliessend in der eigentlichen Spalte der gewünschte Wert ausgewählt
werden.


Mit freundlichen Grüssen
Thomas Ramel

[Alexander Wolff]

Hallo Thomas,

Post by Thomas Ramel
Der Autofilter kann komplette Spalten korrekt filtern - da gibt es
*keine* Einschränkungen (wenn der Bereich nicht zufällig noch von
einer komplett leeren Zeile unterbrochen wird).
Das *DropDown* im Autofilter kann bis xl2003 nur die ersten ca. 1000
unterschiedlichen Einträge der Spalte darstellen - hier liegt eine
Einschränkung vor, die sich so auch nicht umgehen lässt.

Der Dropdown ist immerhin für die tägliche Bedienung sehr angenehm :-)

Post by Thomas Ramel
=LINKS(A2;3)

Mit einer Hilfsspalte kann man aber auch gleich auf einen in eine Zelle
(womöglich mit Daten Gültigkeit Liste ausgestattet) eingegebenen Namen
verweisen und dann nach WAHR autofiltern.

OP scheint aber etwas nicht korrekt zu tun, wenn ich mir so das Zahlengerüst
anschaue:

2000 Datensätze (für einzelne Passagiere von mehreren Flügen)
Für mich sind das 50 bis 100 verschiedene Flugnummern.

Da die Flugnummern aber im Satz ja enthalten sind und genau danach gefragt
wird, besteht doch die Filter-Einschränkung gar nicht erst. Er sucht doch
gar keinen einzelnen Passagier, sondern alle Passagiere eines Fluges. Er
muss also nicht nach Passagieren filtern, sondern Flügen.

[Thomas Ramel]

Grüezi Alexander

Alexander Wolff schrieb am 01.04.2009

Post by Alexander Wolff

Post by Thomas Ramel
Der Autofilter kann komplette Spalten korrekt filtern - da gibt es
*keine* Einschränkungen (wenn der Bereich nicht zufällig noch von
einer komplett leeren Zeile unterbrochen wird).
Das *DropDown* im Autofilter kann bis xl2003 nur die ersten ca. 1000
unterschiedlichen Einträge der Spalte darstellen - hier liegt eine
Einschränkung vor, die sich so auch nicht umgehen lässt.

Der Dropdown ist immerhin für die tägliche Bedienung sehr angenehm :-)

Ja, das ist wohl wahr - von einem nicht funktionierenden Autofilter zu
sprechen ist aber in diesem Zusammenhang nicht korrekt.

Post by Alexander Wolff

Post by Thomas Ramel
=LINKS(A2;3)

Mit einer Hilfsspalte kann man aber auch gleich auf einen in eine Zelle
(womöglich mit Daten Gültigkeit Liste ausgestattet) eingegebenen Namen
verweisen und dann nach WAHR autofiltern.

Ja, deren Möglichkeiten gibt es viele - die Vorfilterung nach den ersten
Zeichen ist eher etwas allgemein gedacht. Damit kann nach unterschiedlichen
Kriterien immer neu gefiltert werden und der 'Komfort' des Auswählens im
DropDown bleibt erhalten.

Für spezifische(re) Filterungen kann das natürlich weiter angepasst und
verfeinert werden ;-)

Post by Alexander Wolff
OP scheint aber etwas nicht korrekt zu tun, wenn ich mir so das Zahlengerüst
2000 Datensätze (für einzelne Passagiere von mehreren Flügen)
Für mich sind das 50 bis 100 verschiedene Flugnummern.

Wenns gefüllte A380 sind gibts 'nur' ca. 3 Flugzeuge ;-)

Post by Alexander Wolff
Da die Flugnummern aber im Satz ja enthalten sind und genau danach gefragt
wird, besteht doch die Filter-Einschränkung gar nicht erst. Er sucht doch
gar keinen einzelnen Passagier, sondern alle Passagiere eines Fluges. Er
muss also nicht nach Passagieren filtern, sondern Flügen.

Ja, oder er filtert eben zuerst nach Flunummer und dann (wenn notwendig)
nach dem Namen des Passagiers.



Mit freundlichen Grüssen Thomas Ramel

[Andreas Killer]

Post by Thomas Ramel

Post by Alexander Wolff
Der Dropdown ist immerhin für die tägliche Bedienung sehr angenehm :-)

Ja, das ist wohl wahr - von einem nicht funktionierenden Autofilter zu
sprechen ist aber in diesem Zusammenhang nicht korrekt.

Da muss ich Dir uneingeschränkt zustimmen.

Allerdings ist für die tägliche Bedienung IMHO eine andere Methode
viel einfacher:

Als Voraussetzung muss man sich eine Symboleiste anpassen und sich
dort das Icon bzw. den Befehl Autofilter aus der Kategorie Daten
reinziehen.

Im meinem Datenbestand ist die erste Zeile mit Überschriften versehen,
dort ist der Autofilter aktiv, jedoch ohne einen gesetzten Filter.

Weiterhin habe ich das Fenster fixiert damit ich immer die
Überschriften sehen kann, egal an welcher Stelle ich mich in meinen
Daten befinde.

Möchte ich nun meinen Datenbestand filtern, dann suche oder scrolle
ich nach einem bestimmten Element, klicke drauf und dann klicke ich
auf das Symbol Autofilter in der Symbolleiste. Die entsprechende
Spalte wird nun nach diesem Element gefiltert.

Das ganze kann ich nun wiederholen und mit ein paar Klicks habe ich
meine Liste gefiltert. Geht viel schneller als im Dropdown sich einen
Wert rauszufummeln.

Wenn man sich nun noch ein paar Makro's dazumacht um ggf. einige
Filter rückgängig zu machen (hatte ich letztens schon mal gepostet)
dann kann man IMHO sehr gut und schnell mit dem Autofilter arbeiten,
ohne auch nur einmal den Dropdown des Autofilters zu benutzen.

Andreas.

[unknown]

Hallo Andreas,
nur zu gerne würde ich diese Schaltfläche anwenden, allein sie macht
nicht das Gewünscht, sondern schaltet lediglich den Autofilter ein
oder aus. In der englischen XL-Version funktioniert er reibungslos.
Leider habe ich noch nicht herausgefunden, woran es liegt, schade.

IDas folgende Makro kann aber der Schaltfläche zugewiesen werden:

Sub ActiveCellAutofilter()
ActiveCell.Autofilter Field:=ActiveCell.Column - _
ActiveCell.CurrentRegion.Columns(1).Column + 1 _
Crteria:=ActiveCell.Value, Operator:=xlAnd
End Sub


Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen

--
(ehem. MVP für Excel)
Website: www.xl-faq.de

[Andreas Killer]

Post by unknown
nur zu gerne würde ich diese Schaltfläche anwenden, allein sie macht
nicht das Gewünscht, sondern schaltet lediglich den Autofilter ein
oder aus. In der englischen XL-Version funktioniert er reibungslos.
Leider habe ich noch nicht herausgefunden, woran es liegt, schade.

Das ist interessant, ich hab definitiv eine deutsche Version, in der
geht's.

Post by unknown
Sub ActiveCellAutofilter()
  ActiveCell.Autofilter Field:=ActiveCell.Column - _
    ActiveCell.CurrentRegion.Columns(1).Column + 1 _
    Crteria:=ActiveCell.Value, Operator:=xlAnd
End Sub

Schöne Idee aber dennoch Unsinn, weil wenn ich das in den VBA-Editor
kopiere, dann meckert er es rot an, d.h. der Code läßt sich noch nicht
mal kompilieren!

Und das liegt nicht allein daran das "Crteria" IMHO "Criteria1" heißen
müsste. Wie ist es richtig?

Andreas.

[unknown]

Hallo Andreas,
na, na, na, bloss weil es nicht gleich bei dir trotz Korretur
funktioniert ist es deshalb nicht gleich Unsinn.
Der Code lautet korrigiert und getestet:

Sub ActiveCellAutofilter()
ActiveCell.AutoFilter Field:=ActiveCell.Column - _
ActiveCell.CurrentRegion.Columns(1).Column + 1, _
Criteria1:=ActiveCell.Value, Operator:=xlAnd
End Sub


Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen

--
(ehem. MVP für Excel)
Website: www.xl-faq.de

[Andreas Killer]

Post by unknown
na, na, na, bloss weil es nicht gleich bei dir trotz Korretur
funktioniert ist es deshalb nicht gleich Unsinn.

Klar ist schon richtig, ich wollte nur das Du Dir Mühe gibst. .-)

Ich bedenke einfach nur die Tatsache das es hier viele Mitleser gibt
die nicht so viel Wissen """wie wir Experten""" haben.

Also wenn wir beide Anfänger wären und ein Thema verfolgen weil wir
genau auch dieses Problem haben und dann kommt da einer und sagt "Kein
Problem so geht's!" und Du probierst es aus und Du stellst fest das es
noch nicht mal ansatzweise geht, wie fällt dann Deine Antwort aus?

Ich glaub Unsinn ist dann geschmeichelt. ;-)))

Okay okay, als Anfänger hätte (hatte) ich so viele Hemmungen das ich
mich nicht getraut hätte (hatte) etwas öffentlich dazu zu sagen. Aber
der Drops ist mittlerweile geluscht. :-))

BTW, mal an die Mitleser: Niemand ist perfekt, ich auch nicht. Also
wenn Ihr was lest/probiert was nicht so funktioniert wie beschrieben
oder Ihr nicht versteht: Nachhaken und zwar gnadenlos!

Post by unknown
Sub ActiveCellAutofilter()
ActiveCell.AutoFilter Field:=ActiveCell.Column - _
ActiveCell.CurrentRegion.Columns(1).Column + 1, _
Criteria1:=ActiveCell.Value, Operator:=xlAnd
End Sub

Sehr schöne 1a Lösung, werd ich gleich mal kommentieren und mir
einsortieren. Danke.

Andreas.

[unknown]

Hallo Andreas,

Post by Andreas Killer
Klar ist schon richtig, ich wollte nur das Du Dir Mühe gibst. .-)

Auch ich möchte, das du dir Mühe gibst!

1.
Gib dir Mühe und lerne den Unterschied zwischen dem Begriff "Fehler"
und "Unsinn"!

Wenn ich in dieser Newsgroup einen Codeschnipsel zu einer Frage aus
dem Kopf beitrage und dabei drei Zeichen vergesse, dann handelt es
sich um einen zu besprechenden und korrigierbaren _Fehler_ und nicht
um _Unsinn_.


2.

Post by Andreas Killer
Ich bedenke einfach nur die Tatsache das es hier viele Mitleser gibt
die nicht so viel Wissen """wie wir Experten""" haben.

Gib dir Mühe und akzeptiere die Tatsache, dass jeder Mitleser oder
Beitragschreiber mit seinem speziellen Wissen an dieser Newsgroup
teilnimmt. Eine Einteilung in Experten und Nichtexperten ist daher
irrelevant.

3.

Post by Andreas Killer
Also wenn wir beide Anfänger wären und ein Thema verfolgen weil wir
genau auch dieses Problem haben und dann kommt da einer und sagt "Kein
Problem so geht's!" und Du probierst es aus und Du stellst fest das es
noch nicht mal ansatzweise geht, wie fällt dann Deine Antwort aus?
Ich glaub Unsinn ist dann geschmeichelt. ;-)))

Gib dir Mühe und vermeide, dass aus nicht bewiesenen Behauptungen
falsche Annahmen (Unsinn?) folgern können und du selber diesen
Annahmen unterliegst.

4.

Post by Andreas Killer
..., wie fällt dann Deine Antwort aus?
Ich glaub Unsinn ist dann geschmeichelt. ;-)))

Woher weißt du was ich denke oder schlussfolgern würde?

5.

Post by Andreas Killer
BTW, mal an die Mitleser: Niemand ist perfekt, ich auch nicht. Also
wenn Ihr was lest/probiert was nicht so funktioniert wie beschrieben
oder Ihr nicht versteht: Nachhaken und zwar gnadenlos!

Gib dir Mühe und überlege einmal, wer "gnadenlos" vorgeht. Mir fallen
zwar ein paar Beispiele ein, aber diese Mitmenschen nehmen sehr
wahrscheinlich nicht an dieser Newsgroup teil.

6.
Gib dir Mühe und überlege einmal: Hätte es nicht vollkommen genügt auf
die Fehler in meinem Code hinzuweisen und um Korrektur zu bitten?

7.
Gib dir Mühe!

Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen

--
(ehem. MVP für Excel)
Website: www.xl-faq.de

[Andreas Killer]

Post by unknown

Post by Andreas Killer
Klar ist schon richtig, ich wollte nur das Du Dir Mühe gibst. .-)

Gib dir Mühe und überlege einmal: Hätte es nicht vollkommen genügt auf
die Fehler in meinem Code hinzuweisen und um Korrektur zu bitten?

Ja das stimmt, mein Ton war nicht so toll, entschuldige.

Post by unknown
Gib dir Mühe!

Weißt Du was? Mach ich glatt! :-)

Ich finde die Idee hinter Deiner kleinen feinen Routine so schick, das
ich mir mal erlaube sie aufzubohren. So hast Du nun die Möglichkeit
mehrere Zellen zu markieren und alle Filter auf einen Klick zu setzen.

Andreas.

Sub AutofilterSelection()
'Setzt/erzeugt einen Autofilter über alle markierten Zellen
Dim R As Range, F As Filter, I As Long, a As AutoFilter
'Sind Zellen markiert?
If Not TypeOf Selection Is Range Then Exit Sub
For Each R In Selection
'Ist ein Autofilter da?
If Not ActiveSheet.AutoFilterMode Then
'Feldnummer für den Filter berechnen
I = R.Column - R.CurrentRegion.Columns(1).Column + 1
'Erstellen und filtern
R.AutoFilter Field:=I, Criteria1:=R.Value
Else
'Feldnummer für den Filter berechnen
I = R.Column - ActiveSheet.AutoFilter.Range.Column + 1
'Filter prüfen
With ActiveSheet.AutoFilter.Filters
'Den Filter holen
Set F = .Item(I)
'Filter an?
If F.On Then
'Haben wir schon einen Operator?
If F.Operator Then
'Tja, mehr als 2 gehen halt nicht. :-)
Else
'Nein, dann einen 2ten dazu setzen
R.AutoFilter Field:=I, Criteria1:=F.Criteria1, _
Criteria2:=R.Value, Operator:=xlOr
End If
Else
'Nein, diese Spalte filtern
R.AutoFilter Field:=I, Criteria1:=R.Value
End If
End With
End If
Next
End Sub

[unknown]

Hallo Andreas,
prima, auf diese Idee bin ich noch nicht gekommen!
Dein Routine habe ich in meine Beitragsammlung aufgenommen.


Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen

--
(ehem. MVP für Excel)
Website: www.xl-faq.de

[t***@gmail.com]

Grüezi Andreas

Post by Andreas Killer

Post by Thomas Ramel

Post by Alexander Wolff
Der Dropdown ist immerhin für die tägliche Bedienung sehr angenehm :-)

Ja, das ist wohl wahr - von einem nicht funktionierenden Autofilter zu
sprechen ist aber in diesem Zusammenhang nicht korrekt.

Da muss ich Dir uneingeschränkt zustimmen.
Allerdings ist für die tägliche Bedienung IMHO eine andere Methode
Als Voraussetzung muss man sich eine Symboleiste anpassen und sich
dort das Icon bzw. den Befehl Autofilter aus der Kategorie Daten
reinziehen.
Im meinem Datenbestand ist die erste Zeile mit Überschriften versehen,
dort ist der Autofilter aktiv, jedoch ohne einen gesetzten Filter.
Weiterhin habe ich das Fenster fixiert damit ich immer die
Überschriften sehen kann, egal an welcher Stelle ich mich in meinen
Daten befinde.
Möchte ich nun meinen Datenbestand filtern, dann suche oder scrolle
ich nach einem bestimmten Element, klicke drauf und dann klicke ich
auf das Symbol Autofilter in der Symbolleiste. Die entsprechende
Spalte wird nun nach diesem Element gefiltert.
Das ganze kann ich nun wiederholen und mit ein paar Klicks habe ich
meine Liste gefiltert. Geht viel schneller als im Dropdown sich einen
Wert rauszufummeln.
Wenn man sich nun noch ein paar Makro's dazumacht um ggf. einige
Filter rückgängig zu machen (hatte ich letztens schon mal gepostet)
dann kann man IMHO sehr gut und schnell mit dem Autofilter arbeiten,
ohne auch nur einmal den Dropdown des Autofilters zu benutzen.

Ja, das ist eine sehr gute und praktikable Idee - hier in xl2003
klappt das problemlos.

Ich nehme sie gleich in meinen Fundus an Filter-Verfahren auf :-)


--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

[Eberhard Funke]

Post by Christian Stüben
In einem Excel-Datenblatt sind ca. 2000 Zeilen gefüllt, Passagiere für
verschiedene Flüge.
Es wurde ein Filter gemacht, der die Passagiere eines bestimmten Fluges
zusammen zur Anzeige bringt.
Es kamen aber immer zuwenige Passagiere zur Anzeige.
... Gibt es Abhilfe?

Hallo Christian,

ein WorkAround:

(Zeile 1 Überschriften)
Spalte A ab A2 die Flugnummern, z. B. LH4711

In die erste freie, rechts an die Tabelle anschließende Spalte (bei mir C):
C1: Überschrift (bei mir: "Test", C2: =A2="LH4711"
Doppelklick auf das kleine schwarze Quadrat unten rechts am Zellrahmen von
der noch selektierten Zelle C2 --> füllt Spalte C nach unten mit der Formel
bis zum Datenende. Voraussetzung: in dere davorstehenden Spalter (bei mir
B) dürfen keine leeren Zellen sein. Ansonsten musst Du die Formel händisch
bis zum Datenende runterziehen.

Spalten (bei mir A:C) markieren, absteigend sortieren nach "Test"
Jetzt stehen alle Flüge LH4711 oben.

[Christian Stüben]

Hallo Eberhard, Alexander, und Thomas.

Danke Euch allen!

mfg Chris

ps: meine letzten Antworten werden bei mir auch nach der bei Microsofts
Newsserver üblichen Denkpause NICHT angezeigt. Wenn diese Meldung durchkommt
auf den Newsserver, lasst es mich wissen. Danke!

[Eberhard Funke]

Post by Christian Stüben
ps: meine letzten Antworten werden bei mir auch nach der bei Microsofts
Newsserver üblichen Denkpause NICHT angezeigt. Wenn diese Meldung durchkommt
auf den Newsserver, lasst es mich wissen. Danke!

angekommen :-)

[Christian Stüben]

und noch ein Versuch über einen anderen Newsserver, nachdem meine letzten
Antworten auch nach der bei Microsoft so heißgeliebten Denkpause nicht
angezeigt werden...

Hallo Eberhart, Alexander und Thomas,
danke Euch allen!

mfg Chris

[Bernd P]

Hallo Chris,

Nur um eine Sache auszuschließen:

Es kann nicht sein, dass sich an der Stelle, ab der die Daten nicht
mehr korrekt gefiltert werden, eine Leerzeile ausgeblendet ist (Du
würdest eine Lücke = Sprung in der Zeilennummer sehen)?

Viele Grüße,
Bernd

[Christian Stüben]

Hallo Bernd,

Post by Bernd P
Es kann nicht sein, dass sich an der Stelle, ab der die Daten nicht
mehr korrekt gefiltert werden, eine Leerzeile ausgeblendet ist (Du

Keine Ahnung. Mein Kunde meinte halt nur so am Rande daß er dieses Problem
habe. Und ich dachte mal, fragste mal in den Microsoft-Newsgroups, da kommt
immer was. So die eine oder andere Kleinigkeit kann ich auch mit Excel
machen, aber *der* Profi bin ich da halt nicht. Genaue Details kenn ich
nicht und kann ich leider auch nicht prüfen. Jedenfalls sind bis jetzt hier
genügend Hinweise gekommen, was wo wie mal gecheckt werden sollte. Habe alle
so dem Kunden weitergegeben, soll der jetzt gugge was Sache ist.

Nochmals ein herzliches Dankeschön an alle die sich beteiligt haben!

mfg Chris


ps.: Zitat Feldbusch ... gehste nach micosoft.public.de, da wird dich
geholfen ... oder so ähnlich ;-)