Private Sub flxTermine_Scroll()
If Me.flxTermine.Width / Me.flxTermine.ColWidth(3) >= Me.flxTermine.Cols - _
  Me.flxTermine.LeftCol Then
    Me.flxTermine.Cols = Me.flxTermine.Cols + 1
    Me.flxProjektzeiten.Cols = Me.flxProjektzeiten.Cols + 1
End If
End Sub