Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Tomschi vom 18.06.2020, 12:25 Options
vor dem Löschen/Überschreiben warnen
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
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 vom 18.06.2020, 16:33 OptionsLösung
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 vom 19.06.2020, 07:08 Options
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
Ähnliche Themen
Datum überschreiben
morpheus__85 24.10.2007 - 80 Hits - 2 Antworten
Wie kann man Firefox aus Windows XP komplett löschen ?
Jonny25493 10.02.2008 - 172 Hits - 4 Antworten
festplatte komplett löschen win xp, bios: phoenix 1.09
NickKnatterton 25.03.2008 - 51 Hits - 5 Antworten
Papierkorb überschreiben
damaduende 02.06.2008 - 53 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
