Dim Excel As Object
 
' Zur ExcelDatei
' --------------------------------
' Der Name der Person wird in SpalteA und die Telefonnummer in SpalteB 
' gespeichert.
' Um die Telefonnummer vollständig, also ohne das Excel automatisch die erste 0 
' oder so entfernt,
' speichern zu können, habe ich die Telefonnummern in "" geschrieben
' Deswegen das Replace(Excel.Range("A" & CStr(i)).Value, """", "")
' Dabei werden einfach nur die "" Striche entfernt.
' Die ExcelDatei muss zur Zeit im gleichen Verzeichnis liegen wie die Exe und 
' den Namen
' Telefonbuch.xls haben.
' Achja sobald eine Namensspalte leer ist, also in der Exceldatei, wird die 
' schleife zum einlesen
' der Daten unterbrochen.
 
Private Sub Form_Load()
 
    If Dir(App.Path & "\Telefonbuch.xls") <> "" Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = False
        Excel.Workbooks.Open App.Path & "\Telefonbuch.xls"
 
        'Listview als Tabelle mit Kopfzeilen anzeigen lassen
        ListView1.View = lvwReport
 
        'Die Zwei Überschriften erstellen
        ListView1.ColumnHeaders.Add , , "Name", 2500
        ListView1.ColumnHeaders.Add , , "Telefonnummer", 2500
 
        For i = 1 To 6000
            If Not Excel.Range("A" & CStr(i)).Value = "" Then
                ListView1.ListItems.Add , , Replace(Excel.Range("A" & CStr( _
                  i)).Value, """", "")
                ListView1.ListItems(i).ListSubItems.Add 1, , Replace( _
                Excel.Range("B" & CStr(i)).Value, """", "")
            Else
                Exit For
            End If
        Next i
 
    Else
 
        MsgBox App.Path & "\Telefonbuch.xls", vbCritical, "Die Datei ist nicht" & _
          "vorhanden:"
 
    End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.