<code>Private Sub Fill_Urlaubstage()
  Dim Datum_Von As Date
  Dim Datum_Bis As Date
  Dim Urlaubstage As String
  Dim lRow As Long  
 
  With MSFlexGrid1
    <font color=green>' FlexGrid um eine Spalte erweitern</font>
    .Cols = 5
 
    <font color=green>' FlexGrid durchlaufen und Datumswerte berechnen</font>
    lRow = 1
    While lRow < .Rows
      .Row = lRow
 
      <font color=green>' Urlaub von</font>
      .Col = 2: Datum_Von = CDate(.Text)
 
      <font color=green>' Urlaub bis</font>
      .Col = 3: Datum_Bis = CDate(.Text)
 
      <font color=green>' Urlaubstage ermitteln</font>
      While Datum_Von <= Datum_Bis
        Urlaubstage = Urlaubstage & _
          Format$(Datum_Von, "dd.mm.") & ", "
 
        <font color=green>' nächster Tag</font>
        Datum_Von = DateSerial(Year(Datum_Von), _
          Month(Datum_Von), Day(Datum_Von) + 1)
      Wend
 
      <font color=green>' unnötiges Komma und Leerzeichen entfernen</font>
      If Right$(Urlaubstage, 2) = ", " Then _
        Urlaubstage = Left$(Urlaubstage, Len(Urlaubstage) - 2)
 
      <font color=green>' Urlaubstage in FlexGrid eintragen</font>
      .Col = 4: .Text = Urlaubstage
      .CellBackColor = vbGreen
 
      <font color=green>' nächster Datensatz</font>
      lRow = lRow + 1
    Wend
  End With
End Sub</code>