wir haben ein Makro zwecks Gruppierung mehrerer Zeilen aufgezeichnet. Dieses Makro ist abgestimmt auf ein Sheet, soll aber auf sämtliche Sheets der Datei angewendet werden. Hierzu benötige ich eine Schleifenfunktion, die mir allerdings fremd ist.
Ich freue mich auf eure Hilfe!
Grüsse
Frank
Sheets("Tabelle 1").Select
Rows("308:466").Select
Selection.Rows.Group
Selection.Rows.Ungroup
Selection.Rows.Ungroup
Rows("308:369").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=3
Rows("372:375").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=7
Rows("378:382").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=8
Rows("385:391").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=8
Rows("394:399").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=7
Rows("402:411").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=7
Rows("414:418").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=7
Rows("421:424").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=5
Rows("427:430").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=6
Rows("433:435").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=5
Rows("438:439").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=5
Rows("442:446").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=8
Rows("449:454").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=9
Rows("457:462").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=5
Rows("465:465").Select
Selection.Rows.Group
ActiveWindow.LargeScroll Down:=-10
ActiveWindow.SmallScroll Down:=6
Rows("371:466").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=3
End Sub