Public Sub graph_aktuell()
 
 
Screen.MousePointer = vbHourglass
 
Dim i As Long
Dim j As Integer
With FormGraph.Graph1
 
  ' autom. Neuzeichnen ausschalten
  .LockUpdate True
 
  ' alte Werte löschen
  .Clear
 
  ' Anzahl Datenreihen (Sets)
  .NumSets = 4
 
  'Diagramm Typ
  .GraphType = gLine
 
  If FormGraph.ch_ldicke.Value = 1 Then
  'Liniendicke
  .LineWidth = gNormal
  Else
  .LineWidth = gThin
  End If
 
  ' Gitternetzlinien anzeigen
  .GridLines = Horizontal
 
  ' Anzahl Werte festlegen
  .Count = FormTab_E33.FGrid1.Rows
 
  ' Werte aus Tabellen auslesen und anzeigen
  For i = 1 To .Count - 1
 
 
'--------------E33-------------------------------------------------------------
' ----------
    If FormGraph.ch_33_134_d.Value = 1 Then
    .SetTransparent(1) = False
    .CurSet = 1
    .Data(i).Value = Val(FormTab_E33.FGrid1.TextMatrix(i, 2))   'E33 134d
    .ToolTipText = "E33 134m D"
    Else
    .SetTransparent(1) = True
    End If
 
    If FormGraph.ch_33_134_min.Value = 1 Then
    .SetTransparent(2) = False
    .CurSet = 2
    .Data(i).Value = Val(FormTab_E33.FGrid1.TextMatrix(i, 3))   'E33 134min
    .ToolTipText = "E33 134m Min"
    Else
    .SetTransparent(2) = True
    End If
 
'--------------Ende 
' E33--------------------------------------------------------------------
 
'---------------E44------------------------------------------------------------
' ------------
    If FormGraph.ch_44_134_d.Value = 1 Then
    .SetTransparent(3) = False
    .CurSet = 3
    .Data(i).Value = Val(FormTab_E44.FGrid1.TextMatrix(i, 2))   'E44 134d
    .ToolTipText = "E44 134m D"
    Else
    .SetTransparent(3) = True
    End If
 
    If FormGraph.ch_44_134_min.Value = 1 Then
    .SetTransparent(4) = False
    .CurSet = 4
    .Data(i).Value = Val(FormTab_E44.FGrid1.TextMatrix(i, 3))   'E44 134min
    .ToolTipText = "E44 134m Min"
    Else
    .SetTransparent(4) = True
    End If
'---------------Ende 
' E44-------------------------------------------------------------------
 
  Next i
 
  ' autom. Neuzeichnen einschalten
  .LockUpdate False
 
  ' Graph anzeigen
  .Refresh
End With
Screen.MousePointer = 0
End Sub