Tabellenreit per Makro markieren

Hallo liebe Exelgemeinde
Ich habe insgesamt in einer Exeldatei 264 Tabellenblätter, deren Reiter ich um durch zu kopieren oft Gruppieren muss. Nun habe ich versucht per Makrorecorder dies zu bewerkstelligen, da kommt beim ausführen dann die Fehlermeldung Prozedur zu groß.
Mit call und aufruf der einzelnen Makros wird immer nur die letzte Gruppe Reiter am Ende markiert. Habe dann gedacht in jeden einzelnen Makro einen Reiter der vorhergehenden Gruppe einzuordnen, geht ja händig auch ohne das was passiert. Aber gleiches Ergebnis.
Setze mal noch mein Call Makro mit rein.


Sub alle_Packzettel_gruppieren_ausser_SA()
Call Pack_Nord_Gruppieren_all
Call Pack_Nord_Gruppieren_all
End Sub

Vielleicht könnt Ihr mir helfen. Ich bin am Ende mit meinem Latein.
Für Eure Mühe danke ich im voraus.
LG Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo MeckiMesser!
Erst mal danke für den Hinweis. Im zweiten Call muss natürlich statt Nord Mitte stehen (schäm). Dachte das es das ist und meine Phaselligkeit. Habe es jetzt probiert aber leider bleibt dann nur Nord 21 und Mitte als markiert. Ich werde mal beide Makros zur Ansicht noch reinstellen..


Sub Pack_Nord_Gruppieren_all()
' Pack_Nord_Gruppieren_all Makro
Sheets(Array("Packzettela Nord 1", "Packzettelb Nord 2", "Packzettelc Nord 3", _
"Packzetteld Nord 4", "Packzettele Nord 5", "Packzettelf Nord 6", _
"Packzettelg Nord 7", "Packzettelh Nord 8", "Packzetteli Nord 9", _
"Packzettelj Nord 10", "Packzettelk Nord 11", "Packzettelm Nord 12", _
"Packzetteln Nord 13", "Packzettelp Nord 14", "Packzettelq Nord 15", _
"Packzettelr Nord 16", "Packzettels Nord 17", "Packzettelt Nord 18", _
"Packzettelu Nord 19", "Packzettelv Nord 20", "Packzettelw Nord 21", _
"Packzettelx Nord 22")).Select
End Sub
Sub Pack_Mitte_Gruppieren_all()
' Pack_Mitte_Gruppieren_all Makro
Sheets(Array("Packzettelw Nord 21","Packzettela Mitte 1", "Packzettelb Mitte 2", "Packzettelc Mitte 3", _
"Packzetteld Mitte 4", "Packzettele Mitte 5", "Packzettelf Mitte 6", _
"Packzettelg Mitte 7", "Packzettelh Mitte 8", "Packzetteli Mitte 9", _
"Packzettelj Mitte 10", "Packzettelk Mitte 11", "Packzettelm Mitte 12", _
"Packzetteln Mitte 13", "Packzettelp Mitte 14", "Packzettelq Mitte 15", _
"Packzettelr Mitte 16", "Packzettels Mitte 17", "Packzettelt Mitte 18", _
"Packzettelu Mitte 19", "Packzettelv Mitte 20", "Packzettelw Mitte 21", _
"Packzettelx Mitte 22")).Select
Sheets("Packzettela Mitte 1").Activate
End Sub

Vielleicht könnt Ihr mir helfen.
LG Robert

Sub Pack_Nord_Gruppieren_all() ' Pack_Nord_Gruppieren_all Makro Sheets(Array("Packzettela Nord 1", "Packzettelb Nord 2", "Packzettelc Nord 3", _ "Packzetteld Nord 4", "Packzettele Nord 5", "Packzettelf Nord 6", _ "Packzettelg Nord 7", "Packzettelh Nord 8", "Packzetteli Nord 9", _ "Packzettelj Nord 10", "Packzettelk Nord 11", "Packzettelm Nord 12", _ "Packzetteln Nord 13", "Packzettelp Nord 14", "Packzettelq Nord 15", _ "Packzettelr Nord 16", "Packzettels Nord 17", "Packzettelt Nord 18", _ "Packzettelu Nord 19", "Packzettelv Nord 20", "Packzettelw Nord 21", _ "Packzettelx Nord 22")).Select False End Sub Sub Pack_Mitte_Gruppieren_all() ' Pack_Mitte_Gruppieren_all Makro Sheets(Array("Packzettelw Nord 21","Packzettela Mitte 1", "Packzettelb Mitte 2", "Packzettelc Mitte 3", _ "Packzetteld Mitte 4", "Packzettele Mitte 5", "Packzettelf Mitte 6", _ "Packzettelg Mitte 7", "Packzettelh Mitte 8", "Packzetteli Mitte 9", _ "Packzettelj Mitte 10", "Packzettelk Mitte 11", "Packzettelm Mitte 12", _ "Packzetteln Mitte 13", "Packzettelp Mitte 14", "Packzettelq Mitte 15", _ "Packzettelr Mitte 16", "Packzettels Mitte 17", "Packzettelt Mitte 18", _ "Packzettelu Mitte 19", "Packzettelv Mitte 20", "Packzettelw Mitte 21", _ "Packzettelx Mitte 22")).Select False Sheets("Packzettela Mitte 1").Activate End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread