bedingte formatierung per script - problem beim au
jojo
für eine fehlzeitenerfassung benötige ich eine tabelle in der sich durch eingabe bestimmter Buchstaben zellen in Füllfarbe ändern. Dank dem Forum konnte ich folgendes script erfolgreich einsetzen:
Private Sub Worksheet_calculate()
Dim Target1 As Range
For Each Target1 In Range("G6:DF28")
If Not Target1 = "0" Or Target1 = "A" Or Target1 = "K" Or Target1 = "G" Or Target1 = "P" _
_
Or Target1 = "F" Or Target1 = "Y" Or Target1 = "X" Then Target1.Interior.ColorIndex = 0
Select Case Target1
Case "0"
Target1.Interior.ColorIndex = 16
Target1.Font.ColorIndex = 16
Case "A"
Target1.Interior.ColorIndex = 4
Case "K"
Target1.Interior.ColorIndex = 6
Case "G"
Target1.Interior.ColorIndex = 36
Case "P"
Target1.Interior.ColorIndex = 37
Case "F"
Target1.Interior.ColorIndex = 3
Case "X"
Target1.Interior.ColorIndex = 20
Target1.Font.ColorIndex = 20
Case "Y"
Target1.Interior.ColorIndex = 15
Target1.Font.ColorIndex = xlColorIndexNone
End Select
Next
End Sub
das script soweit funktioniert ganz gut, nur möchte ich wie vielleicht ersichtlich die mit x oder y gefüllten zellen lediglich einfärben, ohne das man den buchstaben sieht. Das funktioniert auch, leider jedoch nicht im ausdruck. dort werden die buchstaben mit angezeigt.
Vielen Dank für jede Hilfe!
J.Faubel
Anzeige