With ActiveCell.Characters(Start:=1, Length:=24).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 18
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Rows("1:1").Select
    ActiveSheet.ChartObjects("Diagramm 2").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Diagramm 2").IncrementLeft -3#
    ActiveSheet.Shapes("Diagramm 2").IncrementTop 2.25
 
    Sheets("Tabelle der Ergebnisse").Select
 
    Range("A1").Select
    oXL.Visible = True
 
 
 
 
    Set oRng = Nothing
    Set oSheet = Nothing
    Set oWB = Nothing
    Set oXL = Nothing
 
 
    End If
    Exit Sub
 
 
err_fehler_excel:
    MsgBox " Achtung, wenn Sie Excel geschlossen haben, können Sie nicht erneut" & _
      "exportieren. Bitte starten Sie das Programm erneut um wieder exportieren" & _
      "zu können.", vbCritical
 
 
 
 
End Sub