Formatierung in Abhängigkeit übernehmen
18.09.2017 16:13:59
ckoeni
ich bastle gerade an einer Art Terminplan/Gantt-Diagramm mit entsprechenden Vorgängen, einer "KW Start", einer "KW Ende" und dem entsprechenden Zeitbalken dazu. Hierbei gibt es eine Gliederung mit drei Ebenen, also z.B.
1 Bauwerk
..1.1 Fenster
....1.1.1 Ausschreibung
....1.1.2 Vergabe
....1.1.3 Durchführung,
wobei jeder Vorgang seinen Zeitbalken in einer beliebigen Farbe besitzt und über +/- am Rand ein-/ausgeklappt werden kann. Verschiedene Ebenen können dabei über Klick auf eine Schaltfläche hinzugefügt werden.
Nun würde ich gerne die Vorgänge in der 3. Ebene (ergo: Ausschreibung, Vergabe, Durchführung bspw.) mit dem entsprechenden Zeitbalken in die zweite Ebene übertragen, d.h. wenn ich Ebene 2 über das "-" zuklappe, sollen die drei Zeitbalken der drei Vorgänge in der Zeile "1.1 Fenster" hintereinander angeordnet sein (mit entsprechenden leeren Zellen dawzischen, falls in manchen Wochen nichts passiert), also die Formatierung jeweils nach oben übernommen werden.
Ich hätte das Ganze bis dato mit einem "Zelländerungs-Makro" für den Bereich realisiert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("R8:FQ40")) Is Nothing Then Exit Sub
Call VorgängeÜbernehmen
End Sub
Sub VorgängeÜbernehmen()
End Sub
Für das Makro "VorgängeÜbernehmen" hätte ich angedacht, jeweils über .IndentLevel
den Grad des Einzugs des jeweiligen Vorgangs zu prüfen und wenn dieser "= 3" ist, alle Formatierungen in die nächste darüber liegende Zeile mit "IndentLevel = 2" für den Bereich zu übernehmen. Aber da hakt es momentan noch etwas...
Gerne auch ganz andere/bessere Vorschläge, wie man das realisieren könnte.
Vielen Dank!
https://www.herber.de/bbs/user/116338.xlsm