ich möchte die Auswahl in meiner ListBox (MultiSelect) auf zwei Werte begrenzen.
For lListBox = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(lListBox) Then
lZeile = lZeile + 1
.Range("R1" & lZeile).Value = ListBox2.List(lListBox, 0)
End If
Next lListBox
Die ListBox wurde mit
Set dic = CreateObject("Scripting.Dictionary")
befüllt, so dass mir die Variable "lZeile" nichts nützt.
Gruß Rainer