Excel und VBA: Formeln, Programmierung, Lösungen

ListBox

• 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