Office: Recordset Sortierung

Habe ja in dem fast zeitgleichen Post gezeigt, wie ich zu dem Recordset komme. Was willst du zu der Tabelle wissen? Sie beinhaltet Spalten wie "Firma", "Kunde" und am Ende eben die "ID" um die es ja hier geht. Diese - um das nochmal klarzustellen - hat das Format XXX-XXX-00-0(00).

Ich hoffe, dass ich einige Fragen klären konnte!

 

Zur Thematik Recordset direkt aus XML habe ich gar keine Erfahrungen, liest sich aber sehr spannend. Die Übernahme von XML-Inhalten in Tabellen ist ein häufiger nachgefragtes Thema.
Zum Verständnis wäre da aber ein vollständiges Projekt (XLSM + XML-Datei) notwendig.

Ein Link auf die Quelle wäre nett.

Das System, was ich meine:
nicht
Code:

sondern
Code:

Ggf. muss man diese Sortierfelder erst aus einem Konglomeratfeld herauslösen.

 

Hallo Till,

das erwartete Chaos ist eingetreten - blickst Du noch durch? Mir macht das wirklich wenig Freude.
Wolltest Du nicht ein neues Thema aufmachen? Jetzt geht es doch bunt durcheinander weiter.

Dein Code zum Speichern bringt auch mein Excel zuverlässig zum Absturz, wenn ich eine bereits vorhandene, offene Mappe nochmals mit gleichem Namen speichern will. Das verwundert mich aber ehrlich gesagt auch nicht sehr - fehlt dann doch das zu speichernde Objekt, das Du mit Deiner nachgelieferten Routine einfach schließt.
Vielleicht solltest Du vorher prüfen, ob wkb bereits mit gleichem Namen existiert und offen ist und dann entsprechen reagieren. Zusätzlich würde ich wkb.SaveAs verwenden anstelle .Execute. Aber das ist entweder was für Dein Selbststudium (bei dem man noch am meisten lernt) oder wirklich einen anderen Thread.

Wie Du eingangs richtig bemerkst hast, wird nicht richtig sortiert, da "1", "2" und "10" immer in der Reihenfolge "1, 10, 2" sortiert werden. Das liegt daran, dass die Zahlen mit Text kombiniert sind und somit als Teil des Textes auch nach Textregeln sortiert werden.
Also trickse die Textsortierung aus, indem Du die Texte "0001", "0002", "0010" sortieren lässt - das führt zur gewünschten Reihung "0001, 0002, 0010". Im 2. Schritt wandelst Du die Texte wieder in einen Zahlenwert ("Text"*1), damit wieder eine Zahl daraus wird, die Du zurück in die (nunmehr aber richtig gereihte) ID einbaust.

Mein Vorschlag, die Einzelelemente der ID in Spalten aufzuteilen, würde dies unnötig machen, da Du die Zahlen dann als Zahlen behandeln kannst. Die Spalte mit der kombinierten ID kannst Du ja dennoch haben. (wobei du alles als "feste" Werte eintragen oder per Formel teilen / zusammenbauen kannst - wie Du magst)

Grüße
EarlFred

 

Ich habe etwas nachrecherchiert.
Die oben gezeigte Methode GetRecordset hat mit XML nur insofern etwas zu tun, dass sie innere Strukturen von Exceldatenblättern ausnutzt. Die Formate von Officedateien >= 2007 verwenden ja XML in ihrer inneren Struktur.
Quelle: VBA Trick of the Week: Range to Recordset Without Making Connection
Es geht also inhaltlich um das Kopieren eines Bereichs und weiter gar nichts.

 

Hier der Link: http://stackoverflow.com/questions/4...eeding-up-code

Hier habe ich jetzt einen neuen Thread eröffnet:
http://www.ms-office-forum.net/forum...69#post1784069

Und das geht in VBA? Wie gesagt ich bin Anfänger im Bereich Datenbanken - sorry!

 

Ausgangspunkt:

Wenn S für je genau einen Buchstaben und I für je genau eine Ziffer steht, dürfte es für eine alphanumerische Sortierung unter Einschluss der Zahlensortierung überhaupt kein Problem geben. Da ist dann die von EarlFred gezeigte Umformatierung des Strings mit führenden Nullen (ersatzweise Herauslösung von Sortierspalten) nicht mal notwendig.

Also Wie genau ist das in Realität?

Ansonsten, der Weg scheint ja so: Bereich => Recordset => Bereich
Das sind dann drei Stellen, in denen man die Sortierung und dafür erforderliche Maßnahmen umsetzen kann. In einem Recordset scheint mir eine entsprechende Umformung mit vernünftigem Aufwand als nicht möglich. Für die Bereiche (Quelle als auch Ziel) gibt es einige Möglichkeiten, einige wurden auch schon genannt, und damit bleibst Du auch in der hier wohlbekannten Excelwelt.

 

Nur die letzten Zahlen sind das Problem in der alphanumerischen Sortierung, da dort sowohl einstellige als auch zweistellige Zahlen vorkommen. Der Rest ist konstant und lässt sich auch im Recordset gut sortieren.

 

Nun, dann machst Du die letzte Zahl zweistellig (durch Formatierung mit führender 0) oder Du machst eine Sortierung im Sinne von Left(ID, Len(guterString) zuzüglich letzteZahl (in jeweils eigenen Spalten).
Und da ist das Recordset nun gerade der schwierigste Platz, sprich da ist derart viel Aufwand nötig, dass eine anderes Kopieren deutlich effizienter wäre als das umzusetzen. Also versuche es vor dem Kopieren oder nach dem Kopieren.

Und allgemein: Das Bestreben ist ja groß und wird freudig wahrgenommen, möglichst viele und z.Z. gegensätzliche Informationen in einem Gesamtausdruck zusammenzufassen. Mögliche Folgen erlebst Du gerade. Probleme, die man sich selber schafft.
In einer (ordentlichen) Datenbank speichert man nur atomare Informationen. Man hätte also von Haus aus getrennte Spalten und überhaupt keine Sorgen mit speziellen Sortierungen.
Es gilt dann auch: Zusammensetzen ist einfacher und schneller als Trennen.

 

Mir fällt das mit steigendem Umfang des Projekts auch auf, dass es sinnvoller gewesen wäre, mit einem richtigen Datenbankverwaltungstool wie Access zu arbeiten. Schade - dafür ist es jetzt zu spät. Euer/Dein Vorschlag ist jetzt also, dass ich die ID splitte und es somit einfacher wird zu sortieren? Aus einer Spalte würde ich also 4 machen und hätte es dann einfacher in vielerlei Hinsicht?
Klingt gut! Ich werde meine jetzige Datei mal duplizieren und das ausprobieren. Vielen Dank Dir!

 

So, wie Du das wiederholst, hast Du unsere Aussagen verstanden, sogar bis hin zu den atomaren Informationen.
Einfache Sortier- und Filtermöglichkeiten sind offensichtlich.
Wenn die letzte Zahl eine fortlaufende Nummer zu einer Gruppe, die durch die ersten drei Werte identifiziert wird, ist, öffnet man sich den Weg z.B. zu Pivottabellen, um da z.B. die höchsten Nummern pro Gruppe zu ermitteln.

 

Hallo EarlFred,
Dein Code hat super funktioniert, sobald ich ihn komplett verstanden hatte. Das Problem war glaube ich wirklich das totale Durcheinander, das ich mit meiner zweiten Frage fabriziert habe - entschuldigt das bitte!

Trotz alldem vielen Dank für Eure Hilfe und in Zukunft gibt es immer neue Themen für neue Fragen :P

Code: