Private Exl As Excel.Application
 
Private Sub SetExlRangeInList(Byval sWorkbookName As String, _
                                                         Byval sTabName As _
                                                         String, _
                                                         Byval sStartRange As _
                                                         String, _
                                                         Byval sEndRange As _
                                                         String, _
                                                         ByRef lb As Listbox)
 
        Dim r As Excel.Range
        Dim t As Object
        Dim b As Boolean 
 
        Set Exl = New Excel.Application
 
        ' Workbook exist?
        If Dir(sWorkbooName) = "" Then
               MsgBox "Excel-Datei nicht gefunden.", vbExclamation, "Fehler" & _
                 "...."
               Exit Sub
        End IF
 
        Exl.Workbooks.Open sWorkbookName 
 
        ' Tab exist?
        For Each t In Exl.ActiveWorkbook.Sheets
                If Ucase(t.Name) = Ucase(sTabName) Then
                       b = True
                       t.Select
                       Exit For
                End If
        Next 
        If Not b Then
              MsgBox "Die angegebene Tabelle konnte nicht gefunden werden.", _
                             vbExclamation, "Fehler ...."
              ShotDown
              Exit Sub
        End If
 
        Exl.ActiveSheet.Range(sStartRange & ":" & sEndRange).Select
 
        lb.Clear
        For Each r In Exl.Selection
              lb.Additem r.Value
        Next 
 
        ShotDown
End Sub
 
Private Sub ShotDown()
        With Exl
               .ActiveWorkbook.Saved = True
               .Quit
        End With
        Set Exl = Nothing
End Sub