ich würde mich freuen, wenn ihr mir bei folgendem Problem helft:
Habe 2 Listboxen im Userform und möchte unter Mehrfachauswahl Werte von der ListBox1 zur ListBox2 verschieben (diese sollen auch in ListBox1 gelöscht werden). Leider klappt mein Code nur bedingt, da nur einer der selektierten Werte aus ListBox1 gelöscht wird, jedoch alle selektierten Werte in ListBox2 hinzugefügt werden :( Wo liegt der Fehler?
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
ListBox1.RemoveItem (i)
End If
Next i
End Sub
Private Sub UserForm_Initialize()
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox2.MultiSelect = fmMultiSelectMulti
ListBox2.Clear
Dim quelldaten As Range, zelle As Range
Set quelldaten = Sheets("Tabelle1").Range("A1:O1")
For Each zelle In quelldaten
If zelle.Value = Empty Then Exit For
ListBox1.AddItem zelle
Next zelle
End Sub