Select Case cbLastprofil.ListIndex
    'Initalisieren des Diagramms und Dateinamens
    Dim Diagramm As Excel.Chart
    Dim Dateiname As String
 
    Case Is = 0
    'Übergabe der Parameter für Werktag, Samstag, Sonntag zum Erstellen des 
    ' Diagramms in Excel
    Worksheets("Lastgang Grafiken").Range("C2:C97").Value = Worksheets( _
      "Lastprofile").Range("C290:C385").Value
    Worksheets("Lastgang Grafiken").Range("D2:D97").Value = Worksheets( _
    "Lastprofile").Range("C98:C193").Value
    Worksheets("Lastgang Grafiken").Range("E2:E97").Value = Worksheets( _
    "Lastprofile").Range("C2:C97").Value
    'Übergabe des Diagramms
    Set Diagramm = Worksheets("Lastgang Grafiken").ChartObjects( _
      "Diagramm").Chart
    'Anpassen der Diagramms die Größe des Image
    Diagramm.Parent.Width = ILastgang.Width
    Diagramm.Parent.Height = ILastgang.Height
    'Erzeugen des Dateinamems mit dem Pfad der Exceldatei und dem Zusatz 
    ' "diagramm.gif"
    Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
    'Exportieren des Diagramms
    Diagramm.Export Filename:=Dateiname, FilterName:="GIF"
    'Laden des Diagramms aus der Datei
    Set ILastgang.Picture = LoadPicture(Dateiname)
 
    Case Is = 1
 
    ...
 
End Select
 
End Sub