Dim oXL As Excel.Application
    Dim oWB As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    Dim oRng As Excel.Range
 
 
 
    'On Error GoTo Err_Handler
 
    ' Start Excel and get Application object.
    Set oXL = CreateObject("Excel.Application")
    oXL.Visible = True
 
    ' Get a new workbook.
    Set oWB = oXL.Workbooks.Add
    Set oSheet = oWB.Worksheets("Tabelle1")
 
    'Formatierung der Arbeitsblätter
    Workbooks("Mappe1").Activate                    'Welche Mappe?
    ActiveWorkbook.Unprotect
    Workbooks("Mappe1").Name = "IPC.xls"
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Name = "Tabelle der Ergebnisse"
    Sheets("Tabelle2").Select
    Sheets("Tabelle2").Name = "Diagramme der Ergebnisse"
    Sheets("Tabelle3").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Tabelle der Ergebnisse").Select
 
    oXL.Worksheets("Tabelle der Ergebnisse").Activate
 
    'Arbeitsblatt 1 Tabelle
    Cells.Select
    Selection.NumberFormat = "0.00"
 
    Range("B2:B5000").Select
    Selection.NumberFormat = "0"
 
    Rows("2:2").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
 
    Range("B2 : J2").Select
    With Selection.Interior
        .ColorIndex = 16
        .Pattern = xlSolid
    End With
 
    Columns("B:B").ColumnWidth = 8
    Columns("C:C").ColumnWidth = 15
    Columns("D:D").ColumnWidth = 15
    Columns("E:E").ColumnWidth = 21
    Columns("F:F").ColumnWidth = 15
    Columns("G:G").ColumnWidth = 15
    Columns("H:H").ColumnWidth = 15
    Columns("I:I").ColumnWidth = 15
    Columns("J:J").ColumnWidth = 15
 
 
 
 
    Range("A1").Select
 
 
 
    Set oRng = Nothing
    Set oSheet = Nothing
    Set oWB = Nothing
    Set oXL = Nothing
    End If