Private Sub cmdExcel_Click()
msfTab.Row = 1
msfTab.Col = 1
 
MsgBox "Achtung, je nach dem, welche Eingabedaten Sie verwenden, kann das" & _
  "Exportieren mehrere Minuten beanspruchen. " _
& "Bitte beenden Sie trotz langer Wartezeiten das Programm nicht.", _
vbInformation
 
'MsgBox "Test", vbOKCancel
If msfTab.Text = "" Then
    MsgBox "Bitte lassen Sie sich zuerst Daten berechnen!", vbInformation
Else
 
    Dim oXL As Excel.Application
    Dim oWB As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    Dim oRng As Excel.Range
    Dim X
 
    X = Workbooks.Count
 
    On Error Resume Next
 
    If X = 0 Then
    ' Start Excel and get Application object.
    Set oXL = CreateObject("Excel.Application")
 
 
    ' Get a new workbook
 
    Set oWB = oXL.Workbooks.Add
    Set oSheet = oWB.Worksheets("Tabelle1")
    End If
 
    If X >= 1 Then
    Workbooks.Add
    End If
 
 
    'Formatierung der Arbeitsblätter
    On Error GoTo err_fehler_excel
 
 
 
    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
 
 
    'Arbeitsblatt 1 Tabelle
    Range("A13:A15000").Select
    Selection.NumberFormat = "0.0"
 
    Range("B13:I15000").Select
    Selection.NumberFormat = "0.00"
 
    Rows("5:5").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("B5 : J5").Select
    With Selection.Interior
        .ColorIndex = 16
        .Pattern = xlSolid
    End With
 
 
    'Überschrift
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "IPC - Tabellarische Ausgabe"
    With ActiveCell.Characters(Start:=1, Length:=27).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 18
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = xlAutomatic
    End With
 
    Columns("A:A").ColumnWidth = 8
    Columns("B:B").ColumnWidth = 15
    Columns("C:C").ColumnWidth = 15
    Columns("D:D").ColumnWidth = 21
    Columns("E:E").ColumnWidth = 15
    Columns("F:F").ColumnWidth = 15
    Columns("G:G").ColumnWidth = 15
    Columns("H:H").ColumnWidth = 15
    Columns("I:I").ColumnWidth = 15
 
    Rows("12:12").Select
    Selection.Font.Bold = True
    Range("A12").Select
    ActiveCell.FormulaR1C1 = "Zeit"
    Range("B12").Select
    ActiveCell.FormulaR1C1 = "Höhe"
    Range("C12").Select
    ActiveCell.FormulaR1C1 = "Geschwindigkeit"
    Range("D12").Select
    ActiveCell.FormulaR1C1 = "Winkelgeschwindigkeit"
    Range("E12").Select
    ActiveCell.FormulaR1C1 = "Drehimpuls"
    Range("F12").Select
    ActiveCell.FormulaR1C1 = "Strecke"
    Range("G12").Select
    ActiveCell.FormulaR1C1 = "Kin. Energie"
    Range("H12").Select
    ActiveCell.FormulaR1C1 = "Pot. Energie"
    Range("I12").Select
    ActiveCell.FormulaR1C1 = "Rot. Energie"
    Range("A1").Select