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
Das Makro funktioniert schon ganz gut, allerdings möchte ich es ein wenig anpassen. Es soll nur eine Textbox erscheinen, wenn eine bereits beschriebene Zelle bearbeitet wird. Bei Bearbeitung leerer Felder soll also keine Textbox erscheinen.Vielen Dank schon einmal! :)