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