Option Explicit
 
Private Sub Command1_Click()
    Dim i As Long
 
    'Ausgewählte Items aus List1 in List2 anzeigen
    List2.Clear
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            List2.AddItem List1.List(i)
            List2.ItemData(List2.NewIndex) = List1.ItemData(i)
            List1.Selected(i) = False
        End If
    Next i
End Sub
 
Private Sub Form_Load()
    Dim i As Long
    Dim datenSatzNummer As Long
 
    'Füllen der List1
    For i = 0 To 10
        List1.AddItem "Auftragsnummer" + CStr(i)
        datenSatzNummer = i
        'z.B. Datensatznummer in der ItemData-Eigenschaft speichern
        List1.ItemData(i) = datenSatzNummer
    Next i
End Sub
 
Private Sub List2_Click()
    If List2.ListIndex < 0 Then
        MsgBox "Keine Einträge da !", vbInformation
        Exit Sub
    End If
    MsgBox "Datensatz " + CStr(List2.ItemData(List2.ListIndex)) + " jetzt" & _
      "irgenwie weiterverarbeiten !", vbInformation
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1