In ListBox nur gefilterte Zeilen Anzeigen lasse
Betrifft: In ListBox nur gefilterte Zeilen Anzeigen lasse
von: Vulferin
Geschrieben am: 24.07.2014 20:01:30
Hallo zusammen
ich hab folgenen Code imgebrauch
'In dieser Routine laden wir alle vorhandenen
'Eintr_ge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die †berschriften
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
'Aktuelle Zeile in die ListBox eintragen
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
lZeile = lZeile + 1 'N_chste Zeile bearbeiten
Loop
er soll mir aber nur angezeigte zeilen zeigen
ich filter vorher mit
ActiveSheet.Range("$B$1:$T$5").AutoFilter Field:=13, Criteria1:="<>" zeilen Filter
aber irgendwie zeigt er mir alle Zeilen
Betrifft: AW: In ListBox nur gefilterte Zeilen Anzeigen lasse
von: Beverly
Geschrieben am: 24.07.2014 20:07:52
Hi,
versuche es so (ungetestet):
If Tabelle1.Rows(lZeile).Hidden = False Then ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))

Betrifft: AW: In ListBox nur gefilterte Zeilen Anzeigen lasse
von: Vulferin
Geschrieben am: 24.07.2014 20:43:04
Hi das Klappt wunderbar
1 Fragen
Ich hab mir einen Button gemacht
wenn ich Ihn Anklicke filter er mir was ich will
kann man das so machen
wenn ich nochmal auf Ihn klicke das er den Filter wieder wegnimmt ?
Betrifft: AW: In ListBox nur gefilterte Zeilen Anzeigen lasse
von: Beverly
Geschrieben am: 24.07.2014 20:57:15
Hi,
benutze einen ToggleButton.

Betrifft: AW: In ListBox nur gefilterte Zeilen Anzeigen lasse
von: Vulferin
Geschrieben am: 24.07.2014 21:21:34
Habs danke :)
Jetzt noch eine Frage ich glaube dann hab ich meine Liste fertig
Ich hab inSpalte K ein Datum stehen
und würde diese gerne Filten
und zwar 14 Tage vor dem Datum was dort eingetragen ist oder alles was nach dem datum ist.
Danach kommt nur noch eine suche mit eingabe feld
geht sowas ?
Betrifft: AW: In ListBox nur gefilterte Zeilen Anzeigen lasse
von: Vulferin
Geschrieben am: 24.07.2014 21:25:39
in der normalen Tabelle hatte ich als Bedingte formatierung
=($K1-HEUTE()<14)*($K1>0)
aber das geht ja in vba so nicht
Beiträge aus den Excel-Beispielen zum Thema "In ListBox nur gefilterte Zeilen Anzeigen lasse"