Guten Abend,
über Makrorecorder habe ich einen Code aufgezeichnet, den ich per Hand nachgebessert habe.
'Gruppierung so einstellen, dass nach unten gruppiert wird
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlAbove
.SummaryColumn = xlRight
End With
'Schriftart und Gruppeirung beginnen
Rows("8:8").Select
Selection.Font.Bold = True
Rows("9:30").Select
Selection.Font.Bold = False
Selection.Rows.Group
Rows("31:31").Select ' +23 gegenüber 1. Zeile von 1. Block
Selection.Font.Bold = True
Rows("32:53").Select ' +21 gegenüber 3. Zeile vom 1. Block
Selection.Font.Bold = False
Selection.Rows.Group
Rows("54:54").Select
Selection.Font.Bold = True
Rows("55:76").Select
Selection.Font.Bold = False
Selection.Rows.Group
Ich müsste das jetzt immer wieder neu ausrechnen und kopieren bis zur letzten belegten Zelle in Spalte A.
Ich weis, dass es mit einer Schleife viel kürzer und einfacher geht, als wie wenn ich es händisch bis zur ca. 5.000.sten Zeile mache.
..und sorry jetzt schon für den select...:)
Wer kann hier ein wenig nachhelfen?
Grüße - Erwin