Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Entfernen/Löschen abfangen

Entfernen/Löschen abfangen
09.05.2005 15:26:26
Stefan
Hallo zusammen,
ich möchte gern das nachdem die Del-Taste gedrückt wird und
bevor der Zellinhalt gelöscht wird, eine Abfrage (Msgbox)
erscheint, ob wirklich gelöscht werden soll.
Die Schwierigkeit ist sicherlich, denn Zellinhalt wieder
herzustellen.
Danke für Eure Mühe.
Gruß Stefan

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Entfernen/Löschen abfangen
09.05.2005 16:04:25
Herbert
Mit Application.Onkey die Funktion der DEL-Taste umlegen.
Es gibt aber noch mehr Möglichkeiten zu löschen.
mfg Herbert
AW: Entfernen/Löschen abfangen
09.05.2005 16:20:46
Stefan
Hallo Herbert, danke für Deinen Beitrag.
Kannst Du bitte aufgrund meinesVBA-Status die Sache mit
Onkey etwas genauer ausführen. Da habe ich total keine
Ahnung wie das mit dem umleiten geht.
Danke und Gruß
Stefan
AW: Entfernen/Löschen abfangen
09.05.2005 16:29:06
Herbert
'In das Modul von "DieseArbeitsmappe"
Option Explicit

Private Sub Workbook_Open()
Application.OnKey "{DEL}", "MakromitRueckfrage"
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DEL}"
End Sub

'#############################################################
'In ein Standardmodul:
Option Explicit
Sub MakromitRueckfrage()
Dim m As Integer
m = MsgBox("Wirklich löschen?", 36, "Löschabfrage")
If m = 6 Then Selection.ClearContents
End Sub
mfg Herbert
Anzeige
AW: Entfernen/Löschen abfangen
09.05.2005 16:32:18
Stefan
Herzlichen Dank, vor allem für die rasche Antwort.
Werde ich gleich mal ausprobieren.
Gruß Stefan
AW: Entfernen/Löschen abfangen
09.05.2005 16:35:12
Herbert
Das funzt aber so nur für Zellen, bei Objekten wirds dann komplizierter.
mfg Herbert
AW: Entfernen/Löschen abfangen
09.05.2005 17:47:28
Andi
Hi,
so geht's bei allen Lösch-Möglichkeiten, nicht nur bei der Del-Taste:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then Exit Sub
Select Case MsgBox("wirklich löschen?", vbYesNo)
Case vbYes
Exit Sub
Case vbNo
Application.Undo
End Select
End Sub

Code in's Modul des Tabellenblattes.
Schönen Gruß,
Andi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige