Selbstgebauter Autofilter filtert falsch

Hallo Wissende,
in der Datei https://www.herber.de/bbs/user/55655.xls habe ich in A1 einen Autofilter simuliert per Vba.


Tabellenblatt: C:\Dokumente und Einstellungen\IchalsAdministrator\Eigene Dateien\[ _
AutofilterDynamisch.xls]!Tabelle1
│    A    │
──┼─────────┤
2 │    1.10 │
──┼─────────┤
3 │ 1.10_01 │
──┼─────────┤
4 │ 1.10_02 │
──┼─────────┤
5 │ 1.10_03 │
──┼─────────┤
6 │    1.11 │
──┼─────────┤
7 │ 1.11_01 │
──┼─────────┤
8 │ 1.11_02 │
──┴─────────┘
A2:A8
haben das Zahlenformat: Text

Gefiltert werden soll nach "1.10*" oder "1.11*", filtern nach "1.10*" klappt, aber nach Filtern nach "1.11" werden diese Zeilen angezeigt:


Tabellenblatt: C:\Dokumente und Einstellungen\IchalsAdministrator\Eigene Dateien\[ _
AutofilterDynamisch.xls]!Tabelle3
│    A    │
──┼─────────┤
2 │    1.10 │
──┼─────────┤
6 │    1.11 │
──┼─────────┤
7 │ 1.11_01 │
──┼─────────┤
8 │ 1.11_02 │
──┴─────────┘
A2:A8
haben das Zahlenformat: Text

Der oberste Wert gehört da nicht hin, wo liegt der Fehler im Code?
Code ist nachstehend. Shapes(1) und 2 sind mit Makro belegte Bildchen vom blauen und schwarzen "normalem" Autofilter.
Danke ^ Gruß
Reinhard
Tabelle1


Private Sub ListBox1_Click()
ListBox1.Visible = False
Call Anzeige(ListBox1)
End Sub

Modul1


Option Explicit
Sub Auswahl()
Call Liste
ActiveSheet.ListBox1.Visible = True
End Sub
Sub Liste()
Dim colC As New Collection, Zei As Long, C As Long, Dummy As String
On Error Resume Next
'For Zei = 2 To Range("A" & Rows.Count).End(xlUp).Row 'klappt nicht
For Zei = 2 To Application.WorksheetFunction.CountA(Columns(1)) 'klappt
Dummy = Cells(Zei, 1)
If InStr(Dummy, "_") > 0 Then Dummy = Left(Cells(Zei, 1), InStr(Cells(Zei, 1), "_") - 1)
colC.Add key:=Dummy, Item:=Dummy
Next Zei
On Error GoTo 0
With ActiveSheet
.ListBox1.Clear
.ListBox1.AddItem "Alle"
For C = 1 To colC.Count
.ListBox1.AddItem colC(C)
Next C
End With
End Sub
Sub Anzeige(ByVal Was As String)
Dim Filter As String
Filter = IIf(Was = "Alle", "*", Was & "*")
Range("A1").AutoFilter Field:=1, Criteria1:=Filter, visibledropdown:=False
ActiveSheet.Shapes(1).Visible = Was = "Alle"
ActiveSheet.Shapes(2).Visible = Not (Was = "Alle")
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Tabellenblatt: C:\Dokumente und Einstellungen\IchalsAdministrator\Eigene Dateien\[ _ AutofilterDynamisch.xls]!Tabelle1 │ A │ ──┼─────────┤ 1 │ Wert │ ──┼─────────┤ 2 │ 1.10 │ ──┼─────────┤ 3 │ 1.10_01 │ ──┼─────────┤ 4 │ 1.10_02 │ ──┼─────────┤ 5 │ 1.10_03 │ ──┼─────────┤ 6 │ 1.11 │ ──┼─────────┤ 7 │ 1.11_01 │ ──┼─────────┤ 8 │ 1.11_02 │ ──┴─────────┘ Festgelegte Namen: Tabelle1!_FilterDatabase: =Tabelle1!$A$2:$A$8, *versteckter Name Tabelle2!_FilterDatabase: =Tabelle2!$A$1:$B$3, *versteckter Name Filt : =Tabelle2!$A$1:$A$3 Tabelle1!Criteria : =Tabelle1!$A$1 A1:A8 haben das Zahlenformat: Text

Sub Anzeige(ByVal Was As String) Dim strKriterium As String strKriterium = CStr("=" & IIf(Was = "Alle", "*", Was & "*")) Range("A1").AutoFilter Field:=1, Criteria1:=strKriterium, visibledropdown:=False End Sub

Sub Liste() Dim colC As New Collection, Zei As Long, C As Long, Dummy As String 'On Error Resume Next 'For Zei = 2 To Range("A" & Rows.Count).End(xlUp).Row 'klappt nicht For Zei = 2 To Application.WorksheetFunction.CountA(ActiveSheet.Columns(1)) 'klappt Dummy = cstr(ActiveSheet.Cells(Zei, 1)) If InStr(Dummy, "_") = 0 Then '*Dummy = Left(Cells(Zei, 1), InStr(Cells(Zei, 1), "_") - 1) colC.Add key:=CStr(Zei - 1), Item:=Dummy Next Zei 'On Error GoTo 0 With ActiveSheet .ListBox1.Clear .ListBox1.AddItem "Alle" For C = 1 To colC.Count .ListBox1.AddItem colC(C) Next C End With End Sub

Moin Gerd,
ja, in einer neuen Mappe klappt es bestens. Sicherheithalber habe ich die Daten alle manuell reingeschrieben und nicht reinkopiert. Denn, wenn man A2:A8 rauskopiert wird der Autofilter mitkopiert, das war mir zu unsicher, deshalb loieber neu geschrieben.


Festgelegte Namen:
Tabelle1!_FilterDatabase: =Tabelle1!$A$1:$A$8, *versteckter Name
Tabelle2!_FilterDatabase: =Tabelle2!$A$1:$B$3, *versteckter Name
Tabelle1!Criteria       : =Tabelle1!$A$1

Zu den Namen, nur der Name "Filt" war von mir, die anderen erzeugt Excel bzw. der Autofilter selbst. Und meine selbstgebastelte Jeannie listet alle namen auf, egal ob versteckt oder nicht.
Übrigens funktioniert heute morgen auch die Mappe die gestern fehlerhaft filterte.
Der Name "Tabelle1!Criteria", der angezeigt wird als "Suchkriterien" verwies seltsamerweise auf "=Tabelle1!$A$2", nach Änderung auf "=Tabelle1!$A$1" wurde korrekt gefiltert.
Erklärlich ist mir das nicht denn gestern wies der Name ja auch auf "=Tabelle1!$A$1" hin und es wurde falsch gefiltert.
Was Excel bewog dies dann irgendwann auf "=Tabelle1!$A$2" abzuändern entzieht sich meiner Kenntnis.
Für alles habe ich insgesamt nur eine, aber ich glaube die Erklärung.
Wie von dir gesagt braucht der Autofilter eine Spaltenüberschrift. Zu Anfang hatte ich ja A1 leer, also nahm sich der Autofilter A2 als Spaltenüberschrift.
Davon, daß ich dann aufgrund deines Tipps eine Überschrift in A1 reinsetzte bekam der Autofilter ja nix mit...
Und die zwei Bilder, ich wollte ja den Autofilter "nachbauen", speziell die Option "beginnt mit", weil ich die "übersehen" hatte *schäm* und dachte mein XL2000 hätte die gar nicht :-)
(ich glaube wegen so Patzern bleibe ich bei meinem Level hier *gg*)
Dem widerspricht ja nicht daß ich im "Nachbau" den Autofilter "verdeckt benutze.
Also brauchte ich ja auch einmal einen blauen und einaml einen schwarzen Pfeil nach unten. Dazu erstellte ich im Tabellenblatt 2 auch Autofilter und machte "Fotos" vom blauen und schwarzen Pfeil.
Danke dir für deine Mühen und Tipps, die letztlich zum Erfolg führten
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Selbstgebauter Autofilter filtert falsch

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Selbstgebauter Autofilter filtert falsch

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread