Overføre noget fra list1 til list2..... (HASTER)

Private Sub Command1_Click()
  list2.additem list1.text
End Sub

Det er sådanset det!

Eller skal det lægges på et bestemt index ?

Nej, den her er bedre:

Private Sub Command1_Click()
  If list2.listindex>-1 Then
    list2.additem list1.text
    list2.removeitem list2.listindex
  End If
End Sub 

Denne her checker for om det der skal kopieres allerede findes i List2 (hvis der ikke må opstå dubletter.)

Private Sub Command1_Click()
  If list2.listindex>-1 Then
    strItem = List1.Text

    For i = 0 To List2.ListCount - 1
      If List2.List(i) = strText Then bolIsInList = True
    Next

    If bolIsInList = False Then
      List2.AddItem strItem
      List2.RemoveItem List2.ListIndex
    End If
  End If
End Sub 

TAk for hjælpen.... men hvordan fjerner man så det man lige at flyttet over i list 2 ved et uheld..... og via en knap

Ligesom en undo knap der fjerner det sidst tilføjede item ?
Hovsa! Der var en fejl .. brug denne her:

Private Sub Command1_Click()
  If list1.listindex>-1 Then
    strItem = List1.Text

    For i = 0 To List2.ListCount - 1
      If List2.List(i) = strText Then bolIsInList = True
    Next

    If bolIsInList = False Then
      List2.AddItem strItem
      List2.RemoveItem List2.ListIndex
    End If
  End If
End Sub 

og til din undo

Private Sub Command2_Click()
  if not list2.listcount=-1 then
    List2.RemoveItem list2.ListCount - 1
  end if
End Sub 

til undo knappen, så laver den en debug hvis der ikke er noget i list2 at fjerne og det skal den jo ikke, hvis der ikke er noget at fjerne kan den så ikke komme med en msgbox hvor programmet fortæller at der ikke er noget at fjerne

Private Sub Command2_Click()
  If Not List2.ListCount = -1 Then
    List2.RemoveItem list2.ListCount - 1
  Else
    MsgBox \"Der er intet at fjerne!\", vbOKOnly + vbExclamation, \"Fejl!\"
  End If
End Sub

hej tdaugaard

den kommer stadig med en debug fejl \"Run time error 5\"

jeg har lavet lidt om på koden

If Not List2.ListCount = -1 Then
List2.RemoveItem List2.ListIndex
    Else
If List2.ListCount = -1 Then
MsgBox \"Der er intet at fjerne!\", vbOKOnly + vbExclamation

End If
End If
End Sub

men jeg kan stadig ikke få den til at virke

du havde .ListCount = -1 .. det skal være .ListIndex = -1

If Not List2.ListIndex = -1 Then
  List2.RemoveItem List2.ListIndex
Else
  If List2.ListCount = -1 Then MsgBox \"Der er intet at fjerne!\", vbOKOnly + vbExclamation
End If

hej tdaugaard

tak for hjælpen det virker perfekt nu... håber du bliver glad for dine 800 point.... :-) hehe

Jeg kan ikke sige de faldt på et tørt sted (har 12997 point nu *S*) men det hjælper godt og vel på min placering :)

:-)