vorherigen Zellinhalt Ermitteln

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Const sWatchRange = "A26:CD26" Dim vOldValue As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errExit If Not Intersect(Target, Range(sWatchRange)) Is Nothing Then Application.EnableEvents = False If Target.Count > 1 Then MsgBox "Bitte nur 1 Zelle gleichzeitig ändern!", vbCritical, "Mehrfachbereich" Application.Undo Else If Target = 1 And vOldValue = "x" Then ' Dein Code MsgBox "xyz" End If End If End If errExit: Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range(sWatchRange)) Is Nothing Then If Target.Count > 1 Then MsgBox "Bitte nur 1 Zelle gleichzeitig selektieren!", vbCritical, "Mehrfachbereich" Target.Cells(1, 1).Select Else vOldValue = Target End If End If End Sub

Hallo Jonas,
im Prinzip kann man das durch Speichern des Wertes nach der Selektion der Zelle erreichen.
Probleme kann es geben bzw. es funktioniert nicht, wenn eine Zelle in A26:CD26 direkt nach dem Öffnen der Datei geändert wird, ohne vorher eine Zelle zu selektieren.
Günstiger wäre es wenn du die "alten" Werte in einer separaten Zeile eingeben würdest, dann könnte man nach meiner Einschätzung die logische Abfolge der Werte einfacher im Code verarbeiten.
Gruß
Franz

Private oldValue As Variant 'Merker für den alten Wert der Zellen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A26:CD26")
If Not Application.Intersect(KeyCells, Target) _
Is Nothing And Target.Cells.Count = 1 Then
Application.EnableEvents = False
Select Case Target.Value
Case ""
'Es gab keinen vorherigen Wert, Zelle ist leer
Case 1
Select Case oldValue
Case "x", "X"
MsgBox "1 & x -- xyz"
Case "y", "Y"
MsgBox "1 & y -- ABC"
Case Else
MsgBox "unzulässige alter Wert """ & oldValue & """ für ""1"""
End Select
Case 2
Select Case oldValue
Case "x", "X"
MsgBox "2 & x -- ZYX"
Case "y", "Y"
MsgBox "2 & y -- cab"
Case Else
MsgBox "unzulässige alter """ & oldValue & """ Wert für ""2"""
End Select
Case Else
'andere Eingabewerte
End Select
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A26:CD26")
If Not Application.Intersect(KeyCells, Target) _
Is Nothing And Target.Cells.Count = 1 Then
oldValue = Target.Range("A1").Value
Else
oldValue = Null
End If
End Sub

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread