---

Hallo zusammen,

in einer Exceltabelle sind teilweise bedingte Formatierungen enthalten.

Kann man den Ausdruck auf den die bedingte Formatierung wirken soll über VBA ändern?

Grüße

Sebastian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja, das einfachste ist das ganze immer über ein aufgezeichnetes Makro zu testen. Nachdem Du nicht sagst, was Du machen willst, würde eigentlich auch nur die Antwort "Ja" ausreichen

z.B.

Code:

---

Sub Makro1()
    Range("B3").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="=7"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16752384
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13561798
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

---

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

[Diese Nachricht wurde von Axel.Strasser am 15. Okt. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was meinst Du mit "Ausdruck"? In Excel wird sich die bedingte Formatierung aller Wahrscheinlichkeit nach auf einen Zellwert beziehen, das ist z. B. Range("A1").Value oder Cells(1, 1).Value. Wie Du den änderst, sollte klar sein.

Ich stimme Axel zu - etwas genauer müsstest Du Dein Vorhaben schon beschreiben  ...

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo ihr zwei!

Bisher ist es so, dass bei einem bestimmten Zelleninhalt sich die Zelle rot färbt. Dies wurde bisher über eine feste Einstellung im Dialog "Bedingte Formatierung" gemacht.

Nun möchte ich aber genau den im Dialog eingetragenen Wert über VBA steuern.

Bspw. war im Dialog der Ausdruck "Auswahl" fest hinterlegt. Nun soll sich aber die Zelle bei "Test" rot färben. Und den Wert Test will ich mittels VBA übergeben.

Grüße

Sebastian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Na, so wird's doch ETWAS klarer... Das zeichnet mir der Makrorecorder unter 2007 auf, wenn ich die Zelle C7, die den Text "Auswahl" enthält, bedingt formatiere:

Code:

---

Sub Makro1()
'
' Makro1 Makro
'

'
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$C$7=""Auswahl"""
    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

---

Schnell und schmutzig: Mach' aus "Auswahl" ein "Test" und lass' den Code mal laufen - nicht ausführlich getestet:

Code:

---

Sub Makro2()

Dim strWert As String
strWert = "Test"

    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$C$7=" & Chr(34) & strWert & Chr(34) ' & "Auswahl"""
    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

---

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP