'# Diese Funktion wird für jede Excel-Tabelle aufgerufen
Public Function ExcelTableOpen(ByRef Path As String) As String
 
  Dim sTabelle As String
  Dim xlAPP As Excel.Application
  Dim strUebersicht As String
 
On Error Resume Next
Err.Clear
  Set xlAPP = GetObject(, "Excel.application")
If Err.Number <> 0 Then
  Set xlAPP = CreateObject("excel.application")
End If
 
xlAPP.Workbooks.Open Path, UpdateLinks:=False, ReadOnly:=True
   '##################################################
   '# Tabellenblatt Übersicht
   '##################################################
    xlAPP.ActiveWorkbook.Sheets(1).Select
    If UCase(xlAPP.ActiveWorkbook.Sheets(i).Name) = "ÜBERSICHT" Then
      strUebersicht = "'" & Range("D3") & "', '" & Range("D4") & "', '" & Range( _
        "B6") & "'"
    Else
 
    End If
    '# Hier will ich den Prozess beenden. Er ist aber nicht zu beenden :-(
    Set xlAPP = Nothing
 
    ExcelTableOpen = strUebersicht
End Function