Auswahl in Listbox1 und Übertrag in Listbox2
Berni
Habe noch ein kleines Laufzeitproblem. Vielleicht kann mir da irgend jemand unter die Arme greifen.
Also ich habe eine Listbox1, in welcher die Monate aufgelistet sind. Hier kann ich einen Monat bzw. mehrere bzw. alle Monate auswählen. Die ausgewählten sollten dann in die Nachbar-Listbox2 übertragen werden. Nur hier stolpere ich in der Zeile Me.ListBox3.AddItem Me.ListBox2.Value
Hier einmal die Codes:
Private Sub CommandButton3_Click()
Dim zllb1 As Integer
For zllb1 = 0 To Me.ListBox2.ListCount - 1
Me.ListBox2.Selected(zllb1) = True
Next zllb1
End Sub
Private Sub CommandButton4_Click()
Dim zllb1 As Integer
Dim zllb2 As Integer
zllb2 = Me.ListBox3.ListCount
For zllb1 = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(zllb1) = True Then
Me.ListBox3.AddItem Me.ListBox2.Value
End If
Next zllb1
End Sub
Schöne Grüße
Berni
Anzeige