Office: Dynamische Tabellen nebeneinander sortieren

Hallo,
Ich habe 40 Dynamische Tabelle auf einen Blatt nebeneinander angelegt:
Land, Städte, Namen usw.(siehe Tabelle). Die Tabellen sind unterschiedlich lang. Jetzt möchte ich die Tabellen nebeneinander sortieren, sodass die Tabelle land vorne steht, dann Namen kommt und als letztes Städte kommt.
Mit normalen sortieren geht es nicht. Weiß jemand, wie man das mit Makro machen könnte?

Danke
Michael

:)

 

Hi,

eine Idee wäre doch, die ListObjects über die ListObject.ListRows.Count in eine ArrayList aufzunehmen, diese dann Reverse zu sortieren und dann je Collection in einer Schleife von Spalte A nach ArrayList.Count -1 zu schreiben.

edit:
Code:

 

Behelfslösung ohne Makro:
Listen nacheinander mit Tabellentools-Tool-In Bereich konvertieren zu einer normalen Tabelle zurück konvertieren,

dann den gewünschten Bereich markieren und
Daten-sortieren-Optionen-Spalten sortieren-Zeile1

Grüße

Wolfgang

 

Hallo Marco,

bekomme in der Zeile set Coll eine Fehlermeldung
Automatisierungsfehler

 

Welches DotNet hast Du drauf?
Benötigen min 3.5

 

4.7

habe ich installiert

 

Dann gehen wir den Weg über EarlyBinding.
Ich lad dir ne Mappe hoch - Du müsstest vor dem Ausführen noch den Verweis auf mscorlib.dll im VBA-Editor setzen. (siehe Bild)

 

Hallo Marco,
Danke, dass Du mir helfen möchtest, aber es funktioniert leider nicht.

Es sollen die Spalte nebeneinander alphabetisch geordnet werden, egal wie lang die einzelnen Listen sind.
Ich bekomme immer beim Ausführen des Makros eine Fehlermeldung

Hast Du eine Idee? Klappt es bei Dir?

 

Hallo Michael,

die Entwicklung ist noch nicht abgeschlossen.
Ich dachte die letzte Schleife, das Schreiben der Tabellen auf das Arbeitsblatt, überlasse ich Dir*Smilie

Allerdings muss ich gestehen, dass ich die Neuanordnung so verstanden habe, dass die Tabellen mit der geringsten zur höchsten Spaltenanzahl von links nach recht angeordnet werden sollen - so hat es ausgesehen - naja, wer lesen kann...

Anbei mein Vorschlag (ohne Fehlerbehandlung):

a) Listet alle Tabellen in ein ArrayList (heute ist wieder mal ArrayTag *wink.gif*)
b) Sortiert alphabetisch aufsteigend
c) erstellt ein neues Tabellenblatt mit dem Namen Ergebnis
d) schreibt das ArrayList in das Tabellenblatt

 

Ja es funktioniert bei mir.
Hast Du immer noch eine Fehlermeldung?
Wenn ja, welche ?

 

Hm,
ich bekomme immer noch eine Fehlermeldung

in Zeile
Set coll = New ArrayList

Fehlermeldung (siehe Bild)
Automatisierungsfehler

Sorry, wenn ich damit nerve

 

Alles gut *Smilie

Zeig mal n screenshot von extras->verweise

 

Bitte

 

Office 2016 64bit?

 

Office 2016 32-Bit