Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

"Entf" auschalten und Meldung an den User?

"Entf" auschalten und Meldung an den User?
29.06.2004 08:16:34
Mandy
Hallo,
ich habe in einem bestimmten Bereich die "Entf"-Taste mit
folgendem Code ausgeschalten:


Sub Entf
If Not Intersect(Target, Tabelle2.Range(BEREICH_POPUP)) Is Nothing Then
Application.OnKey "{del}", ""
Else
Application.OnKey "{del}"
End If
End Sub

Das klappt super, nur möchte ich, dass bei der Benutzung der "entf"-
Taste eine Meldung kommt, dass der User im Menü Auswählen den Unter-
punkt Entfernen oder im Popupmenü nutzen soll.
Wie stelle ich das am Besten an?
Gruß Mandy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "Entf" auschalten und Meldung an den User?
Josef
Hallo Mandy!
Diese Codes jeweils an der richtigen stelle sollten es tun.
'DieseArbeitsmappe

Private Sub Workbook_Deactivate()
Application.OnKey "{del}"
End Sub

'Tabelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Tabelle2.Range(BEREICH_POPUP)) Is Nothing Then
Application.OnKey "{del}", "meinMakro"
Else
Application.OnKey "{del}"
End If
End Sub

'Allgemeines Modul
Sub meinMakro()
MsgBox "Die Entfernen-Taste ist ohne Funktion"
End Sub
Gruß Sepp
Anzeige
Supi Sepp, funktioniert - Danke!
29.06.2004 09:01:53
Mandy
Supi Sepp,
das klappt ja wunderbar.
Gruß Mandy

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige