Supportnet / Forum / Tabellenkalkulation
Excel: Listenfeld, das die Farbe ändern kann?
Frage
Hallo,
ich benötige für eine Excel-Tabelle eine Funktion, die bei Auswahl (Eingabe) von vorgegebenen Begriffen, das entsprechende Feld farblich mit anpasst.
Da ich 7 verschiedene Begriffe habe, komme ich mit der bedingten Formatierung nicht aus.
Die Tabelle hat ca. 150 Zeilen und ich benötige es als Status in jeder Zeile.
Wer hat eine Idee, wie sich das einfach darstellen lässt (am Besten ohne dass man jedes Mal einen Befehlsbutton aktivieren muss)?
Danke
sunnyshine
Antwort 1 von nighty
hi sunny :)
hier einige moeglichkeiten :)
gruss nighty
einzufuegen unter alt f11(vbeditor)/projektexplorer/tabelle alternativ mappe
Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
With Worksheet
Rem rgb,bei mehreren kopieren/einfuegen begriff aendern
If Target.Value = "name0" Then Cells(Target.Row, Target.Column).Interior.Color = RGB(255, 255, 0)
Rem farbindex der palette bei mehreren kopieren/einfuegen begriff aendern
If Target.Value = "name1" Then Cells(Target.Row, Target.Column).Font.ColorIndex = 6
End With
Application.EnableEvents = True
End
fehler:
Application.EnableEvents = True
End Sub
hier einige moeglichkeiten :)
gruss nighty
einzufuegen unter alt f11(vbeditor)/projektexplorer/tabelle alternativ mappe
Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
With Worksheet
Rem rgb,bei mehreren kopieren/einfuegen begriff aendern
If Target.Value = "name0" Then Cells(Target.Row, Target.Column).Interior.Color = RGB(255, 255, 0)
Rem farbindex der palette bei mehreren kopieren/einfuegen begriff aendern
If Target.Value = "name1" Then Cells(Target.Row, Target.Column).Font.ColorIndex = 6
End With
Application.EnableEvents = True
End
fehler:
Application.EnableEvents = True
End Sub
Antwort 2 von Druido
Hi Sunny,
Oder du baust nach der if Anweisung von >nighty< eine "Select Case" Anweisung mit ein.
Gruß
Druido
Oder du baust nach der if Anweisung von >nighty< eine "Select Case" Anweisung mit ein.
Gruß
Druido
Antwort 3 von sunnyshine
muss noch ein bisschen probieren, ob mir das weiterhilft.
DANKE
sunnyshine
DANKE
sunnyshine

