Excel VBA Bedingte Formatierung "Wird angewendet auf" füllen

Question

Hallo,

ich hab' jetzt schon mehrere Stunden in einen VBA-Code investiert - bin aber leider zu keiner Lösung gekommen ...

Dabei will ich doch "nur" den Bereich einer bzw. mehrerer bedingten Formatierungen erweitern. Aktuell steht im Feld "Wird angewendet auf" z.B. $H$10 (das ist die aktuelle Zelle) und das will ich bei jeder bedingten Formatierung ändern in $H$10:$Z$100.

Leider finde ich nirgends, wie ich dieses Feld per VBA ansprechen kann.

Hat hierfür jemand eine Lösung? Es darf auch ein Workaround sein. Versucht habe ich bereits, alle bedingten Formatierungen aus der Zelle H10 auszulesen, um sie dann wieder für den erweiterten Bereich festzulegen. Da es aber unzählige Parameter gibt (die man nicht alle kennt), ist das nahezu unmöglich.

Wäre prima, wenn mir jemand helfen könnte.

Vielen Dank schon mal, schöne Grüße und ein schönes WE
Jojo

Answer 1

Hallo,

angenommen Du willst im Bereich H10:Z100 alle Zellen mit dem Wert 1 mittels der Bedingten Formatierung rot färben, dann lautet der aufgezeichnete Code so:

Option Explicit

Sub Makro1()
'
' Makro1 Makro
'

'
Range("H10:Z100").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

Diesen kannst Du dann nach Deinen Vorstellungen optimieren.

Ich spreche hier von Excel 2010.

Gruß
Rainer

Answer 2

Hi all,

probierts doch mal mit

Range("$H$10").FormatConditions(1).ModifyAppliesToRange Range("$H$10:$Z$10")

Gruß Mr. K.

Answer 3

Ich vergaß: Auch ich bezog mich auf Excel 2010.

Die einfachere Alternative ist übrigens „Format übertragen“:
Klick auf Pinsel-Symbol und dann auf die anderen Zell-Bereiche. Oder mit Kopieren  Inhalte einfügen  Formate.

Gruß Mr. K.