Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Entfernen/Löschen abfangen

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige