BlockFormatierung grau-weiss mit Linien ergänzen
29.04.2018 17:00:25
Peter
Folgend den Link zur Bespieldatei: https://www.herber.de/bbs/user/121351.xlsm
In Reiter "Test" in Spalte C ist die übergeordnete und in Spalte D die untergeordnete Gruppe. Gerne möchte ich nun die Block-grau-weiss bedingte Formatierung nicht auf die übergeordnete Gruppe (Button "BlockFormatierung 1), sondern auf die untergeordnete Gruppe (BlockFormatierung 2) und die übergeordnete Gruppe soll mit einem schwarzen Rahmen abgegrenzt werden. Beispiel wie es aussehen soll, siehe Reiter "Ziel" in der Beispieldatei.
Die bedingte Formatierung funktioniert bereits gut, diese soll mit den Rahmen zeichnen für die übergeordnete Gruppe ergänzt werden. Ich habe es versucht dies zu integrieren, ist mir jedoch nicht gelungen, wie müsste ich folgenden Code abändern?
Sub BlockEinfaerben2()
Application.ScreenUpdating = False
'Variablen definieren
Dim Bereich 'Variable "Bereich"
Dim letzteZeile 'Variable "letzte Zeile"
Dim letzteSpalte 'Variable "letzte Spalte"
letzteZeile = Cells.Find("*", [A1], SearchOrder:=xlByRows, searchdirection:=xlPrevious).Row
letzteSpalte = Cells.Find("*", [A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious). _
Column
Set Bereich = ActiveSheet.Range("$A$4:" & Cells(letzteZeile, letzteSpalte).Address) ' _
Variable Breich wird festgelegt, ab Zeile 2 + variable letzte Zeile und + varible letzte Spalte
'Alle bedingte Formatierung und Gitternetzlinien zuvor löschen
Cells.FormatConditions.Delete 'alle bedingten Formatierungen löschen
'Cells.Borders.LineStyle = xlNone 'alle Gitternetzlinien löschen
'Block gemäss Spalte D Zeilen grau/weiss formatieren
Bereich.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(SUMMENPRODUKT(N($D$3:$D3$D$4:$D4));2)" '
Danke im Voraus für jede Unterstützung.
Viele Grüsse
Peter