' Datei auslesen und in array übertragen
  Dim F As Integer
  Dim sLine As String
  Dim sData() As String
 
 
    ' Datei öffnen und einlesen
    F = FreeFile
    Open App.Path & "\protokoll.txt" For Input As #F
    While Not EOF(F)
 
      ' Zeile einlesen
      Line Input #F, sLine
 
      ' Zeile splitten
      sData = Split(sLine, ";")
 
      'Daten an Array übergeben
      daten(100, 0) = sData(2)
 
      daten(100, 1) = sData(3)
      ' Daten ins Grid übertragen
     ' .Rows = .Rows + 1
      '.Row = .Rows - 1
      '.Col = 0: .text = sData(0)
      '.Col = 1: .text = sData(1)
      '.Col = 2: .text = sData(2)
    Wend
    Close #F
  End With
 
'Positionieren des Cursors im Datenblock
n = slddiagramm.value
 
'Datenblock um 1 verschieben
For i = 2 To 100
    For j = 0 To 1
        daten(i - 1, j) = daten(i, j)
    Next j
Next i
 
 
'random
'daten(100, 1) = Int((100 * Rnd) + 1)
 
'Zeitmarke eintragen
'daten(100, 0) = Time
 
'Chart aufrufen
'--------------------------------------
 
 
MSChart1.chartType = VtChChartType2dBar
 
 
With frmChart.MSChart1
    For i = 1 To 20
        For j = 1 To 1
        .Column = j
        .Row = i
        .Data = daten(i + n, j)
        .RowLabel = daten(i + n, 0)
        Next j
    Next i
End With