Kombinationsfeld befüllen

Private Sub ComboAuswahl_Change() Dim intC As Integer Dim lngR As Long lngR = 2 intC = (ComboAuswahl.ListIndex * 2) + 1 With listOptional .Clear If intC <= 0 Then Exit Sub .ColumnCount = 2 Do .AddItem Sheets("Suche").Cells(lngR, intC) .List(.ListCount - 1, 1) = Sheets("Suche").Cells(lngR, intC + 1) lngR = lngR + 1 Loop While Sheets("Suche").Cells(lngR, intC) <> "" End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboAuswahl_Change() Dim intC As Integer Dim lngR As Long, wks As Worksheet Set wks = Sheets("Suche") intC = (ComboAuswahl.ListIndex * 2) + 1 With listOptional .Clear If intC <= 0 Then Exit Sub .ColumnCount = 2 For lngR = 2 To wks.Cells(wks.Rows.Count, intC).End(xlUp).Row If Not (IsEmpty(wks.Cells(lngR, intC)) _ Or LCase(wks.Cells(lngR, intC)) = "europa" _ Or wks.Cells(lngR, intC) = "") Then .AddItem wks.Cells(lngR, intC) .List(.ListCount - 1, 1) = wks.Cells(lngR, intC + 1) End If Next lngR End With End Sub

Hallo Andre,
erstmal viel Dank für Deine Antwort!
Wahrscheinlich habe ich mich bei meinem Problem auch falsch ausgedrückt.
Mein Kombinationsfeld ("ComboAuswahl") lasse ich zu beginn von einem ganz anderen Tabellenblatt befüllen.
Wählt der User nun aus "ComboAuswahl" einen Eintrag aus, gibt es auf meinem Formular ein
Listenfeld ("listOptional"), dass nun abhängig vom Eintrag im Kombinationsfeld befüllt wird.
Die Daten für das Listenfeld hole ich aus dem Tabellenblatt "Suche".
Dieses Tabellenblatt ist wie der angehängte Screenshot aufgebaut:
Userbild

Wählt der User nun z. B. Option 1 im Kombinationsfeld ("ComboAuswahl") aus, bekommt er im
Listenfeld ("listoptional") z. Z. folgende Einträge: australien, 0, europa, afrika
Jetzt möchte ich gerne filtern unabhängig welche Option der User auswählt, dass im Listenfeld
("listoptional") nie die Werte europa oder 0 angezeigt wird.
Viele Grüße,
Markus

Hallo Andre,
der Aufbau ist immer so, dass die Werte im Tabellenblatt "Suche" für die Listbox in jeder 2. Spalte stehen (2, 4, 6, 8 ....).
Der code lässt auch offen, wie viele Spalten belegt sind, d. h. es wird immer geprüft ob meine Auswahl aus dem Kombinationsfeld "comboAuswahl" wie z. B. Option 1 im Tabellenblatt "Suche" in der 1. Zeile vorhanden ist und wenn ja, werden die Werte in die Listbox geladen.
Beispiel: Wähle ich Option 2 im Kombinationsfeld, werden mir untereinander im Listenfeld die Werte 0, 0, amerika, 0 angezeigt.
Meine Frage ist nun, wie ich meinen untenstehenden Code so anpasse, dass er auch immer automatisch die Spalten durchgeht und ich nicht vorab definieren muss, welche Spalten die Werte enthalten, da es unterschiedlich sein kann, wie weit die Spaltenbelegung im Tabellenblatt geht und dann natürlich die Werte "0" bzw. "europa" in der Listbox herausfiltert.
Gruß,
Markus


Private Sub ComboAuswahl_Change()
Dim intC As Integer
Dim lngR As Long, wks As Worksheet
Set wks = Sheets("Suche")
intC = (ComboAuswahl.ListIndex * 2) + 1
With listOptional
.Clear
If intC <= 0 Then Exit Sub
.ColumnCount = 2
For lngR = 2 To wks.Cells(wks.Rows.Count, intC).End(xlUp).Row
If Not (IsEmpty(wks.Cells(lngR, intC)) _
Or LCase(wks.Cells(lngR, intC)) = "europa" _
Or wks.Cells(lngR, intC) = "") Then
.AddItem wks.Cells(lngR, intC)
.List(.ListCount - 1, 1) = wks.Cells(lngR, intC + 1)
End If
Next lngR
End With
End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread