Private Sub scanfertig_Click()
 
Dim buchlisten As Integer
Dim scanlisten As Integer
ScanListe.Refresh
Buchliste.Refresh
buchlisten = Buchliste.ListCount
scanlisten = ScanListe.ListCount
 
Dim n As Integer
 
n = 0
 
    For n = 0 To (scanlisten - 1)
     Buchliste.AddItem ScanListe.List(n), buchlisten + n
    Next
 
ScanListe.Clear
End Sub