Habe folgenden Code erhalten. Er warnt mich aber auch wenn ich leere Zellen überschreibe.
Vielen Dank im vorraus. Speziell an Harald
Option Explicit ' Code geändert
Public OldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim mld 'Code geändert
If Not IsEmpty(Target) 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
End If
End Sub