Befüllen von zweiter ComboBox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub cbx_Zielort_Change() 'Dim arr As Variant, wks As Worksheet Set wks = ActiveWorkbook.Worksheets("Reiseziele") arr = wks.Range("A" & cbx_Zielort.ListIndex + 1 & ":C" & cbx_Zielort.ListIndex + 1) cbx_Zielstrasse.Column = arr End Sub

Private Sub cbx_Zielort_Change() 'Befülle ComboBox "Zielstrasse" gefiltert nach Eintrag aus ComboBox "Zielort" Dim arr As Variant, wks As Worksheet Set wks = Worksheets("Reiseziele") If cbx_Zielort.ListIndex = -1 Then MsgBox "Es wurde nichts ausgewählt!" Exit Sub Else arr = wks.Cells(1, cbx_Zielort.ListIndex + 1).Resize(1, 3).Value cbx_Zielstrasse.Column = arr End If ' cbx_Zielstrasse.Column = Worksheets("Reiseziele").Cells(1, cbx_Zielort.ListIndex + 1). _ Resize(1, 3).Value End Sub

Moin!
Das mit dem Testen ist so ein Problem. Deine UF Tag löst bei mir einen Fehler aus. Ohne die UF geht es, dann kann man aber nicht testen.
Aber wenigstens kannst du jetzt den Fehler schonmal eingrenzen. :-)
Was mir gestern Abend noch auffiel. Ich glaube, dass du in deinem Array die Zeile und Spalte vertauscht hast. Du willst ja vom angeklickten Eintrag in der Combobox die entsprechenden 3 Spalten (PLZ, Ort und Straße) aufgelistet haben. Dann muss aber dein listindex bei Cells als erster Parameter laufen. So hier würde der Code nun von der Auswahl die Spalten daneben anzeigen.

arr = wks.Cells(cbx_Zielort.ListIndex + 1, 1).Resize(1, 3).Value

Aber mal als Frage. Auch bei der Ausführung hast du in Straße dann sowohl die PLZ als auch den Ort und nicht nur die Straßen. ISt das so gewollt? Wenn nicht, erklär mal bitte, was dann angezeigt werden soll.
VG

Moin!
Wie gesagt, kann deine UF_Tag nicht testen, da sie bei mir einen Speicherfehler auslöst. Habe sie deshalb aus der Datei gelöscht. Kann deshalb nicht den genauen Ablauf darstellen. Meine selbst gebastelte UF hat deshalb nur 2 CB mit deinen Namen. Mit dem Code hier, werden beim Anklicken die Werte aus der entsprechenden Zeile eingetragen. Allerdings halt PLZ, Ort und Straße (wäre da nicht nur die Straße relevan?). Sollte glaube ich so sein, wie du wolltest.

Private Sub cbx_Zielort_click()
'Befülle ComboBox "Zielstrasse" gefiltert nach Eintrag aus ComboBox "Zielort"
Dim arr As Variant, wks As Worksheet
Set wks = Worksheets("Reiseziele")
If cbx_Zielort.ListIndex > -1 Then
arr = wks.Cells(cbx_Zielort.ListIndex + 1, 1).Resize(1, 3).Value
cbx_Zielstrasse.Column = arr
End If
'    cbx_Zielstrasse.Column = Worksheets("Reiseziele").Cells(1, cbx_Zielort.ListIndex + 1). _
Resize(1, 3).Value
End Sub

Wobei deine DAten in CB_Zielort nicht auf doppelte geprüft werden. Da wäre auch die Frage, was soll passieren, wenn Spalte A und B gleich sind aber C unterschiedlich? Gehe aber davon aus, dass deine Ausgangsdaten da keine Doppelungen haben.
Du könntst mal deine UF_Tag exportierne und in einer blanken Mappe hier einstellen, wenn es das noch nicht war. Dann könnte ich die einpflegen und schauen, was anders läuft.
VG

Private Sub cbx_Zielort_click() 'Befülle ComboBox "Zielstrasse" gefiltert nach Eintrag aus ComboBox "Zielort" Dim arr As Variant, wks As Worksheet Set wks = Worksheets("Reiseziele") If cbx_Zielort.ListIndex > -1 Then arr = wks.Cells(cbx_Zielort.ListIndex + 1, 3).Resize(1, 3).Value cbx_Zielstrasse.List = arr End If End Sub

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Befüllen von zweiter ComboBox

24 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)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread