da die "Bedingte Formatierung" nur wenig Auswahlmöglichkeit bietet, hab ich als Ersatz folgenden Code:
Sub StartFarben()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.UsedRange
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 'Gelb
Case "FS"
Zelle.Interior.ColorIndex = 6 'Gelb
Case "S"
Zelle.Interior.ColorIndex = 38 'Hellrosa
Case "N"
Zelle.Interior.ColorIndex = 33 'Himmelblau
Case "NS"
Zelle.Interior.ColorIndex = 33 'Himmelblau
Case "BF"
Zelle.Interior.ColorIndex = 48 'Grau
Case ""
Zelle.Interior.ColorIndex = 0 'Weiss
Case "0"
Zelle.Interior.ColorIndex = 0 'Weiss
End Select
Next Zelle
Selection.Offset(1, 0).Activate
End Sub
wenn in der Zelle "nichts" oder "0" steht, ist der Hintergrund weiss, und genau hier liegt mein Problem, wenn ich diese Zellen aber trotzdem mit der Hand färben möchte, funktioniert das nicht. Jetzt meine Frage, wenn man diesen Code auf einige Spalten beschränken könnte, (liegen leider nicht nebeneinander) und bei den anderen Spalten diese Formatierung nicht zutrifft, dann wäre das super. Geht das?
Vielen Dank im vorraus + schönes WE noch
wünscht
Gerhard S.