Jahraufbau(AXMSFlexGrid1)

Module Module4 
  Public Sub Jahraufbau(FlexGrid As Object) 
    Dim i As Long
    Dim sp As Long
    Dim rw As Long
 
    With FlexGrid
      .Rows = 58 
      .Cols = tage0 + 3 
      .FixedRows = 2 
      .FixedCols = 3 
      .set_ColWidth(0, .get_ColWidth(0) / 2.8) 
      .set_ColWidth(1, .get_ColWidth(1) * 2.5) 
      .set_ColWidth(2, .get_ColWidth(2) / 2.8) 
      For i = 1 To tage0 
        .set_ColWidth(sp, .get_ColWidth(sp) / 2.7) 
        sp = sp + 1 
      Next i 
      rw = 2 
      For i = 1 To 56 
        .set_RowHeight(rw, .get_RowHeight(rw) * 1.3) 
        rw = rw + 1 
      Next i 
 
    End With 
  End Sub 
End Module