Microsoft Excel

Herbers Excel/VBA-Archiv

Bedingte Formatierung


Betrifft: Bedingte Formatierung von: Tom
Geschrieben am: 30.05.2017 14:56:04

Hallo zusammen,

ist es möglich eine Bedingte Formierung bei einer Freigegebenen Arbeitsmappe zum laufen zu bekommen?

'    bedingte Formatierung, wenn in Spalte K ein "b, i, u" steht wird in Spalte AC ein "ja"  _
eintragen sonst leer
     Range("AC7:AC500").FormulaR1C1 = "=IF(OR(RC11=""b"",RC11=""i"",RC11=""u""),""ja"","""")"

Gruß Tom

  

Betrifft: AW: Bedingte Formatierung von: EtoPHG
Geschrieben am: 30.05.2017 15:02:45

Hallo Tom,

Die Bedingung für einen Formatierung muss einen Wahrheitswert (FALSCH/WAHR) zurückgeben. Es kann nicht über eine Formel ein Wert in die Zelle geschrieben werden! Eine Formatierung kann nicht den (internen) Wert einer Zelle verändern!

Gruess Hansueli


  

Betrifft: AW: Bedingte Formatierung von: Tom
Geschrieben am: 30.05.2017 15:22:37


upps war der falsche Code....

    'bedingte Formatierung, wenn in Spalte K ein "b" eingetragen ist
With .Range(.Cells(Zeile_Z1, 12), .Cells(Zeile_Z, 28))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""b"""
    With .FormatConditions(1).Interior
        .Pattern = 14 'xlPatternLightUp
        .PatternThemeColor = xlThemeColorLight1
        ' .ColorIndex = xlAutomatic
        .ColorIndex = 8
        .PatternTintAndShade = 0
    End With
   'bedingte Formatierung, wenn in Spalte K ein "i" eingetragen ist
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""i"""
    With .FormatConditions(2).Interior
        .Pattern = 14
        .PatternThemeColor = xlThemeColorAccent4
        .ColorIndex = 4
        .PatternTintAndShade = 0
     End With
   'bedingte Formatierung, wenn in Spalte K ein "u" eingetragen ist
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""u"""
    With .FormatConditions(3).Interior
        .Pattern = 14
        .PatternThemeColor = xlThemeColorAccent4
        .ColorIndex = 15
        .PatternTintAndShade = 0
    End With
   'bedingte Formatierung, wenn in Spalte K ein "a" eingetragen ist
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""a"""
    With .FormatConditions(4).Interior
        .Pattern = 14
        .PatternThemeColor = xlThemeColorAccent4
        .ColorIndex = 3
        .PatternTintAndShade = 0
        
        



  

Betrifft: AW: Bedingte Formatierung von: EtoPHG
Geschrieben am: 30.05.2017 15:43:07

Hallo Tom,

Ich sehe den Sinn dieses Codes nicht ein! Warum sind die Bedingten Formatierungen nicht einfach in die Tabelle eingetragen? Warum müssen sie per VBA eingetragen werden. Es ist bekannt, dass nicht jeder VBA-Code in freigegebenen Mappen lauffähig ist. Das kann bei Microsoft nachgeschlagen werden!

Gruess Hansueli


  

Betrifft: AW: Bedingte Formatierung von: Tom
Geschrieben am: 30.05.2017 16:24:20

Hallo Hansueli,

danke, hätte gedacht die ganzen klugen Köpfe hier haben eine Lösung.

Gruß Tom


Beiträge aus den Excel-Beispielen zum Thema "Bedingte Formatierung "