Herbers Excel-Forum - das Archiv

Rowsource

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

Betrifft: Rowsource
von: Basti

Geschrieben am: 31.03.2005 20:38:28
Hallo zusammen,
ich habe zwei Listenfelder. Im ersten Listenfeld werden drei Begriffe angezeigt. Nun möchte ich gern das wenn ich auf den ersten Begriff klicke in das zweite Listenfeld die Begriffe aus der Rowsource in der Spalte a angezeigt werden, wenn ich den zweiten Begriff klicke die Begriffe der Spalte b usw. Wie funktioniert das.
Vielen Dank Basti.
Bild

Betrifft: AW: Rowsource
von: Beni

Geschrieben am: 31.03.2005 20:54:46
Hallo Basti,
Gruss Beni

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim li, lz As Integer
li = ListBox1.ListIndex + 1
lz = Cells(65536, li).End(xlUp).Row
If ListBox1.ListIndex = 0 Then ListBox2.RowSource = "a1:a" & lz
If ListBox1.ListIndex = 1 Then ListBox2.RowSource = "b1:b" & lz
If ListBox1.ListIndex = 2 Then ListBox2.RowSource = "c1:c" & lz
End Sub

Bild

Betrifft: AW: Rowsource
von: Basti
Geschrieben am: 31.03.2005 21:01:19
Vielen Dank für die schnelle Hilfe,
Gruß Basti
 Bild