Automatische Gliederung
26.12.2003 11:37:28
Herbert
Ich habe Problem, das ich automatisch über ein Makro erzeugen soll, aber nicht weiß wie!.
In der Spalte A wird ab A2 ( A1 ist Überschrift) eine Phase eingegeben, zu dieser im anschluss die zugehörigen Aufgaben. Also sieht dann wie folgt aus:
Phase 1
Aufgabe 1
Aufgabe 2
Aufgabe 3
Dann wird die nächste Phase noch dem selben Motto eingetragen.
Also kann eine Tabelle wie folgt aussehen:
Phase 1
Aufgabe 1
Aufgabe 2
Aufgabe 3
Phase 2
Aufgabe 1
Aufgabe 2
Phase 3
Aufgabe 1
Aufgabe 2
Aufgabe 3
Aufgabe 4
Die Phasen Anzahl und die dazugehörigen Aufgaben sind Variabel.
Nun will/ muss ich die Aufgaben der jeweiligen Phase Gruppieren, damit ich sie auf und zuklappen kann.
Der Code für obiges Beispiel sieht wie folgt aus:
Sub Gruppierung()
' Gruppierung Makro
' Makro am 26.12.2003 von herbert aufgezeichnet
Rows("3:5").Select
Selection.Rows.Group
Rows("7:9").Select
Selection.Rows.Group
Rows("11:14").Select
Selection.Rows.Group
End Sub
Wie kann ich den Code für variable Phasen und variable Aufgaben anpassen.
Danke für die Hilfe!!!!!!!