ich erstelle gerade eine Task Liste für einen Monatsabschluss, in welchem die Benutzer den über ein Scroll down Menü den Wert "Open", "Ongoing" oder "Closed" auswählen können.
Wenn der Zellwert einmal auf Closed gesetzt wurde, soll eine Warnung erscheinen, wenn der User den Zellwert wieder zurück auf "open" oder "ongoing" setzt.
Ich nutze dazu das Makro unten. Dieses bezieht sich allerdings auf alle Änderungen in der Spalte. Wie bekomme ich das hin, dass eine Meldung nur dann erscheint, wenn der Wert von Closed zurück auf Open oder Ongoing zurückgesetzt wird?
Vielen herzlichen Dank für eure Hilfe!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim closed As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("q10:q1000")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Display a message when one of the designated cells has been
' changed.
' Place your code here.
MsgBox "Cell " & Target.Address & " has changed."
End If
End Sub