Gruppe
Dialog
Problem
Die verschiedenen Erscheinungsformen einer UserForm-ListBox werden dargestellt.
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