Bererich für bed. Formatierung, ModifyAppliesTo
05.05.2016 10:58:48
Arthur
Hallo Excelianer.
Mal kurz eben Excel angeschmissen und ein paar Zeilen Code eingefügt ... dachte ich ...
Aber der Reihe nach: Mein Wunsch ist recht einfach. Eine Zelle hat bedingte Formatierungen. Nun möchte ich den Anwendungsbereich per VBA verändern. Als Beispiel von A2 auf A2:A3. Dies sollte mit '.ModifyAppliesToRange' funktionieren. Leider stürzt Excel im zweiten Schleidendurchlauf ab.
Nun seid ihr mit an Bord: Was läuft falsch?
Der Debugger zeigt, wenn angehalten, dass nach der ersten Schleife beide Conditions gleich sind. In der Zelle sind aber noch beide vorhanden. Merkwürdig.
Hier ist die kleine Beispieldatei:
https://www.herber.de/bbs/user/105401.xlsm
Und der einfache Code nochmals:
Sub CondFormat()
Dim FCond As FormatCondition
' sauber machen ...
ThisWorkbook.Worksheets("Tabelle1").Range("B3").FormatConditions.Delete
' Anwendungsbereich der bedingten Formatierung erweitern
' !! beim zweiten Durchlauf stürzt Excel ab :(
For Each FCond In ThisWorkbook.Worksheets("Tabelle1").Range("B2").FormatConditions
FCond.ModifyAppliesToRange Range("B2:B3")
Next
End Sub
Vielen Dank schon mal für eure Hilfe.Gruß, Arthur.