Bei Änderung auf Tab.-Blatt Code ausführen
23.02.2004 20:18:05
Siddika
ich hoffe, mir kann ein netter Mensch helfen. Ich habe eine Abfrage auf einem Tabellenblatt vor, bei der eine Zeile farblich markiert wird.
Wenn in Spalte A in einer Zeile mit Inhalt (irgendwo steht was) eine 1 steht, soll sie mit einer definierten Farbe markiert werden. Bei einer 2 mit einer anderen Farbe usw.
Inbsgesamt habe ich sieben If-Abfragen und eine Routine mit Zeilen-Zählen.
ABER: Wenn ich nun auf dem Blatt eine 4 in eine Zeile schreibe, passiert nüscht!
Wie schreibe ich den VBA-Code so, dass automatisch bei einem Eintrag in Spalte A der Code ausgeführt wird?
Gruß, Siddika
Private Sub Worksheet_Change(ByVal Target As Range)
x = 5
Do Until Application.WorksheetFunction.CountBlank(Rows(x)) = 256
If Worksheets(1).Cells(x, 1) = "1" Then
Range(x, 2, [x, 14]).Interior.ColorIndex = xlNone
ElseIf Worksheets(1).Cells(x, 1) = "2" Then
Range(x, 2, [x,14]).Interior.ColorIndex = 36
ElseIf Worksheets(1).Cells(x, 1) = "3" Then
Range(x, 2, [x,14]).Interior.ColorIndex = 34
ElseIf Worksheets(1).Cells(x, 1) = "4" Then
Range(x, 2, [x,14]).Interior.ColorIndex = 40
ElseIf Worksheets(1).Cells(x, 1) = "5" Then
Range(x, 2, [x,14]).Interior.ColorIndex = 38
ElseIf Worksheets(1).Cells(x, 1) = "6" Then
Range(x, 2, [x,14]).Interior.ColorIndex = 39
ElseIf Worksheets(1).Cells(x, 1) = "7" Then
Range(x, 2, [x,14]).Interior.ColorIndex = 35
End If
x = x + 1
Loop
End Sub
Anzeige