Excel Nach Datum Sortieren Geht Nicht

Sortieren nach Datum klappt nicht

Autor Nachricht Dana_Fox
Einsteiger

Verfasst am:
18. Mai 2007, 07:23
Rufname: Katja

Version: Office XP (2002)

Hallo zusammen, Chilly der Hilfe, dice ich bisher schon erhalten habe, bin ich and so gut wie fertig mit meiner Aufgabe. Es stellt sich mit jedoch noch 1 Problem in den Weg das ich nicht beseitigt bekomme. Ich 1000�chte in einer Datei alle Tabellen durchlaufen und diese nach Spalte E (Datum) sortieren. Vorher werden einige �nderungen vorgenommen und die Spalte E in DD.MM.YYYY Format umgewandelt. Code: Sub Sortiere(wsname Every bit Cord, wkname Every bit String) Dim lngLastRow As Long Dim intZaehler As Integer Dim var1 As String 'Sortierung nach Datum Awarding.ScreenUpdating = False lngLastRow = Workbooks(wkname).Sheets(wsname).Cells(65536, 3).End(xlUp).Row 'Datum Formatieren ' entfernen For intZaehler = 2 To lngLastRow Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 5).Value = Left(Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 5).Value, ten) Workbooks(wkname).Sheets(wsname).Columns(5).NumberFormat = "DD.MM.YYYY" var1 = Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 1).Value var1 = Mid(var1, i) Workbooks(wkname).Sheets(wsname).Cells(intZaehler, i).Value = var1 var2 = Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 2).Value var2 = Mid(var2, i) Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 2).Value = var2 var3 = Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 3).Value var3 = Mid(var1, ane) Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 3).Value = var3 var4 = Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 4).Value var4 = Mid(var1, one) Workbooks(wkname).Sheets(wsname).Cells(intZaehler, 4).Value = var4 Next intZaehler     Columns("A:F").Select Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=Yes, _ OrderCustom:=1, MatchCase:=Fake, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers End Sub Es wird auch eine Sortierung nach Datum vorgenommen ABER 16.08.2006 16.08.2006 20.02.2007 20.02.2007 20.02.2007 21.06.2005 21.06.2005 ist nicht wirklich richtig... es wird nach den Tagen sortiert. Ich hab schon einiges getestet, aber es klappt einfach nicht. Hat jemand vielleicht eine Idee woran es liegen kann? Lieber Gru�, Katja

Nepumuk
VB / VBA Programmierer

Verfasst am:
18. Mai 2007, 07:59
Rufname: Max

Wohnort: Dusseldoof

Version: Office XP (2002)

Hallo Katja, sieht so aus, als w�rde Excel das nicht als Datum, sondern als Text erkennen. Markiere mal die Spalte, dann in der Men�leiste - Daten - Text in Spalten und dann einfach auf "Fertig stellen" klicken. _________________ De fontibus not est disputandum Gru� Nepumuk

Dana_Fox
Einsteiger

Verfasst am:
18. Mai 2007, 08:49
Rufname: Katja

Version: Office XP (2002)

Vielen Dank f�r dice schnelle Antwort. Das funktioniert super. Werde mal testen ob ich das im Makro einbauen kann, da eine Datei mit 21 Tabs durchlaufen wird und vorher dem Nutzer zuzumuten in jeder Tabelle diese Formatierung vorzunehmen ist nicht sinn der Sache Aber immerhin gibts nun das Richtige Ergebnis ;)*vor Freude h�pf* Gru�, Katja

Dana_Fox
Einsteiger

Verfasst am:
eighteen. Mai 2007, 09:37
Rufname: Katja

Version: Office XP (2002)

Habe gerade den Vorgang als Makro aufgezeichnet und in dice SortiereSub eingef�gt das richtige Ergebnis erhalte ich jedoch nur, bei den per Manus bearbeiteten Tabellen.. nur wieso? Das stellt mich wieder vor ein R�tsel, das ich nicht begreife Wei� jmd Rat?

Nepumuk
VB / VBA Programmierer

