✔ [Excel-VBA] Comboboxen miteinander Verknüpfen

F

FlockY

Mitglied
Hallo,

ich möchte auf einer Userform verschieden Comboboxen verknüpfen.

Ich habe eine Tabelle mit lauter Einträge z.b. PLZ, LAND, ORT

Jetzt will ich eine neue Seite machen mit einem Bestellformular in dem man mittels Comboboxen die Anschrift z.b. selbst zusammenstellen kann.

Also wenn ich in Combobox1 Deutschland ausgewählt hab, sollen in Combobox2 nur deutsche Postleitzahlen angezeigt werden, und wenn ich diese ausgewählt hab, soll der ort kommen... usw und sofort.

Ich hoffe ihr habt verstanden was ich will :/

Praktisch wie ein Sverweis in einzelnen schritten :)
 
Von der Grundüberlegung würde ich einfach bei Änderung die anderen Comboboxen eine neue RowSource geben:
Code: 
Private Sub ComboBox1_Change()
    For Each c In Worksheets("Tabelle1").Range(ComboBox1.RowSource).Cells
        If c = ComboBox1.Value Then
            tmp = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)
            tmp = Mid(tmp, 2)
            tmp = "B" & tmp & ":H" & tmp
            ComboBox2.RowSource = (tmp)
        End If
    Next
End Sub
Allerdings weiß ich nicht wie man RowSource beibringen kann, dass es in Zeilen und nicht Spalten schauen soll
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück