Const xlDateiName As String = "Benutzer.xls"
    Const xlWS_Name As String = "Tabelle1"
 
    Dim boolWBOffen As Boolean
    Dim wb As Object          ' As Excel.Workbook
 
    'Prüfen, ob Excel ausgeführt wird:
    On Error Resume Next
    Set xlAppl = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then xlApplLiefNicht = True
        Err.Clear   ' Err-Objekt im Fehlerfall löschen
        'Wenn Excel nicht ausgeführt wird, Excel starten:
        If xlAppl Is Nothing Then
            Set xlAppl = CreateObject("Excel.Application")
  '         Wenn ein Fehler aufgetreten ist...
            If Err.Number <> 0 Then
                MsgBox "Konnte keine Verbindung zu Excel herstellen !", _
                vbOKOnly + vbCritical, Title:=Me.Caption
 
            End If
        End If
 
    'Prüfen, ob Arbeitsmappe bereits offen ist:
    boolWBOffen = False
 
    If Not xlApplLiefNicht Then
        If xlAppl.Workbooks.Count > 0 Then
            For Each wb In xlAppl.Workbooks
                If LCase(wb.name) = LCase(xlDateiName) Then
          '         wb.Activate
                    boolWBOffen = True
                    Exit For
                End If
            Next
        End If
    End If
 
    On Error Resume Next
    If Not boolWBOffen Then
        'Wenn Arbeitsmappe nicht offen, öffnen und Verweis setzen:
        Err.Clear
        Set xlWB = xlAppl.Workbooks.Open( _
        Filename:=App.path & "\" & xlDateiName)
 
        'Wenn ein Fehler aufgetreten ist...
            If Err.Number <> 0 Then
                MsgBox "Die Arbeitsmappe '" & xlDateiName & _
                "' konnte nicht geöffnet werden !", _
                vbOKOnly + vbCritical, Title:=Me.Caption
                If xlApplLiefNicht Then xlAppl.Application.Quit
                Set xlAppl = Nothing
            End If
 
    Else
    'Verweis setzen:
    Set xlWB = xlAppl.Workbooks(xlDateiName)
    End If
 
     On Error GoTo 0
 
    'Verweis auf Tabellenblatt setzen:
    Set xlWS = xlWB.Worksheets(xlWS_Name)