ListBox

Bewerten Sie hier bitte das Excel-Portal

Inhalt Zurück Vor

Praxistipps

Praxistipps
- ListBoxes sind einzusetzen, wenn man dem Anwender Auswahlmöglichkeiten anbieten möchte. Ist eine Übersicht mehrerer Elemente der Liste nicht notwendig, ist der ListBox die ComboBox vorzuziehen.
- Man kann eine ListBox an einen Zellbereich eines Tabellenblattes binden, indem man die RowSource-Eigenschaft mit einer Bereichsadressierung belegt. Dieses Verfahren der gebundenen Steuerelemente ist bei UserForms nicht zu empfehlen; die Daten sollten eingelesen werden. Wird die ListBox nicht in der UserForm sondern im Tabellenblatt eingesetzt, ist ListFillRange die Entsprechung für RowSource.
- Wenn es sich um eine gebundene ListBox handelt, kann über die ColumnHeads-Eigenschaft eine Kopfzeile festgelegt werden:
  
  Abbildung - Kopfzeile bei ListBox
  
  Ist die ListBox nicht gebunden, kann diese Eigenschaft nicht gesetzt werden. Ein ähnlicher Effekt ist über das Einfügen von Labels oberhalb der ListBox zu erzielen.

Standardprozeduren

ListBox mit Monatsnamen füllen

Private Sub UserForm_Initialize()
   Dim iMonth As Integer
   For iMonth = 1 To 12
      ListBox1.AddItem Format(DateSerial(1, iMonth, 1), "mmmm")
   Next iMonth
End Sub

Zweispaltige ListBox mit Datum und Tagen füllen

Private Sub UserForm_Initialize()
   Dim lDay As Long
   Dim iCounter As Integer
   Dim arr(1 To 2, 1 To 7) As Variant
   For lDay = Date To Date + 6
      iCounter = iCounter + 1
      arr(1, iCounter) = Format(lDay, "dd.mm.yyyy")
      arr(2, iCounter) = Format(lDay, "dddd")
   Next lDay
   With ListBox1
      .ColumnCount = 2
      .Column = arr
   End With
End Sub

ListBox mit Zellwerten füllen

Private Sub UserForm_Initialize()
   ListBox1.List = Range("A1").CurrentRegion.Columns(1).Value
End Sub

Zweispaltige ListBox mit Zellwerten füllen

Private Sub UserForm_Initialize()
   With ListBox1
      .ColumnCount = 2
      .List = Range("A1").CurrentRegion.Columns("A:B").Value
   End With
End Sub

Microsoft zur ListBox:
Zeigt eine Liste von Werten an, aus der Sie einen oder mehrere Werte auswählen können.

Hinweise

Wenn das Listenfeld-Steuerelement (ListBox) an eine Datenquelle gebunden ist, speichert es den ausgewählten Wert in dieser Datenquelle.

Das Listenfeld-Steuerelement kann entweder als Liste, als Gruppe von Optionsfeld-Steuerelementen (OptionButton) oder als Gruppe von Kontrollkästchen-Steuerelementen (CheckBox) angezeigt werden.

Die Standardeigenschaft für das Listenfeld-Steuerelement ist die Value-Eigenschaft.

Das Standardereignis für das Listenfeld-Steuerelement ist das Click-Ereignis.

Anmerkung In einem Dropdownlistenfeld-Steuerelement kann kein Text abgelegt werden.

Die Beispiele zum Einsatz von ListBoxes

Download Beispiel-Arbeitsmappe
Gefilterte Daten einlesen Bereichsnamen einlesen Artikelauswahl Mehrfachauswahl in Tabelle Dateien einlesen Fundstellen listen Dateien einlesen und öffnen Mit der Maus scrollen Wert austauschen Zeilenwerte einlesen Blattnamen listen Mehrfachauswahl Dateien sortiert einlesen Nicht ausgewählte Elemente Array einlesen	Als Collection-Objekt Einkaufskorb Auswahl in Labels anzeigen Spaltenköpfe editieren Arbeitsblätter aus/einblenden Lückenlos einlesen Erste Spalte in Arbeitsblatt Auswahl in Zwischenablage Blattauswahl mit Mehrfachauswahl Nur sichtbare Zellen einlesen Wert in Liste vertikal zentrieren Gemäß Aufruf einlesen Tabelle einlesen Element auswählen Zeitgesteuert scrollen	Sortieren der ListBox Elemente löschen Doppelte löschen Mehrspaltige ListBox sortieren Mehrfachauswahl in neue Arbeitsmappe Zweite ListBox nach Auswahl füllen Spalten bündig darstellen Ausgewählte Blätter speichern Wert in Tabelle übernehmen Bei ListBox-Auswahl aktivieren Nur gleiches Datum Hinzufügen von TextBox-Werten Suchen und markieren Die Erscheinungsformen

Die Elemente der ListBox

Eigenschaften	Methoden	Ereignisse
BackColor BorderColor BorderStyle BoundColumn ColumnCount ColumnHeads ColumnWidths ControlSource ControlTipText Enabled Font ForeColor Height HelpContextID ImeMode Left ListStyle Locked MatchEntry MouseIcon MousePointer MultiSelect RowSource SpecialEffect TabIndex TabStop Tag Text TextAlign TextColumn Top TopIndex Value Visible Width	AddItem Clear RemoveItem	AfterUpdate BeforeDragOver BeforeDropOrPaste BeforeUpdate Change Click DblClick Enter Error Exit KeyDown KeyPress KeyUp MouseDown MouseMove MouseUp

Excel und VBA: Formeln, Programmierung, Lösungen

ListBox

Fragen und Antworten aus dem Excel-Forum zum Thema Calendar