| VBA-Code: | ||
| Sub Workbook_Open() 'Code in DieseArbeitsmappe! Application.OnKey "{DEL}", "Entfernen" End Sub Sub Entfernen() 'Code in ein Modul! MsgBox "Taste Entfernen wurde gedrückt" End Sub Gruß Jürgen
Bla Bla Del Bla Bla....
NoNet
Hallo rofu, kopiere dazu folgenden Code in ein allgemeines Modul (z.B. "Modul1") :
|
| VBA-Code: |
| Sub ENTF_Aktivieren() 'Bei Betätigen der ENTF-Taste wird Makro "Bla" ausgeführt : Application.OnKey "{del}", "bla" End Sub Sub ENTF_Deaktivieren() 'Bie Betätigen der ENTF-Taste wird kein Makro ausgeführt = STANDARD ! Application.OnKey "{del}" End Sub Sub Bla() MsgBox "Bla" End Sub Beachte, dass dadurch das Standard-Verhalten der ENTF-Taste verändert wird ! Gruß, NoNet
mit Application.OnKey
Matthias
Hallo Application.OnKey "{DEL}", "los"
AW: mit Application.OnKey
JogyB
Hi. Vorsicht: Wenn so zurückgesetzt wird, dann wird beim Tastendruck gar nichts gemacht. Das kann aber unewünscht sein, wenn die Taste eine Standardfunktion in Excel hat (z.B. F1 für den Aufruf der Hilfe). Daher das , "" beim Zurücksetzen weglassen um den Standard wiederherzustellen. Gruss, Jogy
! Danke !
Matthias
Hallo Daran hatte ich gar nicht gedacht. Vielen Dank für die Richtigstellung Gruß Matthias
AW: Danke, OK!
rofu
DANKE,OK gruß rofu |
Private Sub Workbook_Open()
Application.OnKey "{DEL}", "los" 'bei Tastaturanschlag Makro zuweisen
End Sub
Sub rst()
Application.OnKey "{DEL}", "" 'zurücksetzen
End Sub
in einem Modul
Sub los()
MsgBox "hurra es klappt"
End Sub
Auf jeden Fall solltest Du die Zuweisung des Makro auf die Entf.Taste wieder zurücksetzen.
Wann Du das machst, ist Dir überlassen.
Am besten natürlich nur auf das entsprechende Blatt beschränken
also beim Activate des Blattes zuweisen
und beim Deaktivate wieder zurücksetzen.
spätestens beim Schließen der Datei zurücksetzen !
Gruß Matthias
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Kopiere den folgenden VBA-Code in das Modul:
Sub Workbook_Open()
Application.OnKey "{DEL}", "Entfernen"
End Sub
Sub Entfernen()
MsgBox "Die DEL-Taste wurde gedrückt"
End SubSchließe den VBA-Editor und teste das Makro, indem du die DEL-Taste drückst.
Problem: entf taste funktioniert nicht.
Problem: Das Standardverhalten der DEL-Taste wurde verändert.
Sub Zuruecksetzen()
Application.OnKey "{DEL}"
End SubDu kannst die DEL-Taste auch auf andere Makros zuweisen oder sie in spezifischen Blättern aktivieren. Hier ein Beispiel:
Sub ENTF_Aktivieren()
Application.OnKey "{DEL}", "MeinMakro"
End Sub
Sub MeinMakro()
MsgBox "Mein Makro wurde ausgeführt"
End SubDenke daran, die Zuweisung beim Deaktivieren des Blattes zurückzusetzen.
Beispiel 1: Makro für das Löschen von Inhalten in einer bestimmten Zelle:
Sub LoeschenInhalt()
ActiveCell.ClearContents
End SubBeispiel 2: Makro zur Formatierung einer Tabelle:
Sub TabelleFormatieren()
With Selection
.Font.Bold = True
.Interior.Color = RGB(255, 255, 0) ' Gelb
End With
End SubApplication.OnKey sparsam, da es das Standardverhalten der entf taste beeinflusst. Setze die Zuweisung immer zurück, wenn das Makro nicht mehr benötigt wird.1. Was ist die DEL-Taste?
Die DEL-Taste, auch als Entfernen-Taste bekannt, wird häufig verwendet, um Inhalte in Excel zu löschen.
2. Wo ist die DEL-Taste auf der Tastatur?
Die DEL-Taste befindet sich in der Regel oben rechts auf der Tastatur, neben der End- und PgUp-Taste.
3. Welche Taste ist ENTF?
Die ENTF-Taste ist die gleiche wie die DEL-Taste und hat in Excel die Funktion, ausgewählte Inhalte zu entfernen.
4. Wie kann ich die Zuweisung der DEL-Taste zurücksetzen?
Verwende den folgenden VBA-Code, um die Zuweisung der DEL-Taste zurückzusetzen:
Sub Zuruecksetzen()
Application.OnKey "{DEL}"
End Sub