Office: VBA Dictionary nach Jahren aufsteigend sortieren

Hallo liebe Excel-Profis,

ich eröffne mal einen neuen Thread, da die jetzige Frage doch stärker von meiner Frage im alten Thread abweicht: http://www.ms-office-forum.net/forum....php?p=1858058

Mit der Hilfe von Oge habe ich ein Dictionary, in welchem pro Jahr die Anzahl verschiedener vorkommender Begriffe gezählt werden. In einem weiteren Schritt habe ich zusammengefasst wie viele verschiedene Begriffe pro Jahr vorkommen.

Die Ausgangslage sah so aus, dass in einer Spalte Datumsangaben und in 2 weiteren Spalten unterschiedliche Anzahlen von Gegenständen stehen.
Beispiel
A/B/C
27.08.2003/Birne, Apfel, Melone/Gurke, Tomate
...

Das Dictionary sieht dann wie folgt aus
E/F/G
2003/Birne/1
2003/Apfel/1
...
2001/Apfel/1
...
2007/Zwiebel/2
...

Und an dieser Stelle findet sich mein Problem. Ich finde keine Möglichkeit das Dictionary anhand der Jahre aufsteigend zu ordnen. Ich habe mehrere Beiträge im Internet gefunden, die sich mit dem Sortieren von Dictionarys beschäftigen, aber keiner führte zum Erfolg.
Ich habe auch versucht den Ausgabearray zu sortieren, aber auch dies führte zu keinem passenden Ergebnis. Meistens wurden die Jahreszahlen sortiert, jedoch nicht die zugehörigen Einträge (also die Gegenstände und der Counter blieben vom Sortieren unberührt)

Bei einer vom Code her für mein Verständnis relativ sinnvollen Lösung erhalte ich an der Stelle "Arr(i) = dict.Keys(i)" den Laufzeitfehler 451 "Let-Prozedur der Eigenschaft ist nicht definiert, und Get-Prozedur hat kein Objekt zurückgegeben".
Hierbei habe ich versucht die Begriffe meines Dictionarys in ein Array einzuspielen, den ich dann mittels der Bubble Sort Methode sortieren wollte....

Also zusammenfassend: Wie schaffe ich es das ganze aufsteigend nach den Jahren zu sortieren und für jeden einzelnen Wert auch die dazugehörigen Werte mitzunehmen?
Und in einem nächsten Schritt: ist es möglich innerhalb der Jahre zusätzlich nach der Häufigkeit der Gegenstände zu sortieren?
Beispiel:
2000/Apfel/6
2000/Birne/4
2000/Melone/2
...
2001/Birne/6
2001/Apfel/3
...
*confused.gif*

Ich hoffe ihr könnt mir abermals helfen

Ich hänge den Code und die zugehörige Datei an.
Code:

:)

 

Wieso willst Du das Dictionary sortieren? Du könntest doch auch alles nach der Ausgabe sortieren.

Ein anderere Ansatz wäre, ADODB in Memory zu verwenden, da kriegt man das Sortieren mit dazu.

PS Und wozu das ganze, das könnte man IMHO mit Pivot-Tabellen erschlagen.

 

Hallo Chas,

Hatte gerade das selbe Problem und bin auf folgende Lösung(en) gekommen:

Dieser Fehler (451) tritt auf wenn man die Collection Dict mit "Late Binding" verwendet und dann "dict.Keys(i)" verwendet.

Also:
Code:

Lösung 1.:

Ändere die einfach Zeile auf:

Code:

Lösung 2.:

"Early Binding" verwenden:

- Unter "Extras/Verweise" "“Microsoft Scripting Runtime” hinzufügen

Code:

In der zweiten Variante hast Du den Vorteil von Intellisense.

Siehe auch:
http://www.ms-office-forum.de/forum/...d.php?t=256711
https://excelmacromastery.com/vba-di...s_Late_Binding

Ich bin mit der einfachen Lösung 1 glücklich geworden... *Smilie

LG Fritz

 

Bei macromastery gibt es übrigens Funktionen zum Sortieren
PS Aber was rede ich, auch das andere Problem ist ein google Thema https://stackoverflow.com/questions/...-early-binding

 

Hallo,

entschuldigt bitte erst einmal die verspätete Rückmeldung.

Vielen Dank, Fritz!! Lösung 1 löst genau das Problem. Was eine verdammte Klammer ausmachen kann... Genau den von dir verlinkten Beitrag übers Late und Early Binding hatte ich sogar zum Einarbeiten in das Thema Dictionary gelesen, aber nicht mehr auf dem Schirm...
Auf jeden Fall funktioniert das Sortieren nun endlich. Danke!

@Storax: Das Problem beim Sortieren nach der Ausgabe bestand halt darin, dass ich hier dann meistens nur eine der Zeilen (die Jahresdaten) sortiert bekommen habe, nicht jedoch die Spalten dahinter. Und der Schritt die Zeilen zu verketten, zu sortieren und anschließend wieder zu trennen erschien mir etwas "unelegant", wäre jedoch meine Notlösung geworden, wenn es anders nicht funktioniert hätte... Da die ganzen Schritte automatisiert ablaufen sollen und ich die sortierten Daten noch weiter verarbeiten muss (auch automatisiert) habe ich auf die Pivottabelle verzichtet.
Sortierfunktionen, u.a. auch das Sortieren eines Dictionarys, habe ich auch bei Pearson gefunden (http://www.cpearson.com/excel/Collec...ctionaries.htm).
Als totaler VBA-Anfänger scheint das aber sehr komplex und das Ganze hat auch mit einigen Anpassungen bei mir nicht funktioniert. Zusätzlich zu dem Sortiercode, wird dann auch noch eine weitere Funktion benötigt und der Gesamtcode wird ellenlang.
Grundsätzlich wäre das ja kein Hindernis, wenn das funktioniert und ich da noch durchblicke, und verstehe, was der Code da macht. Aber der dann von mir gepostete Code schien in meinen Augen logisch und ich hatte soweit auch verstanden was er macht, aber ich habe halt leider den Fehler nicht gefunden, auf den mich Fritz dann hingewiesen hat.

So und jetzt setze ich mir wieder vor mein hoffentlich letztes Problem, und löse das hoffentlich ohne fremde Hilfe *grins
Nochmals vielen Dank für eure Hilfe und Unterstützung! *top