in einem Sheet wird viel mit bedingter Formatierung gearbeitet. Irgendwann habe ich alle Einstellungen in vba übernommen, das sieht dann bei mir so aus:
' Spalte B, C
Range("B11:C500").Select
Cells.FormatConditions.Delete
Range("B11:C500").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$CLB11=2"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(255, 125, 125)
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
usw.
So werden dann alle bedingten Formatierungen gelöscht und neu geschrieben. Das klappt ganz gut, weil dadurch Kopierfehler etc. vermieden werden. So alle Monate setze ich Formatierungen wieder auf Standard zurück.
Jetzt habe ich eine Anwesenheits-Tabelle, bei der für eine bedingte Formatierung Schriftgröße, fett/kursiv/normal, Schriftfarbe und Ausfüllfarbe festgelegt werden. Die Bedingung ist erfüllt, wenn ein bestimmter Buchstabe in der Zelle steht. Trage ich ein 'U' (für Urlaub) ein, füllt sich die Zelle in grün, das U ist fett und etwas größer, bei 'B' (für z.B. Besprechung) in grau und normaler Größe etc. Das bekomme ich - hoffentlich - alleine hin.
Allerdings sollen diese Angaben nicht feststehen, sondern aus einer "Musterzelle" entnommen werden. Das Makro soll also aus einer Zelle 'Muster!A1' erkennen, dass das U-Feld künftig in Hell-Blau mit kleiner Schrift, aus 'Muster!A2', dass das A-Feld aber in Dunkelblau erscheinen usw.
Ich hoffe, ihr versteht, was ich meine. Der Hintergrund: Kollegen arbeiten in diversen Projekten, die unterschiedliche Aufmerksamkeiten erfordern. Da kam die Anforderung, die jeweils wichtigen Projekte entsprechend in Signalfarben markieren zu können. Es sind so ca. 15 Buchstaben, die vergeben werden können.
Herzlichen Dank für Input sagt
Die Johanna