Office: Daten in Abhängigkeit einer Spalte sortieren.

Hallo!

 

Hallo Denjiro,

sag mal, was möchtest Du denn jetzt nun eigentlich?
Die Daten auf vier Blätter verteilen, so wie Du dort fragst:
http://www.office-hilfe.com/support...-in-unterschiedliche-Tabellenblätter-kopieren
oder die Daten doch in einem Blatt lassen, und dann halt sortieren, so wie Du hier fragst?

 

Hallo!

 

Mich auch.
Ich habe den Fehler nicht gefunden.

 

Ich schau einfach mal. Wenn ich eine Antwort finden sollte, werde ich sie hier posten.

 

Hallo!

[TABLE]
<TBODY>[TR]
[TD]Ich habe mir Dein Sortierverfahren angeschaut. Die Ursachen für das fehlerhafte Sortierverhalten sind mehrere Inkonsistenzen im Code. Ich bespreche im Folgenden nur den Datenblock der Spalten A:L, die restlichen Blöcke funktionieren analog:

[TABLE]
<TBODY>[TR]
[TD]Dein Datenbereich liegt in A1:L325, wobei in Zeile 1 (teilweise) ein Header enthalten ist.
[/TD]
[/TR]
[TR]
[TD]Die I1-Variable, die die Spalte A absucht, enthält ein 1. Problem: Sie läuft von 2 bis 324 (und nicht bis 325). Dadurch werden folgende Bereiche gebildet:

[TABLE]
<COLGROUP><COL><COL width=151></COLGROUP><TBODY>[TR]
[TD="bgcolor: #bfbfbf, align: left"]Key-Bereiche[/TD]
[TD="bgcolor: #bfbfbf, align: left"]SetRange-Bereich[/TD]
[/TR]
[TR]
[TD="align: left"]D1-D115[/TD]
[TD="align: left"]A1:G115[/TD]
[/TR]
[TR]
[TD="align: left"]D115-D233[/TD]
[TD="align: left"]A115:G233[/TD]
[/TR]
[TR]
[TD="align: left"]D234-D325 nicht!!![/TD]
[TD="align: left"]A234:G325 nicht!!![/TD]
[/TR]
</TBODY>[/TABLE]

