Dim v_sheetok As Boolean = False
        'Eine Reportdatei soll eingelesen werden!
        Dim v_appexcel As New Microsoft.Office.Interop.Excel.Application
        With v_appexcel
            .Visible = False
            Dim pvw As Microsoft.Office.Interop.Excel.ProtectedViewWindow = _
              v_appexcel.ProtectedViewWindows.Open(v_file)
            'Prüfen ob es überhaupt ein Wochenbericht ist:
            'Prüfen ob angegebenes Tabsheet existiert:
 
            Dim wb As Microsoft.Office.Interop.Excel.Workbook = pvw.Workbook
            'Dim wb As Microsoft.Office.Interop.Excel.Workbook = 
            ' v_appexcel.Workbooks.Open(v_file)
 
            Dim ws As New Microsoft.Office.Interop.Excel.Worksheet
            Dim v_sheet As Microsoft.Office.Interop.Excel.Worksheet
            For Each v_sheet In wb.Worksheets
                If v_sheet.Name = "Wochenbericht" Then
                    wb.Sheets(v_sheet.Name).activate()
                    ws = wb.Sheets(v_sheet.Name)
                    v_sheetok = True
                    Exit For
                End If
            Next

mfG.
Stephan