Supportnet / Forum / Tabellenkalkulation
vor dem Löschen/Überschreiben warnen
Frage
Mahlzeit!
Folgende Problemstellung beschäftigt mich:
Wenn ein Eintrag in einer Zelle gelöscht bzw. überschrieben wird soll vorher eine Warnung erscheinen.
Der User muss dann entscheiden, ob er den vorhandenen Wert beibehalten möchte, oder ob dieser durch die neue Eingabe ersetzt werden soll.
Hat dazu jemand einen Denkanstoß für mich?
(Excel2000 + Excel2003)
Bei den Eingaben kann es sich sowohl um einen Text, als auch um Ziffern handel. Somit fällt die Gültigkeitsprüfung flach, oder?
Weiters ist der Zellschutz hier wohl auch nicht angebracht, da eine Veränderung der vorhanden Werte möglich sein soll.
Bye
Tom
Antwort 1 von Hajo_Zi
Hallo Tom,
der Vorteil von so allgemeinen Aufgaben ist, man bekommt auch allgemeine Antworten.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If MsgBox("Wollen Sie den Zelle wirklich verändern!!.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbNo Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Gruß Hajo
der Vorteil von so allgemeinen Aufgaben ist, man bekommt auch allgemeine Antworten.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If MsgBox("Wollen Sie den Zelle wirklich verändern!!.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbNo Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Gruß Hajo
Antwort 2 von Tomschi
Wunderschönen guten Morgen!
Hajo, vielen Dank für Deine Antwort!
Du hast mir sehr, sehr weitergeholfen.
Ich habe jetzt noch ein
If Intersect([A1:A15], Target) Is Nothing Then Exit Sub
eingefügt und das Makro läuft so wie ich es mir vorstelle.
Weiters habe ich dank Deines Codes gelernt, dass man die Msgbox nicht unbedingt mit einer Variable verknüpfen muss, sondern gleich direkt mit "=vbno" abfangen kann.
DANKE!
Ciao
Tom
Hajo, vielen Dank für Deine Antwort!
Du hast mir sehr, sehr weitergeholfen.
Ich habe jetzt noch ein
If Intersect([A1:A15], Target) Is Nothing Then Exit Sub
eingefügt und das Makro läuft so wie ich es mir vorstelle.
Weiters habe ich dank Deines Codes gelernt, dass man die Msgbox nicht unbedingt mit einer Variable verknüpfen muss, sondern gleich direkt mit "=vbno" abfangen kann.
DANKE!
Ciao
Tom