Public Function CountDiff(SourceGrid As MSFlexGrid, ColNr As Long) As Long
 
  Dim i As Long, N As Long, LastCol As Long
 
  N = 1
  With SourceGrid
    .Redraw = False
    LastCol = .Col
    .Cols = .Cols + 1
    For i = .FixedRows To .Rows - 1
      .TextMatrix(i, .Cols - 1) = i
    Next i
    .Col = ColNr
    .Sort = flexSortStringAscending
    For i = .FixedRows To .Rows - 2
      If .TextMatrix(i, ColNr) <> .TextMatrix(i + 1, ColNr) Then N = N + 1
    Next i
    .Col = .Cols - 1
    .Sort = flexSortNumericAscending
    .Cols = .Cols - 1
    .Col = LastCol
    .Redraw = True
  End With
  CountDiff = N
 
End Function

Gruss,

Zardoz

Beitrag wurde zuletzt am 17.12.11 um 19:08:50 editiert.