Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listboxen Scroll Problem

Listboxen Scroll Problem
17.09.2004 09:50:52
Tobias
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listboxen Scroll Problem
17.09.2004 10:30:18
ANdreas
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
AW: Listboxen Scroll Problem
tobias
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
Anzeige
AW: Listboxen Scroll Problem
17.09.2004 11:00:12
ANdreas
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
Anzeige
AW: Listboxen Scroll Problem
17.09.2004 10:39:00
Tobias
Danke Andreas.
gruß
Tobias

Links zu Excel-Dialogen

ListBox ScrollBar

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige