Wie kann ich aus einer Listbox mit Mehrfachauswahl die ausgewählten Einträge auslesen?
Vielen Dank für Eure Hilfe
Gruss TOM
Wie kann ich aus einer Listbox mit Mehrfachauswahl die ausgewählten Einträge auslesen?
Vielen Dank für Eure Hilfe
Gruss TOM
Im folgenden Beispiel wird anhand der Eigenschaften MultiSelect und Selected veranschaulicht, wie der Benutzer ein oder mehrere Elemente in einem Listenfeld-Steuerelement (ListBox) auswählen kann. Der Benutzer gibt eine Auswahlmethode an, indem er auf ein Optionsfeld klickt, und wählt dann ein oder mehrere Elemente in dem Listenfeld-Steuerelement (ListBox) aus. Er kann die ausgewählten Elemente in einem zweiten Listenfeld-Steuerelement anzeigen, indem er auf das Befehlsschaltfläche-Steuerelement (CommandButton) klickt.
Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie diesen Beispielcode in den Bereich Deklarationen eines Formulars. Das Formular muss Folgendes enthalten:
Zwei Listenfeld-Steuerelemente (ListBox) mit den Namen ListBox1 und ListBox2.
Ein Befehlsschaltfläche-Steuerelement (CommandButton) mit dem Namen CommandButton1.
Drei Optionsfeld-Steuerelemente (OptionButton) mit den Namen OptionButton1, 2 und 3.
Dim i As Integer
Private Sub CommandButton1_Click()
ListBox2.Clear
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
End Sub
Private Sub OptionButton1_Click()
ListBox1.MultiSelect = fmMultiSelectSingle
End Sub
Private Sub OptionButton2_Click()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub OptionButton3_Click()
ListBox1.MultiSelect = fmMultiSelectExtended
End Sub
Private Sub UserForm_Initialize()
For i = 0 To 9
ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1)
Next i
OptionButton1.Caption = "Single Selection"
ListBox1.MultiSelect = fmMultiSelectSingle
OptionButton1.Value = True
OptionButton2.Caption = "Multiple Selection"
OptionButton3.Caption = "Extended Selection"
CommandButton1.Caption = "Show selections"
CommandButton1.AutoSize = True
End Sub
Ich Dödel habe bei For i = 0 To 9 in meinem Code For i = 1 To 9 geschrieben und so gibt es eine Fehlermeldung.
Gruss und schönes Weekend
TOM