28.12.2019, 13:27
Hallo Erich,
im Code findest Du die Zeile
Worksheets.Add Before:=Worksheets(1)
Das Before lässt schon vermuten, dass es auch ein After gibt.
Da die Anzahl der Blätter aber variabel ist, kannst Du dann nicht z.B. statt der 1 fest eine 13 programmieren. Hier nimmst Du dann stattdessen Sheets.Count
Das mit dem Aufführen am Ende sollte sich dann von alleine ergeben wenn Du den Teil mit dem Sortieren weg lässt.
im Code findest Du die Zeile
Worksheets.Add Before:=Worksheets(1)
Das Before lässt schon vermuten, dass es auch ein After gibt.
Da die Anzahl der Blätter aber variabel ist, kannst Du dann nicht z.B. statt der 1 fest eine 13 programmieren. Hier nimmst Du dann stattdessen Sheets.Count
Das mit dem Aufführen am Ende sollte sich dann von alleine ergeben wenn Du den Teil mit dem Sortieren weg lässt.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)