Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Listboxen Scroll Problem

Betrifft: Listboxen Scroll Problem von: Tobias
Geschrieben am: 17.09.2004 09:50:52

hallo,

Ich habe 2 Listboxen und versuche nun 2 Dinge , 1tens das wenn ich einen Eintrag aus der ersten Listbox anwähle , der eintrag aus der 2ten listbox selectiert wird mit dem gleichen index und 2tens wenn ich in der ersten box senkrecht scrolle die gleiche bewegung auch in der 2ten box vorgenommen wird.

mfg
Tobias

  


Betrifft: AW: Listboxen Scroll Problem von: ANdreas
Geschrieben am: 17.09.2004 10:30:18

Hallo Tobias,

für die erste Frage (ohne Multiselect):

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


Die zweite Frage ist imo nicht machbar.

Gruß
Andreas


  


Betrifft: AW: Listboxen Scroll Problem von: tobias
Geschrieben am: 17.09.2004 10:38:36

Hallo

hab das irgendwann mal gemacht, kann mich eben aber nicht genau daran erinnern.

Ich glaube so:

Private Sub ScrollBar1_Scroll()
    ScrollBar1_Change
    ScrollBar2_Change
End Sub


Private Sub ScrollBar2_Scroll()
    ScrollBar1_Change
    ScrollBar2_Change
End Sub


mfg tobias


  


Betrifft: AW: Listboxen Scroll Problem von: ANdreas
Geschrieben am: 17.09.2004 11:00:12

Hallo Tobias,

das ist was anderes. Ich denk Du willst in der Listbox selbst scrollen - das kannst leider nicht mit VBA "auswerten".
Die ScrollBar wie Du sie jetzt schreibst ist ein anderes Steuerelement.

Du kannst natürlich zwischen beide ListBoxen so eine extra Scrollbar setzen. Mit der Scrollbar dann in der ListBox1 scrollen (und damit sofort den Wert setzen).

Schau Dir das Beispiel mal an:
Private Sub ListBox1_Change()
ListBox2.ListIndex = ListBox1.ListIndex
ScrollBar1.Value = ListBox1.ListIndex
End Sub


Private Sub ScrollBar1_Change()
ListBox1.ListIndex = ScrollBar1.Value
End Sub


Private Sub UserForm_Initialize()
Dim i%

For i = 1 To 20
    ListBox1.AddItem i
    ListBox2.AddItem i * i
Next i
With ScrollBar1
    .Min = 0
    .Max = 19
    .LargeChange = 1
    .SmallChange = 1
End With
End Sub


Hoffe das hilft weiter,
Andreas


  


Betrifft: AW: Listboxen Scroll Problem von: Tobias
Geschrieben am: 17.09.2004 10:39:00

Danke Andreas.

gruß
Tobias


 

Beiträge aus den Excel-Beispielen zum Thema "Listboxen Scroll Problem"