VBA-Abrage: "Rollen"-Taste aktiv? 20.06.2009 20:59:17 Martin Hallo liebe Excelianer, gibt es eine Möglichkeit per Excel-VBA abzufragen, ob die "Rollen"-Taste aktiviert wurde? Ich wäre für Lösungsvorschläge sehr dankbar. Viele Grüße Martin
AW: VBA-Abrage: "Rollen"-Taste aktiv? 20.06.2009 21:31:18 Original Hi, google nach der API GetKeyState mfg Kurt
AW: VBA-Abrage: "Rollen"-Taste aktiv? 20.06.2009 21:32:42 Josef Hallo Martin, ' **********************************************************************' Modul: Modul1 Typ: Allgemeines Modul' **********************************************************************Option Explicit'Original von http://www.activevb.de/tipps/vb6tipps/tipp0181.htmlPrivate Declare Function GetKeyboardState Lib "user32" _ (pbKeyState As Byte) As LongConst VK_NUMLOCK = &H90Const VK_SCROLL = &H91Const VK_CAPITAL = &H14Sub checkScrollock() MsgBox "Scrollock ist " & IIf(CheckKey(VK_SCROLL), "an", "aus") End SubPrivate Function CheckKey(Key As Long) As Boolean Dim State As Boolean Dim Keys(0 To 255) As Byte Call GetKeyboardState(Keys(0)) State = Keys(Key) CheckKey = StateEnd Function Gruß Sepp Anzeige