Frage an die Spezialisten:

Ich habe mir eine Tabelle angelegt, die wie folgt aufgeteilt ist:

Es gibt mehrere Tabellenblätter (999999, 1000000,2000000,3000000, ...   25000000 o. auch noch mehr!)

In dem Blatt "999999" stehen in der Spalte "A" die Zahlen von 1 bis 9999, Spalte "B" die jeweilige Quersumme - nicht als Formel, sondern nur der WERT. In den Blättern 1000000 bis 25000000  o. auch mehr (immer in 1 Millionen je Blatt unterteilt) die restlichen natürlichen Zahlen.

Nun benötige ich ein Makro, welches die Quersummen von 1 bis ggf. max. 200 in entsprechende Tabellenblätter VERSCHIEBT.

Am Ende der bestehenden Arbeitsblätter sollen entsprechen der Quersummen von 1 bis ggf. 200 neue Blätter eingefügt werden. Die Namen vollen den möglichen Quersummen von 1 bis 200 entsprechen. 200 natürlich nur, wenn des enstprecheden Quersummen gibt. Gehen diese nur bis 100, dann sollen auch nur Blätter von 1 bis 100 erzeugt werden.

Anschließend sollen aus den vorhandenen Blättern 999999, 1000000, 2000000......bis zum Ende alle Zeilen in die entsprechen "NEUEN" Blätter mit den Namen 1...max.200 verschoben werden.

Beispiel:

- Blatt "999999" Zelle A1 = 10, B1 = 1 --> verschieben in Tabellenblatt "1"

- Blatt "999999" Zelle A2 = 11, B1 = 2 --> verschieben in Tabellenblatt "2"

- Blatt "2000000" Zelle A1 = 2000000, B1 = 2 --> verschieben in Tabellenblatt "2"

Dadurch sollen in den Tabellenblättern, die der Quersumme entsprechen, die die natürlichen Zahlen und deren Quersummen sortiert werden.

Zusätzliches Problem: In den Tabellenblättern, in denen die zu verschiebenen Spalten liegen, müssen nicht unbedingt die Werte bis 200 vorkommen. Werden nur die Quersummen aus den Zahlen 10 bis 25.000.000 ermittelt, dann gibt es logischer weise im Blatt "999.999" (für die natürlichen Zahlen bis 999.999) eine max. Quersumme von 6*9= 54, im Tabellenblatt "25.000.000" gibt es nur eine Zeile (A1=25.000.000, B1 = 7).  Leere Zeilen sollen nicht verschoben werden.