Dim daten(100, 3) As String
 
Private Sub Command1_Click()
    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
    i = 1
    While Not EOF(F)
        Line Input #F, sLine
        sData = Split(sLine, ";")
        daten(i, 0) = sData(0)
        daten(i, 1) = sData(1)
        daten(i, 2) = sData(2)
        i = i + 1
    Wend
    Close #F
 
    'Positionieren des Cursors im Datenblock
    'n = slddiagramm.Value
 
    MSChart1.chartType = VtChChartType2dBar
    MSChart1.RowCount = i - 1
    MSChart1.ColumnCount = 1
 
    With MSChart1
        For X = 1 To i - 1
            .Column = 1
            .Row = X
            .Data = daten(X, 2)
            .RowLabel = daten(X, 1)
        Next X
    End With
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1