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

Forumthread: KeyAscii "Enter"

KeyAscii "Enter"
manu
Hallo zusammen,
ich versuche gerade dass wenn ich "Enter" auf meiner Tastatur drücke, meine Makros unter VBA ausgeführt werden.
Als ich vor langer Zeit mal programmiert habe, da ging das über "if keyascii = 13 then..."
aber wenn ich das jetzt versuche, dann klappt das nicht mehr.
Weiß da einer von euch etwas Genaueres?
LG
Manu
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: KeyAscii "Enter"
17.02.2010 12:20:41
Tino
Hallo,
kann man so erreichen.
kommt als Code in Tabelle
Option Explicit 
 
Private Declare Function GetAsyncKeyState Lib "user32" _
        (ByVal vKey As Long) As Integer 
         
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If GetAsyncKeyState(vbKeyReturn) <> 0 Then 
        MsgBox "Enter wurde gedrückt" 
    End If 
End Sub 
Gruß Tino
Anzeige
AW: KeyAscii "Enter"
17.02.2010 12:28:12
manu
uiuiui...da hab ich meine Schwierigkeiten mit...
wie soll das gehen?
Aus meinen Versuchen ist nichts geworden...
Kannst du mir da nochmal etwas helfen Tino?
Aber schon einmal vielen Dank für den Tipp!!!
AW: hier ein Beispiel...
17.02.2010 12:58:02
manu
ahhh, so klappt das.
Darauf wäre ich nie gekommen.
Vielen Dank Tino!!!
LG
Manu
oder mit OnKey ...
17.02.2010 12:28:38
Tino
Hallo,
so geht es auch.
kommt als Code in DieseArbeitsmappe
Option Explicit 
 
Private Sub Workbook_Activate() 
    Application.OnKey "{RETURN}", "Mein_Makro" 
    Application.OnKey "{ENTER}", "Mein_Makro" 
End Sub 
 
Private Sub Workbook_Deactivate() 
   Application.OnKey "{RETURN}" 
   Application.OnKey "{ENTER}" 
End Sub 
 
kommt als Code in Modul1
Option Explicit 
 
Sub Mein_Makro() 
    MsgBox "Enter wurde gedrückt" 
End Sub 
Gruß Tino
Anzeige
;
Anzeige

Infobox / Tutorial

KeyAscii "Enter" in Excel VBA nutzen


Schritt-für-Schritt-Anleitung

Um den Enter-Key in Excel VBA zu nutzen und ein Makro bei dessen Drücken auszuführen, kannst du die folgenden Schritte befolgen:

  1. Öffne das Excel-Dokument und gehe in den Visual Basic for Applications (VBA) Editor (drücke ALT + F11).
  2. Füge im entsprechenden Modul den folgenden Code ein:
Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If GetAsyncKeyState(vbKeyReturn) <> 0 Then
        MsgBox "Enter wurde gedrückt"
    End If
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu Excel.
  2. Teste die Funktionalität, indem du in eine Zelle klickst und die Enter-Taste drückst.

Häufige Fehler und Lösungen

  • Fehler: "Das Makro wird nicht ausgeführt."

    • Lösung: Stelle sicher, dass das Makro aktiviert ist und nicht durch die Sicherheitseinstellungen blockiert wird.
  • Fehler: Der Enter-Key wird nicht erkannt.

    • Lösung: Überprüfe, ob die GetAsyncKeyState-Funktion korrekt deklariert ist. Achte darauf, dass du den richtigen vbKeyReturn verwendest.

Alternative Methoden

Eine weitere Möglichkeit, den Enter-Key in Excel VBA zu nutzen, ist die Verwendung der Application.OnKey-Methode. Hier ist ein Beispiel:

  1. Füge den folgenden Code in das Modul "DieseArbeitsmappe" ein:
Option Explicit

Private Sub Workbook_Activate()
    Application.OnKey "{RETURN}", "Mein_Makro"
    Application.OnKey "{ENTER}", "Mein_Makro"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "{RETURN}"
    Application.OnKey "{ENTER}"
End Sub
  1. Definiere das Makro, das ausgeführt werden soll:
Sub Mein_Makro()
    MsgBox "Enter wurde gedrückt"
End Sub

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du den Enter-Key mit einem Makro verknüpfen kannst:

  1. Erstelle ein Makro, das eine einfache Berechnung durchführt, wenn du Enter drückst:
Sub Berechnung()
    Dim result As Double
    result = Range("A1").Value + Range("B1").Value
    MsgBox "Das Ergebnis ist: " & result
End Sub
  1. Verknüpfe das Makro mit dem Enter-Key wie im vorherigen Abschnitt beschrieben.

Tipps für Profis

  • Nutze die keyascii-Codes, um spezifische Tastenanschläge zu erkennen. Der keyascii-Code für Enter ist 13, was du in deinen Bedingungen verwenden kannst.
  • Experimentiere mit der Application.OnKey-Methode, um das Verhalten von Tasten in Excel individuell anzupassen.
  • Achte darauf, dass du die Excel-Version berücksichtigst, da einige Funktionen in älteren Versionen möglicherweise nicht verfügbar sind.

FAQ: Häufige Fragen

1. Warum funktioniert der Enter-Key nicht in meinem Makro?
Stelle sicher, dass der Code im richtigen Modul eingefügt ist und dass die Makros in Excel aktiviert sind.

2. Kann ich andere Tasten ebenfalls mit keyascii verwenden?
Ja, du kannst die keyascii-Codes für andere Tasten verwenden. Eine Liste der gängigen keyascii codes vba findest du in der VBA-Dokumentation.

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