geänderte Zelle finden
13.06.2007 15:26:04
Ellen
ich benutze untenstehenden Worksheet_Change-Code.
Folgendes will ich damit bewirken:
- steht in der geänderten Zelle der Wert "n/a", so soll diese Zelle grün werden
- in den Zellen 3 bis 999 in Spalte D steht eine Formel, ändert sich hier der Wert auf "transfer not released" so soll diese Zelle in Spalte D die Farbe gelb bekommen
Dies funktioniert soweit auch, nur möchte ich nach der Aktion falls in D die Zelle gelb markiert wird, dass wieder in die Zelle gesprungen wird, die eigentlich geändert wurde.
Wie kann ich also die Zelle ausfindig machen in der ich den Wert manuell geändert habe?
Grüße,
Ellen
Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
For Each rngCell In Target
Select Case rngCell.Value
Case ""
rngCell.Interior.ColorIndex = 2 'keine Farbe --> leer
Case "n/a"
rngCell.Interior.ColorIndex = 4 'grün
End Select
Next rngCell
For i = 3 To 999
If Cells(i, 4).Value = "transfer not released" Then
Cells(i, 4).Select
With Selection.Interior
.ColorIndex = 6
End With
End If
Next i
End Sub