ReDim sSort(...) As String  ' Dimensionsgröße wie nTime festlegen
 
        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))
                sSort(nMa) = Format$(nTime(nMa), "00000000") & CStr(nMa)
                nMaschine(nMa) = .Text(i, 7)
            Next i
        End With
 
        ' Daten sortieren
        QuickSort sSort()

' Daten an Graph übergeben
Dim nID As Long
        With Graph1
            .LockUpdate True
            .Clear
            ' Als Balken-Diagramm
            .GraphType = gBar
            .GridLines = 3
 
            nCount = (UBound(nTime) - LBound(nTime))
            .Count = nCount
 
            ' Werte und TipText anzeigen incl Maschinen Name
            For i = nCount To 1 Step -1
                nID = Val(Mid$(sSort(i), 9)
                If nTime(nID) <> 0 Then
                    X = X + 1
 
                    .Data(X).Value = Int(nTime(nID) / 60 * 100) / 100
                    .Data(X).ToolTipText = Format$(Int(nTime(nID) / 60), _
                      "00") & ":" & _
                    Format$(nTime(nID) - Int(nTime(nID) / 60) * _
                    60, "00") & " " & nMaschine(nID)
                    .Data(X).Text = nMaschine(nID)
                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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de