https://www.znuk.ch/office/excelvba/bedingte-formatierung-mit-vba/?preview=true
Ein wiederkehrendes Thema bei Controllern, die mit SAP Reportings arbeiten – egal ob ERP Tabellenexporte oder wie ich mit BW oder Analysis für Office ist die Formatierung der Tabellen.
Während ich eigentlich nicht gerne Flat Files liefere, lechzen die Endkunden nach schönen Farben. Hier habe ich für unsere Abteilung eigentlich mit einem eigenen Ribbon schöne Farbsets aufgrund unseres CD erstellt. Wenn die Tabellen jedoch regelmässig erstellt werden arbeite ich sehr gerne mit bedingten Formatierungen, damit sie immer gleich aussehen.
Ein einfacher Code für bedingte Formatierungen:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub bedForm() Cells.FormatConditions.Delete Cells(10, 5).Select With Selection .FormatConditions.Add Type:=xlExpression, Formula1:="=WENN(NICHT(ISTLEER($E10));WAHR;FALSCH)" .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority .FormatConditions(1).Font.Bold = True .FormatConditions(1).Interior.Color = 13434879 .FormatConditions(1).StopIfTrue = False End With Cells(10, 5).FormatConditions(1).ModifyAppliesToRange Range:=Cells(10, 5).Resize(100, 10) End Sub |
Hier einige Erklärungen zu den Befehlen:
- In Zeile 3 lösche ich sämtliche enthalten bedingten Formatierungen. Eine Krankheit von Excel mit bedingten Formatierungen ist, dass nach längerem Gebrauch ein Chaos herrscht. Diese machen sich mit Copy und Paste und beim Bearbeiten der Dateien ’selbstständig‘. Ich habe schon Files mit 1000 Einträgen mit bedingten Formatierungen gesehen. MIt einer Codezeile löscht man die alle…
- In Zeile 5 markiere ich den Bereich, wo ich die bedingten Formatierungen erstelle. In Zeile 17 weite ich diese dann aus (ModifyApplies to Range). Man könnte natürlich schon in Zeile 3 alles markieren. Ist hier nur so dargestellt, damit auch die nachträgliche Änderung bekannt ist.
- Mit dem restlichen Code sage ich dann: Wenn es in der Spalte E einen Wert hat, dann mache die Spalten E bis N fett und gelb hinterlegt. Die Grenzen sind endlos….
- Wenn ich bedingten Formatierungen arbeite, dann verwende ich meistens die Formelfunktion. Wenn eine Bedingung erfüllt ist (WAHR), dann formatiere. Es gibt auch viele andere Möglichkeiten. Probiere es aus.