Das Archiv des Excel-Forums

Listbox füllen mit Suchkriterium

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox UserForm
Bild

Betrifft: Listbox füllen mit Suchkriterium
von: AxelW

Geschrieben am: 22.09.2003 16:54:43

Hallo Zusammen,

Ich habe einen Tabellenbereich von "A1:F200", gefüllt mit Werten.
In der Spalte "A" werden die Zellen einfach mit einem "x" versehen, wenn die entsprechenden Zeilen verwendet werden sollen.
Nun möchte ich in meiner Userform ("Userform1") ein Listenfeld ("Listbox1") nur mit den Zeilen füllen, in denen das "x" in der Spalte steht.
Habe viele Wege probiert und keiner führt zum Erfolg.

Kann mir jemand helfen?

Danke, Axel
Bild


Betrifft: AW: Listbox füllen mit Suchkriterium
von: ChrisL
Geschrieben am: 22.09.2003 17:00:06

Hi Axel

Siehe nachstehendes Makro...

Option Explicit



Sub suchen()
Dim i As Integer
Dim lngArr As Integer
Dim SuchZelle As Long
Application.ScreenUpdating = False
SuchZelle = "x"
With Worksheets("Tabelle1")
lngArr = Application.WorksheetFunction.CountIf(.Range("A1:A200"), SuchZelle)
If lngArr = 0 Then
MsgBox "Keine Einträge gemäss den ausgewählten Kriterien"
Exit Sub
End If
ReDim MyArray(1 To lngArr, 0 To 3)
lngArr = 0
For i = 1 To 200
If .Cells(i, 1) = SuchZelle Then
lngArr = lngArr + 1
MyArray(lngArr, 0) = .Cells(i, 2)
MyArray(lngArr, 1) = .Cells(i, 3)
MyArray(lngArr, 2) = .Cells(i, 4)
MyArray(lngArr, 3) = .Cells(i, 5)
MyArray(lngArr, 4) = .Cells(i, 6)
End If
Next i
UserForm1.ListBox1.ColumnCount = 5
UserForm1.ListBox1.List = MyArray
End With
End Sub



Tabell1 musst du noch anpassen.

Gruss
Chris


Bild


Betrifft: AW: Listbox füllen mit Suchkriterium
von: ChrisL
Geschrieben am: 22.09.2003 17:04:09

Suchzelle natürlich als String deklarieren.


Bild


Betrifft: AW: Listbox füllen mit Suchkriterium
von: AxelW
Geschrieben am: 22.09.2003 18:24:22

Hallo Chris,

Danke Dir für die schnelle Antwort. Ich werd`s gleich mal versuchen.

Gruß, Axel


Bild


Betrifft: AW: Listbox füllen KEIN ERFOLG
von: AxelW
Geschrieben am: 22.09.2003 19:00:18

Hallo Chris,

danke für Deine Idee, aber ich bekomme eine Fehlermeldung (Laufzeitfehler: 13 "Typen unverträglich").
Ich habe Deinen Code in das Initialize-Ereignis der Userform gelegt. Ist doch richtig, oder ???

Gruß, Axel


Bild


Betrifft: AW: Listbox füllen KEIN ERFOLG
von: ChrisL
Geschrieben am: 22.09.2003 20:48:26

Hi Axel

Auf welcher Zeile kommt denn der Fehler? Jedenfalls habe ich grad einen Fehler entdeckt...

ReDim MyArray(1 To lngArr, 0 To 3)

sollte

ReDim MyArray(1 To lngArr, 0 To 4)

lauten. Sind ja 5 Spalten, angefangen bei Null. Habe drum den Code aus einem anderen Beispiel kopiert und leicht abgeändert, darum auch der anfängliche Fehler mit der Deklaration. Versuch den Code aber trotzdem mal nachzuvollziehen. Ist ein Beispiel mit Array, was ich eigentlich lange Zeit auch nie verstanden habe, aber eigentlich gar nicht so kompliziert ist. Du kannst in so ein Array, welches ähnlich wie eine Variable funktioniert, eine ganze Tabelle, also Zeilen und Spalten abspeichern und dann geschlossen eine ListBox übergeben.

Wenn die Änderung nicht zum Erfolg führt, muss ich's dann trotzdem mal testen. Vielleicht kannst du dann gleich mal dein Beispiel in den Anhang stellen, geht schneller.

Du kannst es als Initilize Ereignis zum Userform machen, in diesem Fall kannst du auf den Bezug zum Userform in den letzten zwei Zeilen verzichten. Ansonsten kannst du es auch in ein Modul stellen und im Initialize mit 'Call Makro' aufrufen. Kann manchmal dem Überblick wegen einfacher sein, wenn du grössere Codeteile in Module ablegst, die du auch strukturieren und beschriften kannst. Dies solltest du insbesondere dann tun, wenn du ein und den selben Code für mehrer Vorgänge innerhalb eines UF benutzt.

In jedem Fall solltest du darauf achten, das UF sauber mit Unload UF zu schliessen und nicht nur mit 'UF.Hide', da sonst das UF u.U. nicht frisch initialisiert wird und dadurch der alte Inhalt im UF dargestellt wird.

Gruss
Chris

bis dann
Chris


 Bild

Excel-Beispiele zum Thema " Listbox füllen mit Suchkriterium"

Mehrfachauswahl aus ListBox auslesen download Gefilterte Daten in eine ListBox einlesen download
Dateien aus Listbox auslesen und öffnen download Listbox-Eintrag durch Mausbewegung markieren download
ListBox-Einträge auswechseln download Horizontal angeordnete Elemente in eine ListBox übernehmen download
Tabellenblattnamen in eine ListBox einlesen download ListBox bei Eintrag erweitern download
Als Zellkontextmenü Listbox aufrufen download Dateinamen in Listbox download
Mehrfachauswahl in ListBox auslesen download Ordner eines Verzeichnisses in ListBox übernehmen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Matrix in UserForm-ListBox einlesen download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Ausgewählte Werte aus UserForm-ListBoxes addieren download Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download ListBox-Auswahl in Labels übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Blattnamen bedingt in ListBox einlesen und Blätter auswählen download
Einlesen von Spaltenköpfen in UserForm-ListBox download Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download
Mehrspaltige UserForm-ListBox lückenlos füllen download Makroverzweigungen nach OptionsFeld- oder ListBox-Auswahl download
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download Werte aus UserForm-ListBox in die Zwischenablage übernehmen download
Wert aus UserForm-ListBox in Tabellenblatt eintragen download Einlesen des Outlook-Adressbuches in eine UserForm-ListBox download
Blattauswahl über UserForm-ListBox mit Mehrfachauswahl download UserForm-TextBox-Werte einer ListBox hinzufügen download
Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter download Zufallszahl in UserForm-ListBox zentriert anzeigen download
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen download
Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen download
UserForm-ListBox-Einträge sortieren download Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös download
Doppelte Einträge in UserForm-ListBox löschen download Mehrspaltige UserForm-ListBox sortieren download
Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle download Zweite ListBox in Abhängigkeit der ersten füllen download
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download Werte in zweispaltiger ListBox rechts- und linksbündig darstellen download