Hilfe Vba Funktion
Spitz
ich habe ein Problem, also vorweg, ich kenne mich nicht sehr gut aus mit Excel.
Also zu meinem Problem:
Ich erstelle gerade eine Tabelle, in einer Spalte davon, also G soll die Dringlichkeit des Problems stehen, dabei gibt es drei Kategorien: Detail, normal, Dringend. Diese Spalte ist mit einer Gültigkeitsprüfung versehen. Die nächste Spalte also H umfasst den Status des Problems, hier gibt es vier Möglichkeiten: erledigt, in Bearbeitung, unerledigt und unerledigt bei den normalen und detail problemen.
Diese vier Kriterien haben ebenfalls eine Gültigkeitsprüfung.
Ich habe im Internet folgende Formel gefunden:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H1:H500")) Is Nothing Then Exit Sub
Dim rngZelle As Range, strText As String
Select Case Target.Value
Case "solved"
Target.Interior.ColorIndex = 4
Case "process"
Target.Interior.ColorIndex = 27
Case "unsolved"
Target.Interior.ColorIndex = 30
Case "unsolved (reg or details)"
Target.Interior.ColorIndex = 46
Case ""
Target.Interior.ColorIndex = 0
End Select
End Sub
Viele Grüße
Jenny