bedingte Formatierung über mehrere Tabellenblätter
01.07.2015 19:51:21
MB12
leider bin ich nicht sicher, wo ich diese Anfrage einstellen soll; ich muss es auf gut Glück versuchen.
Meine Ausgangslage:
Arbeitsmappe hat ca. 60 sheets mit unterschiedlichen Namen, aber gleicher Struktur
Ich benötige für ca. 30 dieser Blätter zwei bedingte Formatierungen.
In Blatt A habe ich testweise ein Makro mit diesen bedingten Formatierungen (beide mit Formel) aufgezeichnet
Das erste sieht so aus:
Sub gold()
' gold Makro
' Tastenkombination: Strg+x
Range("A3:H520").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$D3=""x"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 7470078
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Wie kann ich es ändern und auf weitere Blätter anwenden(z.B. Fertigung, Montage, Inbetriebnahme)? Eine Lösung wäre für mich eine große Arbeitserleichterung
Viiielen Dank im Voraus für Eure Unterstützung.
Margarete