Option Explicit
 
Private Sub Form_Load()
    'erstmal was reinbeamen
    flx.Rows = 4
    flx.Cols = 2
    flx.FixedCols = 0
    flx.FixedRows = 1
    flx.TextMatrix(0, 0) = "Datum"
    flx.TextMatrix(1, 0) = "05.06.2003"
    flx.TextMatrix(2, 0) = "05.06.2004"
    flx.TextMatrix(3, 0) = "07.06.2004"
    flx.ColWidth(0) = 2000
    flx.ColWidth(1) = 1500
End Sub
 
Private Sub flx_MouseDown(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    Dim h As Long
    Dim w As Long
    Dim i As Long
 
    h = flx.RowHeight(0)
    If y > 0 And y < h Then
        For i = 0 To flx.Cols
            If x > w And x < w + flx.ColWidth(i) Then Exit For
            w = w + flx.ColWidth(i)
        Next i
        MsgBox "Kopf Spalte " + CStr(i) + " wurde gedrückt", vbInformation
        If i = 0 Then 'es soll nur die gefüllte Spalte 0 sortiert werden
            flx.Col = i 'Sortierspalte einstellen
            flx.ColSel = i
            flx.Sort = 9 'flexSortCustom
        End If
    End If
End Sub
 
Private Sub flx_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer)
    Dim d1 As Date
    Dim d2 As Date
    Dim s1 As String
    Dim s2 As String
 
    d1 = CDate(flx.TextMatrix(Row1, 0))
    d2 = CDate(flx.TextMatrix(Row2, 0))
    s1 = Format(d1, "yyyymmdd")
    s2 = Format(d2, "yyyymmdd")
    If s1 > s2 Then Cmp = -1
    If s1 = s2 Then Cmp = 0
    If s1 < s2 Then Cmp = 1
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1