แผนภูมิล้มเหลวในการตีความวันที่สำหรับค่าป้ายกำกับ

ฉันมีช่วงวันที่ที่ฉันต้องการใช้เป็นป้ายกำกับบนกราฟ อย่างไรก็ตามเมื่อฉันพยายามเลือกเป็นป้ายกำกับแกนมันไม่ได้ตีความว่าเป็นวันที่อย่างที่คุณเห็นในภาพด้านล่าง:

ใครสามารถอธิบายสิ่งที่เกิดขึ้นที่นี่ แกนที่ถูกพล็อตเป็นแกนข้อความดังนั้นเซลล์ที่ตามมาที่มีค่าเท่ากันไม่ควรเป็นปัญหา

ข้อมูลต้นฉบับถูกใส่ในแผ่นข้อมูลโดยแมโครที่มีลักษณะดังนี้:

Sub settInnIGraf(ws As Worksheet, R As Range)
  Dim C As Range
  Dim kortsone As Range, langsone As Range
  Set kortsone = R.Offset(0, 4).Resize(R.Rows.Count, 8)

  If IsEmpty(R) Then
    R.Resize(1, 21).Formula = "=na()"
  Else
    For Each C In Union(kortsone, langsone)
      If (Not IsNumeric(C)) Or Len(C) <= 0 Then
        C.Formula = "=na()"
      End If
    Next C
  End If
  With ws.ChartObjects("Kortsone" & Right(ws.CodeName, 1)).Chart
    Call settInnISerie(.SeriesCollection("Toppsuging"), R, kortsone.Columns(2))
    Call settInnISerie(.SeriesCollection("Nedsuging"), R, kortsone.Columns(4))
    Call settInnISerie(.SeriesCollection("Opptak"), R, kortsone.Columns(6))
    Call settInnISerie(.SeriesCollection("Botnsuging"), R, kortsone.Columns(8))
    .Axes(xlValue).MinimumScale = -30
    .Axes(xlValue).MaximumScale = 10
    .Axes(xlValue, xlSecondary).MinimumScale = .Axes(xlValue, xlPrimary).MinimumScale
    .Axes(xlValue, xlSecondary).MaximumScale = .Axes(xlValue, xlPrimary).MaximumScale
  End With
End Sub

Sub settInnISerie(srs As Series, xverdier As Range, yverdier As Range)
  Dim C As Range
  Dim i As Long

  srs.XValues = xverdier
  srs.Values = yverdier
  i = 1

  If srs.HasDataLabels Then
    srs.DataLabels.Delete
  End If
  srs.ApplyDataLabels
  For Each C In yverdier.Offset(0, -1).Cells
    If Not IsError(C) And i <= srs.Points.Count Then
      srs.Points(i).DataLabel.Text = "=" & Replace(C.Address(external:=True), "[" & ThisWorkbook.Name & "]", "", 1, -1, vbTextCompare)
    End If
    i = i + 1
  Next C
End Sub