Farbliche Markierung ändern...
30.04.2003 17:05:43
Harti
Den folgenden Code habe ich hier im Forum (irgendwo)ergattert.
Meine Frage nun, ob man den Code so abändern kann, dass er nur für die A-Spalte gilt und wenn dort z.B. der Wert Text1 erscheint, dass dann die Formatierung von A1 bis F1 geht.
Ich hoffe, ich habe mich einigermassen verständlich ausgedrückt.
Jetzt würde ja nur das Feld mit dem Wert Text1 rot gefärbt; es soll dann aber auch bis F1 alles rot eingefärbt werden (egal was in den anderen Feldern steht).
Dank' schon mal...Harti
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sa As Boolean 'Schriftart
Dim sf As Byte 'Schriftfarbe
Dim hg As Byte 'Hintergrundfarbe
Select Case Target.Value
Case Is = "Text1"
sa = True
sf = 1
hg = 3
Case Is = "Text2"
sa = True
sf = 2
hg = 5
Case Is = "Text3"
sa = True
sf = 1
hg = 6
Case Is > 100
sa = True
sf = 3
hg = 0
Case Else
sa = False
sf = 1
hg = 0
End Select
With Target
.Font.Bold = sa
.Font.ColorIndex = sf
.Interior.ColorIndex = hg
End With
End Sub
Anzeige