Private Sub cmdUebergeben_Click()
    Dim i As Integer
    Dim j As Integer
 
    j = 0
 
    With lstDaten
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                lblUebergeben(j).Caption = .List(i)
                j = j + 1
 
                If j = 3 Then
                    Exit For
                End If
            End If
        Next
    End With
End Sub