' Werte aus Grid holen und in Array zwischenspeichern
 
        With frmReport.Grid1
            For i = 1 To .Rows
                nMa = CStr(Prüfsumme(.Text(i, 7)))  ' in Zahl
                nTime(nMa) = nTime(nMa) + Val(Left$(.Text(i, 5), 2)) * 60 + Val( _
                  Right$(.Text(i, 5), 2))
                nMaschine(nMa) = .Text(i, 7)
            Next i
        End With

' Daten an Graph übergeben
        With Graph1
            .LockUpdate True
            .Clear
            ' Als Balken-Diagramm
            .GraphType = gBar
            .GridLines = 3
 
            nCount = (UBound(nTime) - LBound(nTime))
 
            .Count = nCount
            .Count = (i - 1)
 
            ' Werte und TipText anzeigen incl Maschinen Name
            For i = 1 To nCount
                If nTime(i) <> 0 Then
                    X = X + 1
 
                    .Data(X).Value = Int(nTime(i) / 60 * 100) / 100
                    .Data(X).ToolTipText = Format$(Int(nTime(i) / 60), "00") & _
                      ":" & _
                    Format$(nTime(i) - Int(nTime(i) / 60) * 60, "00") & " " & _
                    nMaschine(i)
                    .Data(X).Text = nMaschine(i)
                End If
            Next i
            .Count = 10 ' TopTen
 
            ' Überschrift           
            .HeaderFont.Size = 8
            .HeaderFont.Bold = True
 
            ' Fußzeile
            .Footer = "Stand: " & Format$(Now, "dd.mm.yy")
            .FooterFont.Size = 8
            .FooterFont.Bold = False
 
            ' autom. Neuzeichnen einschalten
            .LockUpdate False
 
            ' Graph anzeigen
            .Refresh
 
        End With