Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Darstellung der verschiedenen Erscheinungsformen von LixtBoxes

Gruppe

ListBox

Problem

Die verschiedenen Erscheinungsformen einer UserForm-ListBox werden dargestellt.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

ClassModule: frmListBox

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdCheck_Click()
   ListBox1.ListStyle = fmListStyleOption
   ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub cmdOption_Click()
   ListBox1.ListStyle = fmListStyleOption
   ListBox1.MultiSelect = fmMultiSelectSingle
End Sub

Private Sub cmdPlain_Click()
   ListBox1.ListStyle = fmListStylePlain
End Sub

Private Sub UserForm_Initialize()
   ListBox1.List = Range("A1").CurrentRegion.Value
End Sub
StandardModule: Modul1

Sub CallForm()
   frmListBox.Show
End Sub