[TABLE]
<TBODY>[TR]
[TD]
[/TD]
[/TR]
[TR]
[TD]Der 3. Bereich (Zeilen 234-325) wird überhaupt nicht sortiert, weil die Variable I1 nur bis 324 läuft. Dadurch
[/TD]
[/TR]
[TR]
[TD]gilt, dass date0=date1 (weil die Werte in A324 und A325 gleich sind) und somit wird keine weitere Sortierung für diesen 3. Datumsbereich
[/TD]
[/TR]
[TR]
[TD]ausgeführt.
[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Mir ist nicht klar, warum diese Sortierung überhaupt so kompliziert sein muss:
[/TD]
[/TR]
[TR]
[TD]Es müsste in diesem Fall ja genügen, nur 1 Sortiervorgang durchzuführen mit 2 Sortierkriteriumsspalten:
[/TD]
[/TR]
[TR]
[TD]Spalte A enthält die übergeordneten Sortierwerte und Spalte D die untergeordneten Sortierwerte.
[/TD]
[/TR]
[TR]
[TD]Dadurch würde sich folgendes Sortiermakro für den Bereich A1:L325 (bzw. A1:G325) ergeben:

Code:

     ende1 = Range("A1048576").End(xlUp).Row
     With ws1.Sort
       With .SortFields
         .Clear
         .Add Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         .Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       End With
       .SetRange Range("A2:G" & ende1)
       .Header = xlNo
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
     End With

[/TD]
[/TR]
</TBODY>[/TABLE]
[/TD]
[/TR]
</TBODY>[/TABLE]
[/TD]
[/TR]
</TBODY>[/TABLE]

 

Hallo!

 

@Exl121150

 

Hallo!

Wie sieht es aus, wenn Du die DataOption des 1. Sortfield von "xlSortNormal" auf "xlSortTextAsNumbers" änderst?

Code:

     ende1 = Range("A1048576").End(xlUp).Row
     With ws1.Sort
       With .SortFields
         .Clear
         .Add Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
         .Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       End With
       .SetRange Range("A2:G" & ende1)
       .Header = xlNo
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
     End With

 

Hallo!

Ich stellte leider fest, dass eine Änderung der DataOption auch leider nicht hilft.
Das einfachste Verfahren wäre meiner Meinung nach folgendes:

In die 1. Spalte, die bisher nicht sortiert wird, das wäre die Spalte H, eine eindeutiges, korrektes Datum speichern und anhand dieses Datums (statt der Spalte A) die Sortierung im 1. Sortierfeld durchzuführen.
Da in Deinem VBA-Code ohnehin schon eine dafür taugliche Funktion (GetDate) enthalten ist, die in der Lage ist, aus den Werten der Spalte A einen gültigen Datumswert zu liefern, wäre das ja eine einfache Aufgabe.

Diese Funktionalität habe ich bereits im folgenden Makro eingebaut (enthalten in der 2. Codezeile); darüber hinaus habe ich den SetRange-Bereich auf die Spalte H ausgedehnt:

Code:

     ende1 = Range("A1048576").End(xlUp).Row
     Range("H2:H" & ende1).FormulaR1C1 = "=GetDate(RC[-7])"
     With ws1.Sort
       With .SortFields
         .Clear
         .Add Key:=Range("H:H"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         .Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       End With
       .SetRange Range("A2:H" & ende1)
       .Header = xlNo
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
     End With

 

Hallo Denjiro und Exl,

ich muss mal meinen Senf dazu geben...
Nach mehreren Tests mit verschiedenen Daten hat sich meine anfängliche Vermutung in meinen Augen bestätigt, wie man hier schön sehen kann:
[TABLE="width: 168"]
<colgroup><col></colgroup><tbody>[TR]
[TD]01.01. - 30.01.2004[/TD]
[/TR]
[TR]
[TD]01.01. - 30.01.2005[/TD]
[/TR]
[TR]
[TD]01.02. - 30.02.2004[/TD]
[/TR]
[TR]
[TD]01.02. - 30.02.2005[/TD]
[/TR]
[TR]
[TD]01.03. - 30.03.2004[/TD]
[/TR]
[TR]
[TD]01.03. - 30.03.2005[/TD]
[/TR]
[TR]
[TD]01.04. - 30.04.2004[/TD]
[/TR]
[TR]
[TD]01.04. - 30.04.2005[/TD]
[/TR]
[TR]
[TD]01.05. - 30.05.2004[/TD]
[/TR]
[TR]
[TD]01.05. - 30.05.2005
[/TD]
[/TR]
</tbody>[/TABLE]

Den Datumsbereich in eine Zelle schreiben ist keine gute Idee, denn so wird kein Datum daraus, sondern Text.
Genau deshalb hatte Denjiro ja auch zuerst die Funktion benutzt um den String zu zerlegen und ein Datum auszulesen.

Es hat nichts damit zu tun, dass sich die Größe der Ausschreibungszeiträume verändert (dadurch ist es nur aufgefallen), sondern es liegt daran, dass wenn man "01.05. - 30.05.2004" als kompletten String betrachtet, der direkt darauf folgende dieser "01.05. - 30.05.2005" wäre.
Beachtet die letzte Stelle.

Anstatt, wie Exl vorschlägt zusätzliche Hilfsspalten einzuführen, würde ich direkt beim Datenimport den Zeitraum auf zwei Spalten verteilen, dann kann man auch wieder mit den Datumsen - Datums - Datümer - Daten... (ja wie denn nun?) rechnen.


Genug Senf, hat jemand noch ne Wurst dazu???