Office: merkwürdige sortierung

Hi, ich habe ein Problem und weiß eigentlich gar nicht genau wo ich da anfagen soll weil ich die ursache dafür nicht kenne.

also:
nachdem ich das Startdatum mit diesem Makro:

Code:

Option Explicit

Sub Search()
Dim strTempTC_Status                    As String
Dim strTempTC_Master                    As String
Dim enddate                             As Date
Dim startdate                           As Date
Dim I                                   As Integer 'Zeile tc_status
Dim K                                   As Integer 'Zeile tc_master_plan

    Sheets("TC_Status").Select
    
    For I = 1 To 1169
        Sheets("TC_Status").Select
        Cells(I, 5).Select
            strTempTC_Status = ""
            strTempTC_Status = UCase(Trim(Cells(I, 2)) & Trim(Cells(I, 3)) & Trim(Cells(I, 4)) & Trim(Cells(I, 5)))
       
        
            If I = 52 Then
                'Stop
            End If
            
            Sheets("TC_Master_Plan").Select
        
            For K = 1 To 1955                   'last line of TC3_Master_Plan
                Cells(K, 4).Select
                If ActiveCell.Value = "Transform" Or ActiveCell.Value = "Load" Or ActiveCell.Value = "Submit source file" Or ActiveCell.Value = "Extract data" Or ActiveCell.Value = "Pre-validate" Or ActiveCell.Value = "Validation" Or ActiveCell.Value = "Pre-validate extract data" Or ActiveCell.Value = "Pre-validate source data" Then
                    strTempTC_Master = UCase(Trim(Cells(K, 1)) & Trim(Cells(K, 2)) & Trim(Cells(K, 3)) & Trim(Cells(K, 4)))
                    If strTempTC_Status = strTempTC_Master Then
                        Sheets("TC_Status").Select
                        'Anderes Tabellenblatt selektieren
                        Cells(I, 7).Select
                        startdate = ActiveCell.Value
                        'startdate auswählen
                        Cells(I, 8).Select
                        enddate = ActiveCell.Value
                        'enddate auswählen
                        
                        Sheets("tc_master_plan").Select
                        'Anderes Tabellenblatt selektieren
                        Cells(K, 9).Value = Format(startdate, "dd.mm.yyyy")
                        'Start-Datum übertragen
                        Cells(K, 10).Value = Format(enddate, "dd.mm.yyyy")
                        'End-Datum übertrage
                        Exit For
                        'Wert ist eindeutig, daher kann Schleife beendet werden
                     End If
                     
                    If K = 45 Then
                          'Stop
                    End If
                    
                End If
            Next
     Next
MsgBox "I am ready"
End Sub


Sub Action()

Application.ScreenUpdating = False
Application.Run "Search"
Application.ScreenUpdating = True

End Sub

in mein excel eingefügt habe (das klappt super ist alles da mit richtigem wert etc)
will ich nach diese nun nach datum sortieren (mit dem Filter).
nun Sortiert er aber irgendwie ganz merkwürdig, ich kann da wirklich nicht genau erkennen wonach er sortiert, eigentlich sollte er nach Datum sortieren, also 30.11.2008 01.12.2008....
zwischendrin findet sich allerdings auch mal ein *.2007er datum. (bild im anhang)

ich habe schon versucht die Zellen formatierung auf Datum um zu stellen aber das funktioniert nur bei den Zellen die ich nicht mit dem Makro beschrieben habe.

ich danke schonmal für eure Hilfe, wir sind hier wirklich ratlos was und vorallem wieso das so ist.

MFG

 

lösung gefunden.

eigentlich recht einfach -> google hilft *schäm*

statt "Format" hätte ich CDate nehmen sollen.
damit funktioniert das :)

cdate(starddate)
cdate(enddate)

und die werte werden als Datum und nichtmehr als String eingetragen :)