Farbe in Nachbarspalte
Timonski
hab bis jezt folgendes Makro, welches mir den text und die hintergrundfarbe ändert...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim Bereich As Range
Dim rngZelle As Range
Set Bereich = ActiveSheet.Range("K10:K20")
For Each rngZelle In Bereich
Select Case rngZelle.Value
Case "Strom"
rngZelle.Interior.ColorIndex = 38
rngZelle.Font.ColorIndex = 38
Case "Gas"
rngZelle.Interior.ColorIndex = 40
rngZelle.Font.ColorIndex = 40
Case Else
rngZelle.Interior.ColorIndex = xlNone '15
rngZelle.Font.ColorIndex = xlNone
End Select
Next
End Sub
in der sollte dann das Symbol "■" stehn mit der entsprechende Farbe...
(Symbol kann ja schon drin stehen... brauch ja nur die Farbe ändern...)
wäre das möglich?
Danke
timonski
Anzeige