Wenn beschriebene Zellen bearbeitet werden dannBef
14.02.2015 17:19:30
Chip
Hallo Zusammen,
folgendes Makro führt zu einer kleinen Sicherheitsabfrage:
Option Explicit
Public OldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:W")) Is Nothing Then
MsgBox "Sind Sie sich sicher, dass Sie die Zelle bearbeiten wollen?", vbQuestion, "Achtung"
End If
End Sub
Vielen Dank schon einmal! :)
Anzeige