Ich möchte in einem bestimmten Bereich (z.B. B6 - AH22) die Zellen ja nach Eintrag in unterschiedliche Farben färben.
(z.B. U = grün, S = rot usw.)
Danke schon mal
Frank
Ich möchte in einem bestimmten Bereich (z.B. B6 - AH22) die Zellen ja nach Eintrag in unterschiedliche Farben färben.
(z.B. U = grün, S = rot usw.)
Danke schon mal
Frank
Gruß Frank
Gruß Frank
Das lässt sich über ein Worksheet-Change-Ereignis lösen.
Für welchen Bereich soll das Makro gelten?
Welche Eintragungen sollen zu welchen Farben führen?
Gruß Boris
Leere Zellen sollen ein dunkles grau bekommen und Zellen mit einem P ein helles grau.
wenn das deine einzigen beiden Bedingungen sind, dann spricht nun wirklich nichts gegen die bedingte Formatierung.
Für alle im Bereich genannten Zellen folgende Formatierung:
Zellwert ist gleich 0 (Null) und Dunkelgrau als Zellfarbe
Zellwert ist gleich P und hellgrau als Zellfarbe.
Kleine Anmerkung:
Eine leere Zelle ist gleich Null - eine Zelle, die eine Formel enthält, aber keine Anzeige (z.B. =WENN(G1="";"";G1) und daher optisch leer erscheint, ist dagegen ungleich Null.
Gruß Boris
folgendes Beispiel hilft dir vielleicht.
Dim Bereich As Range Set Bereich = ActiveSheet.UsedRange
Code eingefügt mit Syntaxhighlighter 1.14
Sub StartBeiReturn()
Dim Zelle As Range
For Each Zelle In Bereich
Select Case Zelle.Text
Case "U"
Zelle.Interior.ColorIndex = 3 'rot
Case "K"
Zelle.Interior.ColorIndex = 46 'Orange
Case "KS"
Zelle.Interior.ColorIndex = 46 'Orange
Case "EU"
Zelle.Interior.ColorIndex = 4 'Hellgrün
Case "BV"
Zelle.Interior.ColorIndex = 43 'Grün
Case "F"
Zelle.Interior.ColorIndex = 6 'Frühschicht
Case "FS"
Zelle.Interior.ColorIndex = 6 'Frühschicht-Sonntag
Case "S"
Zelle.Interior.ColorIndex = 7 'Spätschicht
Case "N"
Zelle.Interior.ColorIndex = 33 'Nachtschicht
Case "NS"
Zelle.Interior.ColorIndex = 33 'Nachtschicht-Sonntag
End Select
Next Zelle
Selection.Offset(1, 0).Activate
End Sub
Gruß
Bonte
Danke an alle.
Gruß Frank