Dim i As Long
 
With Graph1
  ' autom. Neuzeichnen ausschalten
  .LockUpdate True
 
  ' alte Werte löschen
  .Clear
 
  ' Linien-Diagramm
  .GraphType = gLine
 
  ' Anzahl Werte festlegen (255 Zeilen)
.Count = 255
 
  ' Anzahl Datenreihen (Sets)
  .NumSets = 3
 
  ' Werte zuweisen
  For i = 0 To .Count
 
    ' Untergrenze
    .CurSet = 1
    .Data(i).Value = Val(oItem.CellText("untergr"))
 
 
    ' Obergrenze
    .CurSet = 2
    .Data(i).Value = Val(oItem.CellText("obergr"))
 
    .CurSet = 3
    .Data(i).Value = Val(oItem.CellText("wert"))
 
  Next i
 
  ' Legende anzeigen und Farbe der Datenreihen festlegen
  .Legend(1).Text = "Untergrenze"
  .Legend(1).Color = Legend_Orange
 
  .Legend(2).Text = "Obergrenze"
  .Legend(2).Color = Legend_Blue
 
  .Legend(3).Text = "Wert"
  .Legend(3).Color = Legend_Red
 
  ' autom. Neuzeichnen einschalten
  .LockUpdate False
 
  ' Diagramm anzeigen
  .Refresh
End With