Dim Tage&, Jahr&, i&, j&, WT&, Date1(1) As Date
 
  Jahr = Year(Now)
  With MSFlexGrid1
    .Redraw = False
    .Rows = 13
    .Cols = 38
    .FixedRows = 1
    .FixedCols = 1
    .Font.Size = 14
    .Font.Bold = True
    .ColAlignment(-1) = flexAlignCenterCenter
    .ColWidth(-1) = 40 * Screen.TwipsPerPixelX
    .ColWidth(0) = 120 * Screen.TwipsPerPixelX
    .ColAlignment(0) = flexAlignLeftCenter
    .ScrollTrack = True
    .ScrollBars = flexScrollBarBoth
    .Row = 0
    .Col = 0
    .CellAlignment = flexAlignCenterCenter
    .TextMatrix(0, 0) = Jahr
    For i = 1 To .Cols - 1
      .TextMatrix(0, i) = WeekdayName(1 + ((i - 1) Mod 7), True)
    Next i
    For i = 1 To 12
      For j = 0 To 1
        If i + j <= 12 Then
          Date1(j) = "01." & Format$(i + j, "00") & "." & Jahr
        End If
      Next j
      If i = 12 Then
        Tage = 31
      Else
        Tage = DateDiff("d", Date1(0), Date1(1))
      End If
      WT = Weekday(Date1(0), vbMonday)
      .TextMatrix(i, 0) = MonthName(i, False)
      For j = 1 To Tage
        .TextMatrix(i, j + WT - 1) = j
      Next j
    Next i
    .FillStyle = flexFillRepeat
    For i = .FixedRows To .Rows - 1 Step 2
      .Row = i
      .Col = .FixedCols
      .RowSel = i
      .ColSel = .Cols - 1
      .CellBackColor = RGB(255, 255, 128)
    Next i
    For i = 7 To .Cols - 1 Step 7
      .Row = .FixedRows
      .Col = i
      .RowSel = .Rows - 1
      .ColSel = i
      .CellBackColor = RGB(255, 96, 96)
    Next i
    .FillStyle = flexFillSingle
    .Row = .FixedRows
    .Col = .FixedCols
    .Redraw = True
  End With

Gruss,

Zardoz