Zellen mit bestimmten Inhalt einfärben (mit VBA?)
Thomas Otto
ich möchte gern einige Zellen automatisch Formatieren
lassen. Leider sind meine 3 bedingten Formatierungen schon
vergeben. Gibt es ein paar einfache VBA Zeilen die man für
diese Sache Einsetzen kann ( kann nicht großartig VBA)
Zb. Färbe die Zellen der Spalten E und F blau in der in
Spalte E "Angebot" steht -> usw... für beauftragt,
beendet ,....
E------------------E
Angebot----------569,33
Beauftragt---458.980,00
Beendet--------5.556,20
Danke im Voraus
Thomas
Herbert Taferner
Bereich eventuell anpassen
hier z. B. E1:E5000
E genügt er färbt die Zelle rechts davon auch
rechtsklick auf Tabellenregister
Code Anzeigen wählen
in das erscheinende Fenster dies einfügen
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich
Set Bereich = [E1:E5000]
Application.ScreenUpdating = False
If Intersect(Target, Bereich) Is Nothing Then
Else
Select Case Target.Value
Case Is = "Angebot", "angebot"
Target.Interior.ColorIndex = 33
Target.Offset(0, 1).Interior.ColorIndex = 33
Case Is = "Beauftragt", "beauftragt"
Target.Interior.ColorIndex = 43
Target.Offset(0, 1).Interior.ColorIndex = 43
Case Is = "Beendet", "beendet"
Target.Interior.ColorIndex = 48
Target.Offset(0, 1).Interior.ColorIndex = 48
End Select
End If
Application.ScreenUpdating = True
End Sub
'--------------------------------------
Editor wieder schließen und losgehts
bei nichtgefallen der Farben einfach ein wenig
durchtesten
1 = schwarz,
2 = weiß
von
3 = rot
bis
56 = Grau 80%
mfg Herbert