Userform mit zwei Listboxes synchron scrollen
Schritt-für-Schritt-Anleitung
Um zwei Listboxes in einer Userform synchron scrollen zu lassen, kannst Du den folgenden VBA-Code verwenden:
- Öffne die Excel-Datei und gehe in den VBA-Editor (Alt + F11).
- Erstelle eine Userform und füge zwei Listboxes (ListBox1 und ListBox2) hinzu.
- Füge einen CommandButton hinzu, um die Listboxen mit Daten zu befüllen.
- Kopiere den folgenden VBA-Code in das Codefenster der Userform:
Private nFocus As Long
Private Sub CommandButton1_Click()
For X = 1 To 300
ListBox1.AddItem "abc " & Rnd()
ListBox2.AddItem "abc " & Rnd()
Next X
End Sub
Private Sub ListBox1_Enter()
nFocus = 1
End Sub
Private Sub ListBox2_Enter()
nFocus = 2
End Sub
Private Sub UserForm_Activate()
Do While UserForm1.Visible
DoEvents
If nFocus = 1 Then
ListBox2.TopIndex = ListBox1.TopIndex
ElseIf nFocus = 2 Then
ListBox1.TopIndex = ListBox2.TopIndex
End If
Loop
End Sub
- Schließe den VBA-Editor und teste die Userform, indem Du sie ausführst.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode, um die Daten in den Listboxes zu verwalten, wäre die Verwendung einer mehrspaltigen ListBox. Hierbei kannst Du die Daten in einer einzigen ListBox anzeigen, was möglicherweise stabiler und einfacher zu handhaben ist:
- Füge eine ListBox hinzu und stelle im Eigenschaftenfenster die
ColumnCount auf die Anzahl der Spalten ein.
- Fülle die ListBox mit Daten aus der Tabelle, indem Du die
RowSource-Eigenschaft nutzt.
Praktische Beispiele
Wenn Du eine Tabelle mit vielen Spalten hast, wie in Peters Beispiel mit 41 Spalten, kannst Du die Daten in einer mehrspaltigen ListBox anzeigen. Dies könnte so aussehen:
ListBox1.RowSource = "A1:U100"
ListBox2.RowSource = "A1:AO100"
Hiermit füllst Du die beiden Listboxes in der Userform direkt mit Daten aus einem Excel-Arbeitsblatt.
Tipps für Profis
- Verwende
With...End With, um den Code effizienter zu gestalten, wenn Du mehrere Eigenschaften einer ListBox bearbeiten möchtest.
- Denke daran, dass große Datenmengen in Listboxes die Performance beeinträchtigen können. Überlege, ob es sinnvoller wäre, die Daten in einer Tabelle zu filtern oder zu sortieren, anstatt sie in Listboxes anzuzeigen.
FAQ: Häufige Fragen
1. Wie kann ich die Listboxes mit einer Tabelle verknüpfen?
Um eine ListBox mit einer Tabelle zu verknüpfen, kannst Du die RowSource-Eigenschaft verwenden, um einen Bereich in der Tabelle anzugeben.
2. Kann ich die Listboxes auch in einer Excel-Version vor 2016 verwenden?
Ja, der bereitgestellte VBA-Code funktioniert auch in früheren Versionen von Excel, solange die Userform und ListBoxen vorhanden sind.