Office: Bedingte Formatierung auf jedem Tabellenblatt ändern

Hias · 13. November 2017

Hallo zusammen,

Ich habe in meinen ExcelSheet ca. 500 Blätter. In jedem Blatt ist die Zelle I8:J9 formatiert, so dass bei bestimmten Textinhalt die Farbe der Zelle sich ändert.

Da sich ein paar Textinhalte geändert haben, habe ich versucht per makro erst durch alle Blätter durchzulaufen und alle Formatierungen zu löschen
und dann mit dem zweiten Makro neue Formatierungen zu setzen.

Leider hat es nicht funktioniert *frown.gif* Weder die Formate löschen noch neue zu vergeben.

Hat wer Tipps für mich, was ich falsch gemacht habe?

Vielen Dank im Voraus
und Grüße
Hias

Code:

Sub BedingteFormatierunglöschen()

Dim shBlatt As Worksheet

For Each shBlatt In ActiveWorkbook.Sheets

Range("I8:J9").Select
Cells.FormatConditions.Delete

Next shBlatt

End Sub

Sub BedingteFormatierungzuweisen()

Dim shBlatt As Worksheet

For Each shBlatt In ActiveWorkbook.Sheets

Range("I8:J9").Select
'In Reparatur = Orange
Selection.FormatConditions.Add Type:=xlTextString, String:="In Reparatur", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'Freigegeben = Grün
Selection.FormatConditions.Add Type:=xlTextString, String:="Freigegeben", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'Nicht freigegeben = rot
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"Nicht freigegeben", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'Bei Kalibrierung = rot
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"Bei Kalibrierung", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'Ausgemustert = Grau mit roter Schrift
Selection.FormatConditions.Add Type:=xlTextString, String:="Ausgemustert", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'Ausgeliehen an = Gelb
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"Ausgeliehen an:", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'In Planung = Blau
Selection.FormatConditions.Add Type:=xlTextString, String:="In Planung", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -4165632
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'Nicht auffindbar = Blaugrau
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"Nicht auffindbar", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False

Next shBlatt

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

hary · 14. November 2017

Moin
Dir fehlt die Blattzuweisung der Range.
Ungetestet!
Code:

Sub BedingteFormatierunglöschen()

Dim shBlatt As Worksheet

For Each shBlatt In ActiveWorkbook.Sheets

shBlatt.Range("I8:J9").FormatConditions.Delete

Next shBlatt

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und statt selection nimm eine with Anweisung.
Code:

Sub BedingteFormatierungzuweisen()

Dim shBlatt As Worksheet

For Each shBlatt In ActiveWorkbook.Sheets

With shBlatt.Range("I8:J9")
'In Reparatur = Orange
.FormatConditions.Add Type:=xlTextString, String:="In Reparatur", _
TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
'Freigegeben = Grün
.FormatConditions.Add Type:=xlTextString, String:="Freigegeben", _
TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
'Nicht freigegeben = rot
.FormatConditions.Add Type:=xlTextString, String:= _
"Nicht freigegeben", TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
'Bei Kalibrierung = rot
.FormatConditions.Add Type:=xlTextString, String:= _
"Bei Kalibrierung", TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
'Ausgemustert = Grau mit roter Schrift
.FormatConditions.Add Type:=xlTextString, String:="Ausgemustert", _
TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
'Ausgeliehen an = Gelb
.FormatConditions.Add Type:=xlTextString, String:= _
"Ausgeliehen an:", TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
'In Planung = Blau
.FormatConditions.Add Type:=xlTextString, String:="In Planung", _
TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Color = -4165632
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
'Nicht auffindbar = Blaugrau
.FormatConditions.Add Type:=xlTextString, String:= _
"Nicht auffindbar", TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599963377788629
End With
.FormatConditions(1).StopIfTrue = False

End With
Next shBlatt

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Hias · 15. November 2017

Hallo Harry,

vielen Dank, es hat beim ersten Mal einwandfrei funktioniert!

Wieder etwas dazu gelernt!

Grüße Hias

Office: Bedingte Formatierung auf jedem Tabellenblatt ändern

Bedingte Formatierung auf jedem Tabellenblatt ändern

Bedingte Formatierung auf jedem Tabellenblatt ändern

Bedingte Formatierung auf jedem Tabellenblatt ändern - Similar Threads - Bedingte Formatierung Tabellenblatt

"Bedingte Formatierung" durch kopieren und verschieben "zerpflückt"?

Bedingte Formatierung funktioniert nicht

Externe Mails mit bedingter Formatierung farbig hervorheben

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

(Access) bedingte Formatierung im Textfeld funktioniert nicht

bedingte Formatierung über mehrere Tabellenblätter

Bedingte Formatierung mit Bezug auf anderes Tabellenblatt