VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Darstellung der verschiedenen Erscheinungsformen von LixtBoxes

Gruppe

Dialog

Bereich

ListBox

Thema

Darstellung der verschiedenen Erscheinungsformen von LixtBoxes

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox