For i = 0 To xTageImMonat - 1
    If i > 0 Then Load LblDatum(i)
    pos = i + Tag1 - 1 'Position der Tage
    With LblDatum(i)
        .Left = LblTagName(0).Left + (.Width + Abstand) * (pos Mod 7)
        .Top = LblDatum(0).Top + (.Height + Abstand) * (pos \ 7)
        .Caption = "  " & i + 1
        .Alignment = 0
        .Visible = True
    End With
 
    If i > 0 Then Load LblMerker(i)
    pos = i + Tag1 - 1 'Position der Tage
    With LblMerker(i)
        .Left = LblDatum(0).Left + (LblDatum(0).Width - .Width - 120) * (pos _
          Mod 7)
        .Top = LblMerker(0).Top + (.Height + Abstand) * (pos \ 7)
        .Visible = True
        .ZOrder vbBringToFront
    End With
  Next