Vor überschreiben warnen
17.01.2018 10:47:17
Sven
ich habe hier im Forum folgenden Code gefunden der auch einwandfrei funktioniert.
Besteht dabei die Möglichkeit das auf einen bestimmten Bereich einzugrenzen (B5:I12)?
Option Explicit ' Code geändert
Public OldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim mld 'Code geändert
If OldValue "" Then
mld = MsgBox("Warnung, Sie haben einen Wert überschrieben", 17)
If mld = 2 Then
Application.EnableEvents = False
Target = OldValue
Application.EnableEvents = True 'Code geändert
End If
ElseIf Target = "" Then 'Code geändert
Exit Sub 'Code geändert
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not IsEmpty(Target) Then
OldValue = Target
Else
OldValue = ""
End If
End Sub
Gruß Sven