ich bin VBA Neueinsteiger und benötige eure Hilfe :)
Auf meinem Arbeitsblatt soll eine Auswahl an Zellen überwacht werden.
Je nachdem was dort eingetragen wird soll eine Aktion durchgeführt werden.
In meinem Beispiel gibt es eine Nachricht "xyz" wenn eine "1" eingetragen wird.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A26:CD26")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range(Target.Address).Activate
If ActiveCell = "1" Then
MsgBox "xyz"
End If
End If
End Sub
Soweit klappt das bei mir auch.
Jetzt soll die Nachricht "xyz" zusätzlich durch den vorherigen Wert der Zelle bedingt sein.
Zum Beispiel soll Sie nur erscheinen, wenn der alte Zellwert "x" war und der neue Zellwert "1" ist.
Wie kann ich den Vergleich mit dem alten Zellwert realisieren?
Danke schon mal für die Hilfe!
Grüße, Jonas