Verfasst am:
18. Mai 2007, x:24
Rufname: Max

Wohnort: Dusseldoof

Version: Office XP (2002)

Hallo Katja, wenn wir alles in Excel begreifen westward�rden, br�uchten wir kein Forum daf�r. Eine andere M�glichkeit, schreib in eine leere Zelle eine 1. Diese Zelle kopieren, dann deine Spalte mit dem Datum markieren - Rechtsklick - Inhalte einf�gen - Multiplizieren. Wahrscheinlich musst du danach noch formatieren. _________________ De fontibus non est disputandum Gru� Nepumuk

Dana_Fox
Einsteiger

Verfasst am:
18. Mai 2007, xi:02
Rufname: Katja

Version: Part XP (2002)

Dankesehr, das werd ich ausprobieren vllt l��t sich Excel ja so �berreden das zu tun was es soll^^ Ich hoffs einfach mal Gru�, Katja

Dana_Fox
Einsteiger

Verfasst am:
23. Mai 2007, 09:57
Rufname: Katja

Version: Office XP (2002)

Nach einigen Tagen mit anderen Problemen besch�ftigen h�nge ich wieder hier bei der Formatierung. Das kopieren der Daten in meine Hilfstabelle klappt wunderbar, danach l�sche ich alle Formatierungen des Datenblattes und m�chte nun z.B. das Datum in DD.MM.YYYY formatieren. Klappt wunderbar auch dice Auswertung danach, doch nur wenn ich die Formatierung per Paw vornehmen. W�re ja nicht schlimm, wenn dice Tabelle bestehen bliebe, sie wird jedoch st�ndig mit neuen Daten "versorgt" eventuell auch neuen Tabellenbl�ttern. Daher sollte dice Formatierung ein Makro �bernehmen, das laut Makrorecorder genau haargenau dasselbe wie ich per Hand auf allen Arbeitsbl�ttern durchl�uft. Nur wird auch nach der Formatierung: Selection.NumberFormat = "mm.dd.yyyy" Das Datum als Zahl interpretiert und falsch sortiert Wieso, weshalb warum? Wei� jemand Rat? Denn die Formatierung per Mitt ist nicht machbar MfG, Katja

Rent08
Cobol-,Fortran-,VBS-,VBA(ExCel),JobsProgr.

Verfasst am:
23. Mai 2007, 17:22
Rufname:

Wohnort: Pulheim

Version: Function XP (2002)

