Listbox1 til Listbox2

Private Sub ListBox1_Click()
a = ListBox1.Text
c = False

If ListBox2.ListCount > 0 Then
    For i = 0 To ListBox2.ListCount
   
        ListBox2.ListIndex = i - 1
        b = ListBox2.Text
       
        If a = b Then
            c = True
            Exit For
        End If
       
    Next
End If
If c = False Then
    ListBox2.AddItem (a)
End If

   
End Sub

//akj

Tak for din tid - nåede ikke at kigge på det - fandt selv dette i "biblen" eller i hvert fald starten på det og resten fandt jeg i hjælpen til excel..:

Dim i, j
If ListBox1.ListIndex = -1 Then Exit Sub
    For j = 0 To ListBox1.ListCount - 1
        For i = 0 To ListBox2.ListCount - 1
            If ListBox1.Selected(j) = True Then
                If ListBox1.list(j) = CLng(ListBox2.list(i)) Then
                    ListBox1.Selected(j) = False
                    Exit For
                End If
            End If
        Next i
        If ListBox1.Selected(j) = True Then
            ListBox2.AddItem ListBox1.list(j)
        End If
    Next j

Hvis nogen skulle have kommentar til koden - forbedringer etc. hører jeg gerne...

Det skal lige siges at listbox1 blev til en Multi-Select listbox - ved godt at det ikke var nævnt i spørgsmålet....

Biblen = Excel 2002 Power Programming with VBA af John Walkenbach -
isbn: 0-7645-4799-2 (hvis nogen skulle være interesseret)