Num-Lock schalten mit Excel 2003
02.11.2005 09:04:50
Harald
untenstehender Code (im Standardmodul) lief auf Excel 9.0 problemlos.
Auf Excel 2003 tut sich nix mehr. Im Code Numlock_ein kann ich zudem nach dem "=" eintragen was ich will. Er meckert nicht mal...er macht aber auch nix.
Komme weder mit der Hilfe noch mit Herbers CD weiter....mann.
Die paar Tannenzäpfle auf dem Treffen können doch nicht alles unterspült haben ;-))
Const VK_NUMLOCK = &H90
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private kbArray As KeyboardBytes
Private Declare <pre>
Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Sub Numlock_ein()
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = 1
SetKeyboardState kbArray
End Sub
Danke für die Hilfe
Harald
Anzeige