Office: Zellen einfärben und Schraffieren

walpla · 3. Februar 2019

Hallo Profis!

Mit folgenden Code vom Makrorekorder färbe ich die Zellen rot ein, wenn die Bedingung erfüllt ist.... das funktioniert auch!

Code:

Range("I3:AM3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZÄHLENWENN($BK$3:$BK$18;I3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

With Selection.FormatConditions(1).Interior

.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = 3
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit diesem Code sollte horizontal umgefärbt werden und das funktioniert leider nicht! Färbe ich vorher mit der Hand die Zellen auf rot, dann funktioniert auch dieser Code!

Code:

Range("I3").Select
START:
If ActiveCell.Value = "" Then Exit Sub
If Selection.Interior.ColorIndex = 3 Then GoTo FÄRBEN:

If Not Selection.Interior.ColorIndex = 3 Then
ActiveCell.Offset(0, 1).Select
End If
GoTo START:
FÄRBEN: ActiveCell.Offset(7, 0).Select

F: If ActiveCell.Value = "x" Then GoTo X:

Selection.Interior.ColorIndex = xlNone
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveCell.Offset(1, 0).Select
GoTo F:

X: ActiveCell.Offset(0, 1).Select
B: ActiveCell.End(xlUp).Select
If ActiveCell.Row = 1 Then
Else: GoTo B:
End If
ActiveCell.Offset(2, 0).Select
GoTo START:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hat jemand eine Idee, was ich ändern müßte, damit die Farbe rot erkannt wird? Wäre echt super von Euch!

Danke schon mal im Voraus für eure Bemühungen!

Lg Walter

:)

Der Steuerfuzzi · 5. Februar 2019

Hallo,

Dein erster Code erstellt eine bedingte Formatierung. Die hat, wenn die Bedingung zutrifft, Vorrang vor einer (einfachen) Zellformatierung. Also entweder Du formatierst nicht mit der bedingten Formatierung, sondern mit einem einfachen Zellenformat. Oder Du entfernst im zweiten Schritt vorher die bedingte Formatierung.

Noch ein Hinweis zur Programmiereung: Select und Goto kann man in 99,9% aller Fälle vermeiden.

Hier mal etwas zu lesen:
Online - Excel Programmierung VBA Makro: Performance (2) - Select Activate Bremsen und ein Beispiel
http://www.herber.de/xlfaq/xlbasics/main_sel.htm

walpla · 6. Februar 2019

Hallo Michael!

Danke für deine Antwort und das Lesematerial! Da muss ich mir was anderes überlegen!

Lg
Walter

Der Steuerfuzzi · 6. Februar 2019

Achso, ich habe vergessen, dass die Farbe aus der bedingten Formatierung nicht mittels Color oder ColorIndex ausgelesen werden kann. Du kannst natürlich in VBA auswerten, ob die Bedingung erfüllt ist, anstatt auf die Farbe zu prüfen.

Wenn Du eine Beispieldatei hier hochlädst, kann man Dir eventuell Alternativen vorschlagen. So ganz verstehe ich nicht, was Du genau machen willst.

Flotter Feger · 6. Februar 2019

Hallo,

dass die Farbe aus der bedingten Formatierung nicht mittels Color oder ColorIndex ausgelesen werden kann.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht ... Range.DisplayFormat.Interior.Color

Office: Zellen einfärben und Schraffieren

Zellen einfärben und Schraffieren

Zellen einfärben und Schraffieren

Zellen einfärben und Schraffieren

Zellen einfärben und Schraffieren - Similar Threads - Zellen einfärben Schraffieren

Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.

Datum (von-bis) Zellen automatisch einfärben

Zelle vergleichen und einfärben

Zelle mit Datumsangabe in Abhängigkeit von benachbarter Zelle einfärben

Zelle mit bedingten Formatierungen zweifarbig einfärben

Wenn Zellen leer, dann Spalte grau einfärben

Bedingte Formatierung - Zellen Einfärben aufgrund bestimmter Text in anderen Zellen