Dim stArray(1 To 12, 1 To 4) As String
 
    'Basteln wir uns ein 2d-Array (4 Jahre a 12 Monate)
    For i = 1 To 12
        stArray(i, 1) = i
        stArray(i, 2) = i / 2
        stArray(i, 3) = i * 0.25
        stArray(i, 4) = i - 8
    Next
 
    'Das array dem ChartObjekt hinzufügen
    MSChart1.ChartData = stArray
 
    MSChart1.ColumnCount = 4
    MSChart1.ColumnLabelCount = 1
    MSChart1.Column = 1
 
    'Noch fix die Jahreslegende schreiben
    For i = 0 To 3
        MSChart1.Column = 1
        MSChart1.ColumnLabel = 2010 - i
    Next
 
    'Und hier deine Monate, kannst auch ne Schleife bauen ;-)
    MSChart1.Row = 1
    MSChart1.RowLabel = "Jan"
    MSChart1.Row = 2
    MSChart1.RowLabel = "Feb"
    MSChart1.Row = 3
    MSChart1.RowLabel = "Mär"
    MSChart1.Row = 4
    MSChart1.RowLabel = "Apr"
    MSChart1.Row = 5
    MSChart1.RowLabel = "Mai"
    MSChart1.Row = 6
    MSChart1.RowLabel = "Jun"
    MSChart1.Row = 7
    MSChart1.RowLabel = "Jul"
    MSChart1.Row = 8
    MSChart1.RowLabel = "Aug"
    MSChart1.Row = 9
    MSChart1.RowLabel = "Sep"
    MSChart1.Row = 10
    MSChart1.RowLabel = "Okt"
    MSChart1.Row = 11
    MSChart1.RowLabel = "Nov"
    MSChart1.Row = 12
    MSChart1.RowLabel = "Dez"

Das Tolle am Internet ist: Jeder kann mitmachen!
Das Doofe am Internet ist: Jeder macht mit...