Private Sub NachDatum(KolDat&)
 
Dim i&
 
With MSFlexGrid1
.Redraw = False
.Cols = .Cols + 1
For i = .FixedRows To .Rows - 1
  .TextMatrix(i, .Cols - 1) = DateDiff("s", "01.01.2000", .TextMatrix(i, _
    KolDat))
Next i
.Col = .Cols - 1
.Sort = 3
.Cols = .Cols - 1
.Redraw = True
End With
 
End Sub