Bedingte Formatierung in Excel 2010

Hallo,
ich möchte in Excel 2010 eine Bedingte Formatierung anlegen, die etwas komplexer ist.
Ich habe einen Wert z.B. in A1 stehen, in B1 steht ein weiterer Wert und in C1 die Differenz.
Bsp.:
A1 B1 C1
10 8 -2

Die Bedingte Formatierung sollte nun so aussehen:
Wenn B1<A1*0,9 dann soll C1 rot ausgefüllt werden und eine weiße Schrift bekommen
Wenn B1>A1*0,9 und kleiner B1 dann soll die Farbe gelb und die Schrift schwarz sein.
Wenn B1>=B1 und Kleiner A1*1,1 dann soll die Farbe grün und die Schrift schwarz sein.
Wenn B1>=A1 dann soll die Füllung blau und die Schrift weiß sein.

Mein Problem ist, das die Regeln nicht greifen.

Hat hier jemand eine Idee?
Ich will dann später die bedingte Formatierung noch in ein Makro packen.

Danke.

Please also mark the comments that contributed to the solution of the article

Content-Key: 255033

Url: https://administrator.de/contentid/255033

Printed on: April 19, 2024 at 23:04 o'clock

10 Comments

Latest comment

Hallo

sollte so eigentlich funktionieren

Gruss Urs

Hi,
funktioniert irgendwie nicht ganz.
Hier mal meine Formatierung:

rot = Zellwert kleiner C3*0,9
gelb = Zellwert zwischen c3*0,9 und c3
grün = Zellwert zwischen C3 und C3*1,1
blau = Zellwert größer c3*1,1

Gruß

Hallo killtec,
Beispiel: bedingte_formatierung_255033.xlsx

Grüße Uwe

Hallo!

Du musst die Anführungszeichen um deine Berechnung weglassen.

Zellwert >= C3*1,1

Grüße

Ok, Mit Uwes hilfe habe ich die Formatierung nun drin

Uwe, du weißt das doch bestimmt:

Wie bekomme ich nun meine Bedingte Formatierung in ein Makro?
Wenn ich das aufzeichne, zeichnet der "nichts" auf.

Gruß

Zitat von @killtec:
Wie bekomme ich nun meine Bedingte Formatierung in ein Makro?
Wenn ich das aufzeichne, zeichnet der "nichts" auf.

Hier ein Beispiel für das Hinzufügen einer deiner Bedingungen in eine Zelle:

With Sheets(1).Range("E1").FormatConditions.Add(xlExpression, Formula1:="=$E1 > $C1 * 1,1")  
    .Font.Color = vbWhite
    .Interior.Color = vbBlue
End With

Das kannst du ja so oft wiederholen wie du Bedingungen für die Zelle brauchst ...

Grüße Uwe

Hi Uwe,
das sollte dann so funktionieren:

Sub Format()
    
    Sheet = "mysheet"  
    Range("E3:E19").Select  
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Range("E3").Select  
    
    With Sheets(strSheet).Range("$E$3;$E$10:$E$11;$E$15;$E$18:$E$19").FormatConditions.Add(xlExpression, Formula1:="=D3<(C3*0,9)")  
        .Font.Color = RGB(255, 255, 255) 'Weiß  
        .Interior.Color = RGB(255, 0, 0) 'Rot  
    End With
    
    With Sheets(strSheet).Range("$E$3;$E$10:$E$11;$E$15;$E$18:$E$19").FormatConditions.Add(xlExpression, Formula1:="=UND(D3<C3;D3>=(C3*0,9))")  
        .Font.Color = RGB(0, 0, 0) ' schwarz  
        .Interior.Color = RGB(255, 255, 0) 'Gelb  
    End With
    
    With Sheets(strSheet).Range("$E$3;$E$10:$E$11;$E$15;$E$18:$E$19").FormatConditions.Add(xlExpression, Formula1:="=UND(D3>=C3;D3<(C3*1,1))")  
        .Font.Color = RGB(0, 0, 0) 'schwarz  
        .Interior.Color = RGB(0, 255, 0) 'Grün  
    End With
    
    With Sheets(strSheet).Range("$E$3;$E$10:$E$11;$E$15;$E$18:$E$19").FormatConditions.Add(xlExpression, Formula1:="=D3>=(C3*1,1)")  
        .Font.Color = RGB(255, 255, 255) 'weiß  
        .Interior.Color = RGB(0, 0, 255) ' Blau  
    End With
    
End Sub

Hi,
das Funktioniert leider nicht

Er bleibt bei With Sheets(strSheet) stehen mit der Meldung Anwendungs- oder objektdefinierter Fehler.
Kann mit gerade da keinen Reim drauf machen.

#EDIT: Habs gefunden. Ich habe das ";" durch ein "," getauscht. Nun geht es

Gruß