With Graph(0)
  ' autom. Neuzeichnen ausschalten
  .LockUpdate True
 
  ' alte Werte löschen
  .Clear
 
  ' Balken-Diagramm
  .GraphType = gStacked
  .NumSets = 2
 
  ' Gitternetzlinien anzeigen
  .GridLines = 3
 
  ' Anzahl Werte festlegen
 
    .Count = rs_systeme.RecordCount
 
  ' Temporäre Variablen für Gridausgabe
    Dim systemname(10) As String
    Dim baukosten(10) As Currency
    Dim nachsorgekosten(10) As Currency
    Dim gesamtkosten(10) As Currency
 
  ' Baukosten Graphik
    .CurSet = 1
 
    i = 1
    ' X-Achsenbeschriftung
    rs_systeme.MoveFirst
    Do While Not rs_systeme.EOF
    .Data(i).text = rs_systeme.Fields("Systemname").Value
    systemname(i) = .Data(i).text
 
    ' dazugehöriger Wert
    .Data(i).Value = rs_systeme.Fields("Gesamtkosten").Value * _
      rs_deponie.Fields("Fläche").Value
    .Data(i).GraphText = Format(rs_systeme.Fields("Gesamtkosten").Value * _
    rs_deponie.Fields("Fläche").Value / 1000000, "###,##0.0###")
    baukosten(i) = .Data(i).Value
    i = i + 1
    rs_systeme.MoveNext
    Loop
 
    ' Nachsorgekosten Graphik
    .CurSet = 2
 
    i = 1
    ' X-Achsenbeschriftung
    rs_systeme.MoveFirst
    Do While Not rs_systeme.EOF
    .Data(i).text = rs_systeme.Fields("Systemname").Value
 
    ' dazugehöriger Wert
    .Data(i).Value = rs_systeme.Fields("Nachsorgekosten").Value * _
      rs_deponie.Fields("Fläche").Value * Text2.text
    .Data(i).GraphText = Format(rs_systeme.Fields("Nachsorgekosten").Value * _
    rs_deponie.Fields("Fläche").Value * Text2.text / 1000000, "###,##0.0###")
 
    nachsorgekosten(i) = .Data(i).Value
    gesamtkosten(i) = baukosten(i) + nachsorgekosten(i)
    Grid(0).AddItem systemname(i) & vbTab & Format(baukosten(i), _
      "###,###,###,###,##0 €") & vbTab & Format(nachsorgekosten(i), _
      "###,###,###,###,##0 €") & vbTab & Format(gesamtkosten(i), _
      "###,###,###,###,##0 €"), , , "" & i
 
    i = i + 1
    rs_systeme.MoveNext
    Loop
 
 .Legend(1).text = "Baukosten"
 .Legend(2).text = "Nachsorgekosten"
 
  ' Überschrift
  .Caption = depName + " - Gesamtkosten in Mio. €"
  .HeaderFont.Size = 8
  .HeaderFont.Bold = True
 
  ' Fußzeile
  .Footer = "Stand: " & Format$(Now, "dd.mm.yy")
  .FooterFont.Size = 8
  .FooterFont.Bold = False
 
  ' Durchschnittswert anzeigen
  .ShowAverage = False
 
  ' autom. Neuzeichnen einschalten für Graph
  .LockUpdate False
 
  ' Graph anzeigen
  .Refresh
End With

Private Sub BauCheck_Click()
If BauCheck.Value = 0 Then
 Graph(0).SetVisible(1) = False
Else
 Graph(0).SetVisible(1) = True
End If
End Sub