Hoi Jan,
Je For...Next lus is m.i. niet goed.
Op de 1e plaats begint de array koersen met element 0. Die wordt in de for..next lus niet bewerkt maar wordt wel in de grafiek geplaatst.
Op de 2e plaats mis ik een Else instructie indien aan beide voorwaarden niet voldoen wordt. Daardoor blijft de variabele Koersen(i, 0) een string van 8 tekens behouden.
Probeer eens deze code:
For i = 1 To UBound(koersen, 1)
If Left(Datum(i, 1), 4) <> Left(Datum(i - 1, 1), 4) Then
'labeltekst: pas jaartal aan
koersen(i, 0) = " " & RTrim(CSng(Left(Datum(i, 1), 4)))
ElseIf Left(Right(Datum(i, 1), 4), 2) <> Left(Right(Datum(i - 1, 1), 4), 2) Then
'labaltekst: pas maandnummer aan
koersen(i, 0) = " " & RTrim(CSng(Left(Right(Datum(i, 1), 4), 2)))
Else
'labeltekst: wissen
koersen(i, 0) = " "
End If
Next i
Als de zwarte balk nog steeds verschijnt plaats dan deze code-regel na de regel .ChartData = Koersen zodat we kunnen zien hoe groot de array is:
MsgBox "Koersen(" & UBound(koersen, 1) & "," & UBound(koersen, 2) & ")"
Geef de tekst die de messagebox toont.
Peter