Private Sub cbLastprofil_Change()
 
Select Case cbLastprofil.ListIndex
    Dim Diagramm As Excel.Chart
 
    Case Is = 0
 
    Worksheets("Lastgang Grafiken").Range("C2:C97").Value = Worksheets( _
      "Lastprofile").Range("C2:C97").Value
    Set Diagramm = Worksheets("Lastgang Grafiken").ChartObjects("Diagramm" & _
    "2").Chart
    ILastgang.Picture = LoadPicture(Diagramm)'Hier ist der Fehler
 
    Case Is = ...
 
    ....
 
End Select
 
End Sub