Hallo Katja, versuch' mal mit dieser Methode : Code: Sub numcopy() Range("H8:H14").Select                           'benutzten Zellbereich markieren Selection.NumberFormat = "DD.MM.YYYY" ' mit Zahlenformat formatieren For i = 8 To 14                                  '   Per Schleife alle Werte in sich selbst Cells(i, 8) = DateValue(Cells(i, 8))   '   mit hilfe der Function Datevalue Side by side                                                 ' neu bilden Stop Sub [listing] Falls Du nicht wei�, wieviele Werte es sind  (Annahme dass Werte in Spalte "H" stehen - deshalb der Wert viii ): Z�hler I auf den Wert der ersten Zeile setzen DO WHILE CELLS(I,eight) <> "" CELLS(i,8).NUMBERFORMAT = "DD.MM.YYYY" CELLS(I,8) = DATEVALUE(CELLS(I,8) I = I + 1     ' zum ansteuern der n�chsten Zeile LOOP Hoffe, das hilft dem Problem beizukommen. Excel ist sehr eigen. Wenn eine Zelle mal ein Format und dazu einen Wert bekommen hat. gibt Excel diese Formatierung ungern wieder ab. Geht dann nur mit Gewalt. Trouble ist schlecht nachstellbar zu erproben. Deshalb probier'due south bitte entsprechend angepasst mit Deinen daten aus, denke dass es die L�sung sein k�nnte. Gru� Wilfried[/list] _________________ Ohne Fehler - keine Arbeit

Dana_Fox
Einsteiger

Verfasst am:
24. Mai 2007, 07:33
Rufname: Katja

Version: Office XP (2002)

Hallo Wilfried, entschuldige, dass ich erst jetzt antworte, aber konnte erst jetzt testen. Und ich verneige mich voll Ehrfurcht, du hast meine gesamte Arbeit gerettet, denn dein Code funktioniert und das Datum zickt nicht mehr rum Und das ist die Grundlage all meiner Auswertungen *freu* Ich danke Dir von Herzen f�r deine Bem�hungen und superschnelle Hilfe. Gru�, Katja

Rent08
Cobol-,Fortran-,VBS-,VBA(ExCel),JobsProgr.

Verfasst am:
24. Mai 2007, 23:20
Rufname:

Wohnort: Pulheim

Version: Part XP (2002)

Hallo Katja, freut mich, dass es half, konnte es selber nicht so ohne weiters testen. Habe Excel 2007 auf dem Rechner. Dann noch viel Spass beim Weitermachen Bin froh, dass ich etwas zur Fifty�sung beitragen durfte. Gru� Wilfried _________________ Ohne Fehler - keine Arbeit

Gast

Verfasst am:
29. Mai 2008, 16:38
Rufname:

Version: Office XP (2002)

Hallo Wilfried, ist zwar schon ewig her, aber auch mich thou�chte mich ganz herzlich f�r die L�sung bedanken, denn ich hatte das gleiche Problem. Ganz sch�northward irre von Excel... Gru�, Martin

Gast

Verfasst am:
25. Jan 2009, 21:21
Rufname:

Version: Office XP (2002)

Aforementioned with me! Der Lawmaking funktioniert endlich. Man - Das ist ja echt ein Kindergarten mit den Datumswerten, wenn man die sortieren will...

Gast

Verfasst am:
27. Jul 2011, 14:00
Rufname:

Version: Part XP (2002)

Hallo Wilfried, das ist super. Vielen Dank f�r die L�sung. Ich habe schon an meinem Verstand gezweifelt. Aber so ist nunmal Excel. Immer wieder gibt es kleine �berraschungen . Viele Gr��e Reinhold

Verwandte Themen Forum / Themen  Antworten  Autor  Aufrufe  Letzter Beitrag Excel Formeln: Tabelle automatisch sortieren lassen 33 tgBrain. 61436 23. Aug 2012, 19:47
Herzzog Excel Formeln: Datum in Kalender Woche einschl. Werktag umwandeln 7 IronDodge 18784 xxx. Jul 2008, xv:45
Gast Excel Formeln: Wert und Datum verkn�pfen 3 Helle67 3021 xi. January 2005, 18:23
Helle67 Excel Formeln: Bedingte Formatierung, verkn�pft mit Datum ii MichaelP 2643 11. Jan 2005, 10:48
MichaP Excel Formeln: Suche Formel, welche Spalte nur bis zum akt. Datum berechnet 7 Sveny 1609 04. Jan 2005, 21:45
Sveny Excel Formeln: Wenn/dann klappt nicht 2 michelaushamburg 388 03. Jan 2005, 12:58
michelaushamburg Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 5086 25. Dez 2004, 22:33
Kuwe Excel Formeln: Datum soll sich nicht aktualisieren (Excel XP) 1 FrankW 3830 01. Dez 2004, 12:52
ae Excel Formeln: Wert mit aktuellstem Datum verwenden 3 coupi 2294 14. Okt 2004, xix:38
Coupi Excel Formeln: DATUM -> Tage z�hlen ? 3 anna-bolika 4451 11. Okt 2004, 16:34
lou38 Excel Formeln: Datum vor 1900 7 Petschi 1518 xv. Aug 2004, 15:55
Thomas Ramel Excel Formeln: Felder ausf�llen nur bis aktuellem Datum 4 Salazar 906 12. Aug 2004, 15:53
fl618

Source: http://www.office-loesung.de/ftopic146475_0_0_asc.php

Posted by: catalanoource1962.blogspot.com

Share this post