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

Forumthread: Andere Tastenkombination als "Strg"+

Andere Tastenkombination als "Strg"+
30.03.2005 23:49:59
Werner
Hallo, ich habe mal wieder eine Frage.
Ich möchte eine EXCEL-Anwendung auf einem Rechner laufen lassen, an dem keine normale Tastatur angeschlossen ist, sondern der nur über den Ziffernblock (einschl. Rechenzeichen) verfügt. Kennt jemand eine Möglichkeit, Makros über über eine Tastenkombination zu starten, die nur aus Tasten des Ziffernblocks besteht?
Oder kann man eine der Rechenzeichen-Tatsen des Ziffernblocks so umprogrammieren, das sie die Strg-Tasten-Funktion übernimmt?
Gruß
Werner
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Andere Tversuchs
31.03.2005 00:44:51
chris
Zwar ist dein Level VBA nein aber du wolltest es.
Habe Dir hier etwas zusammengebaut ! Hoffe du hast erfolg damit !
Kleine änderungen sollten für dich ja kein Problem sein !
grüße Christian
P.s Rückmeldung nicht vergessen !
Option Explicit
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long) As Long
Public TimerEnabled As Boolean
Public Cnt&
Dim hTimer&
Const VK_NUMPAD5 = &H65
Public Sub Init(Interval&)
hTimer = SetTimer(0, 0, Interval, AddressOf TimerProc)
TimerEnabled = True
End Sub

Private Sub TimerProc(ByVal hWnd&, ByVal Msg&, ByVal idEvent&, ByVal dwTime&)
Static Flag As Boolean
If GetAsyncKeyState(VK_NUMPAD5) Then
Call Terminate
Call dein_Makro
End If
End Sub

Sub start()
Call Init(500)
End Sub
Sub Terminate()
Call KillTimer(0, hTimer)
TimerEnabled = False
End Sub
Sub dein_Makro()
MsgBox ("5 gedrückt")
End Sub
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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