Office: Kann Excel nicht nach Datum sortieren?

Hallo miteinander!
Bin schon am verzweifeln!

Mein Arbeitsblatt führt folgende Funktion bei Änderung aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'XXXXXXXXXXXXXXXX
Dim a As Long
a = [B65536].End(xlUp).Row + 1
Range("B10:K" & a - 1 & "").Select
Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Cells(a + 2, 10).Formula = "=sum(J10:J" & a - 1 & ")"
'Eigenschaften hinzufügen
Cells(a + 2, 10).Font.Bold = True
'LÖSCHEN VON VORGÄNGERZELLE SOWIE EIGENSCHAFTEN:
Cells(a + 1, 10) = ""
'Eigenschaften zurücksetzen
Cells(a + 1, 10).Font.Bold = False
Cells(a + 3, 10) = ""
'Eigenschaften zurücksetzen
Cells(a + 3, 10).Font.Bold = False
Dim Zelle As Range
If WorksheetFunction.CountA(Range("B10:B65536")) > 0 Then
For Each Zelle In Range("B10:B65536").SpecialCells(xlCellTypeConstants)
If IsEmpty(Zelle.Offset(0, -1)) Then Zelle.Offset(0, -1) = Zelle.Offset(-1, -1) + 1 '= ZEILEN-NR. IN SPALTE A SCHREIBEN
Next Zelle
End If
Application.EnableEvents = True 'XXXXXXXXXXXXXXXX
End Sub

Als Ergebnis erhalte ich nun folgende Sortierung ( Auszug 2. Spalte ab Zeile 10 ):


11.07.2008
19.06.2008
20.09.2008

Meiner Meinung nach liegt der 19.06.2008 vor dem 11.07.2008 oder sehe ich das falsch. Hat sich über Nacht was geändert?

Wer kann mein Problem lösen? Habe schon alles auf Datumsformat umgestellt.

Gruß timi

 

Hm, die Sortierung sieht krumm aus, ja. Aber... Stell doch mal das Zahlenformat auf "Standard" um, nicht auf "Datum".
Theoretisch sollten dann die Zahlen
39640
39618
39711
erscheinen. Wenn nicht, ist irgendwas mit den Datums-Angaben im Argen.

Gruß, Michael

 

Danke für Deine Antwort,

bin schon alle Arten der Spaltenformatierung durchgegangen und werd' aus Excel nicht schlau.
Hier ein Auszug meiner UserForm, welche die Daten ins Tabellenblatt schreibt.
Vielleicht statt "Datum1.Value" evtl. "Datum1.Text" eingeben?

Das Dumme ist, dass dieses Tabellenblatt alle betrieblichen Ausgaben erfasst und ausgedruckt werden muß.
Beim Druck muß das Datumsformat wieder in "dd.mm.yyyy" stehen.

Auszug:

Sheets(P.Value).Cells(a, 2) = Datum1.Value ' Vielleicht ist hier ist der Übeltäter
Sheets(P.Value).Cells(a, 3) = ReNr.Value
Sheets(P.Value).Cells(a, 4) = Beleg.Value
Sheets(P.Value).Cells(a, 5) = Firma.Value
Sheets(P.Value).Cells(a, 6) = StrNr.Value
Sheets(P.Value).Cells(a, 7) = LKZ1.Value
Sheets(P.Value).Cells(a, 8) = PLZOrt.Value
Sheets(P.Value).Cells(a, 9) = B1.Value
If IsNumeric(G1.Value) Then
Sheets(P.Value).Cells(a, 10) = CDbl(G1.Value)
End If
If IsNumeric(USt.Value) Then
Sheets(P.Value).Cells(a, 11) = CDbl(USt.Value)


Bin echt überfragt!

Gruß timi

 

Mit ziemlicher Sicherheit, ja...

Ich vermute, daß in der Zelle a,2 kein Datum ankommt, sondern nur ein Text, der aussieht wie ein Datum. Da würde das mit der Sortierung nämlich auch wieder passen.

Du müßtest also explizit dafür sorgen, daß der Wert aus datum1 (irgendein eingegebener Text) in ein gültiges Datum umgewandelt wird und erst dann als solches in die Zelle a,2 geschrieben wird.

grober Ansatz:

Code:

dim d_a2 as date
[...]
d_a2=datum1.value
sheets(p.value).cells(a,2).value=d_a2

Eventuell reicht das schon so. Durch dieses "typecasting" (Ziel-Variable d_a2 hat definierten Typ "Datum") wird der Wert vielleicht schon in das richtige Format umgewandelt.

Reicht das nicht, gibt es auch noch VBA-Funktionen, die eine Umwandlung von Text in Datum erledigen. Die Funktion CDate wäre da vielleicht erster Ansatz.

Gruß, Michael