Office: In Userform 3 ListBoxen synchronisieren

Hallo, habe wieder mal ein Problem.
Habe in meiner UserForm 3 ListBoxen eingefügt, welche alle 3 synchron / parallel laufen sollen. Ändere ich in irgendeiner ListBox mit Up/Down den Inhalt, so soll dieser sich parallel in den anderen 2 auch ändern.

ListBox2 = RowSource: Startseite!$U$2:$U$1000
ListBox1 = RowSource: Startseite!$Q$2:$Q$1000
ListBox3 = RowSource: Startseite!$V$2:$V$1000

Alle drei Listboxen stehen quasi immer im Verhältnis zueinander.

Im Tabellenblatt kann ich diesen Listenfeldern eine Zellverknüpfung zuweisen, an der sie sich orientieren können.
Geht dies auch in einer Userform?

Gruß Timi

 

Hallo!

Die Position des Eintrags kannst du mit der Eigenschaft ListIndex auslesen und einlesen.
Der erste Eintrag hat den Index 0, der zweite den Index 1, usw.

Also kannst du die Listboxen wechselseitig verknüpfen, z.B. so:

Code:

Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
End Sub

Private Sub ListBox2_Click()
ListBox1.ListIndex = ListBox2.ListIndex
End Sub

 

Vielen Dank, klappt super!

Sieht bei mir so aus:

Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
ListBox3.ListIndex = ListBox1.ListIndex
End Sub

Private Sub ListBox2_Click()
ListBox1.ListIndex = ListBox2.ListIndex
ListBox3.ListIndex = ListBox2.ListIndex
End Sub

Private Sub ListBox3_Click()
ListBox1.ListIndex = ListBox3.ListIndex
ListBox2.ListIndex = ListBox3.ListIndex
End Sub

Gruß Timi