Herbers Excel-Forum - das Archiv
Tabelle Filtern und in ListBox nur gefilterte zeig
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Tabelle Filtern und in ListBox nur gefilterte zeig
von: achim h.
Geschrieben am: 05.01.2007 14:46:59
Hallo Excel Freunde
Wer kann helfen?
Tabellenblatt = Name:Unfälle (Mit Daten von A1:BJ5000)
UserForm = Name:Grunddaten darin Textbox1,CommandButton1 u. ListBox2
vorgehensweise:
in der textbox1 gebe ich einen wert ein z.b. 1212
nun klicke ich den CommandButton1 und dieser soll so funzen:
Private Sub CommandButton1_Click()
Sheets("Unfälle").Activate
suche den eingegebenen wert in Unfälle Range("B2 bis Ende) dann blende alle
zeilen die den wert nicht haben aus.
das ergebnis soll dann in der listbox2 gezeigt werden
End Sub
danke achim h.
Betrifft: AW: Daten/Filtern/Autofilter ohne VBA
von: Franz D.
Geschrieben am: 05.01.2007 15:07:09
Hallo Achim,
falls deine Kriterium auch (beispielsweise) so zu erfassen wären:
Blechschaden,Körperverletzungen,Totalschaden,Supergau,Bagatelle, usw..., eine neue Spalte gründen und unter "Daten/Gültigkeit" eine Liste-Option bereit stellen die jederzeit auch leicht aktualisierbar wäre. Die Filter-Funktion könnte auch jeder (ohne Vba-Kenntnisse) schnell einsetzen.
So long.
Franz D.
Betrifft: AW: Daten/Filtern/Autofilter ohne VBA
von: achim h.
Geschrieben am: 05.01.2007 15:18:37
an eine vba lösung habe ich reges interesse da ich eine userform verwende und die ergebnisse in meiner listbox2 gezeigt werden sollen
gruss
achim h.
Betrifft: AW: Eigenschaft ListFillRange bestücken...
von: Franz D.
Geschrieben am: 05.01.2007 15:45:52
...mit dem Datenbereich wo deine Treffer gesammelt stehen. Genauer: Deine Auflistung steht im Bereich "A2:A40". Dieser Bereich mit Namen/Einfügen bennenen,z.B. "Treffer_Listbox2", diesen Eintrag ohne Sonderzeichen nach dem Feld "ListFillRange" ergänzen. Vorher hast du aber noch die Arbeit deine Trefferliste zusammen zu basteln.
Tschüss!
Franz D.
Betrifft: AW: ListBox2.RowSource = "A2:A16"
von: Franz D.
Geschrieben am: 05.01.2007 16:10:44
Hallo Achim,
Nachtrag korrektiv:
Private Sub UserForm_Initialize()
ListBox2.RowSource = "A2:A16"
End Sub
Das vorherige Beispiel war für eine Listbox direkt in Excel gedacht unter Einsatz der Werkzeugleiste.
Tschüss!
Franz D.
Betrifft: AW: ListBox2.RowSource = "A2:A16"
von: achim h.
Geschrieben am: 05.01.2007 20:33:54
hallo franz
danke für deine rückmeldungen
ich versuche das ganze etwas vesrtändlicher zu beschreiben in dem ich ein beispiel
erarbeitet habe. schau mal...
https://www.herber.de/bbs/user/39420.xls
gruss
achim h.
Betrifft: da keine rückmeldung mehr frage nochmal einstellen
von: achim h.
Geschrieben am: 06.01.2007 10:44:53
:-)
Betrifft: AW: Suchen, Sammeln, Listbox füllen
von: Franz D.
Geschrieben am: 07.01.2007 22:29:51
Hallo,
Sorry! Hätte eine Teillösung. Bringe es nicht fertig dir eine Datei namens "Listbox.xls" up zu loaden. Es kommt immer wieder die Warnung über eine Auflistung von Dateinamen. Was mache ich falsch? Vorschlag?
Tschüss!
Franz D.
Betrifft: AW: Suchen, Sammeln, Listbox füllen
von: Rat
Geschrieben am: 07.01.2007 22:31:24
Speicher die Datei direkt auf C:\
Betrifft: AW: Suchen, Sammeln, Listbox füllen
von: Franz D.
Geschrieben am: 07.01.2007 22:38:38
Hallo nochmals,
Danke Rat, dein Rat war hilfsreich. Mein Nachtrag für Achim:
https://www.herber.de/bbs/user/39457.xls
Tschüss.
Franz D.
Betrifft: Danke für deine Mühe
von: achim h.
Geschrieben am: 08.01.2007 14:58:23
hallo Franz
das ist ja ein ganz anderer ansatz.
ich schau mal in wie weit ich das weiter für mich ebtwickeln kann.
nochmals danke
gruss
achim h.