Dim Anzahl As Integer = Excel1.Range("F2").Value
            Dim i As Integer
            Dim VP As String
            Dim lvItem As New ListViewItem
            For i = 2 To Anzahl + 1
                VP = Prüfziffern.Verschlüsseln(Excel1.Range("C" & i).Value)
                lvItem.SubItems.Clear()
'Das soll 1. Spalte sein
                lvItem.SubItems.Add(Excel1.Range("A" & i).Value)
'Das soll 2. Spalte sein
                lvItem.SubItems.Add(Excel1.Range("C" & i).Value)
'Das soll 3. Spalte sein
                lvItem.SubItems.Add(VP)
                Users.Items.Add(lvItem.Clone())
            Next i