Numlock ein/aus mit VBA

Diskutiere und helfe bei Numlock ein/aus mit VBA im Bereich Microsoft Office im Windows Info bei einer Lösung; Für die schnelle Zahleneingabe,[IMG] Dieses Thema im Forum "Microsoft Office" wurde erstellt von HelmutWeber1, 27. April 2020.

  1. Numlock ein/aus mit VBA


    Für die schnelle Zahleneingabe,[​IMG]
     
  2. Bernard_Par Win User

    Numlock (ein/aus) mit VBA

    Hallo Helmut,

    erneut danke fur deine Frage. Da es sich hier um ein VBA Anliegen handelt, darf ich dich bitten, einen Beitrag in der MSDN Community zu verfassen und dort deinen Fall zu schildern.

    Wir haben nur begrenzt Möglichkeiten, Dir zu helfen und in der Community helfen viele Microsoft Moderatoren, die andere Mittel haben, um Dir bei der Lösung des Problems behilflich zu sein.

    In diesem Link klicke bitte oben links auf Eine Frage stellen.

    Wenn du noch andere Fragen hast oder wieder Hilfe brauchst, lass es uns bitte wissen.

    MfG

    Bernard
  3. Chris-Kaiser Win User

    NumLock-Eigenschaft in VBA für Excel

    Hi,

    "Wie kann ich diese Eigenschaft unter VBA für Excel abfragen?"

    Public Const VK_NUMLOCK = &H90
    
    Public Declare Function GetKeyState Lib "user32" _
    
    (ByVal nVirtKey As Long) As Long
    
    Sub Status_numlock()
    
    Debug.Print "Numlock ist " & IIf(GetKeyState(VK_NUMLOCK) = 1, "AN", "Aus")
    
    End Sub
    Code in einem allgemeinen Modul.

    Numlock setzten würde aufwendiger sein!

    Hast du im Moment welche Sendkeys im Einsatz?

    Selbige machen zumeist Probleme und sollten vermieden werden.

    lg

    Chris
  4. Andreas Killer Win User

    NumLock-Eigenschaft in VBA für Excel

    Option Explicit

    #If Win64 Then

    Private Declare PtrSafe Sub keybd_event Lib "user32" ( _

    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _

    ByVal dwExtraInfo As LongPtr)

    Private Declare PtrSafe Function GetKeyboardState Lib "user32" ( _

    pbKeyState As Byte) As Long

    #Else

    Private Declare Sub keybd_event Lib "user32" ( _

    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

    #End If

    Private Const VK_NUMLOCK = &H90

    Private Const VK_SCROLL = &H91

    Private Const VK_CAPITAL = &H14

    Private Const KEYEVENTF_EXTENDEDKEY = &H1

    Private Const KEYEVENTF_KEYUP = &H2

    Property Get NumLock() As Boolean

    Dim Keys(0 To 255) As Byte

    GetKeyboardState Keys(0)

    NumLock = Keys(VK_NUMLOCK)

    End Property

    Property Let NumLock(Value As Boolean)

    Dim Keys(0 To 255) As Byte

    GetKeyboardState Keys(0)

    If Value <> CBool(Keys(VK_NUMLOCK)) Then

    keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

    keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

    End If

    End Property

    Property Get CapsLock() As Boolean

    Dim Keys(0 To 255) As Byte

    GetKeyboardState Keys(0)

    CapsLock = Keys(VK_CAPITAL)

    End Property

    Property Let CapsLock(Value As Boolean)

    Dim Keys(0 To 255) As Byte

    GetKeyboardState Keys(0)

    If Value <> CBool(Keys(VK_CAPITAL)) Then

    keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

    keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

    End If

    End Property

    Property Get ScrollLock() As Boolean

    Dim Keys(0 To 255) As Byte

    GetKeyboardState Keys(0)

    ScrollLock = Keys(VK_SCROLL)

    End Property

    Property Let ScrollLock(Value As Boolean)

    Dim Keys(0 To 255) As Byte

    GetKeyboardState Keys(0)

    If Value <> CBool(Keys(VK_SCROLL)) Then

    keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

    keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

    End If

    End Property
  5. G.O.Tuhls Win User

    beim rechten Teil der Tastatur kann ich nur noch die "oberen" Zeichen benutzen

    Was ist "der rechte Teil der Tastatur" (Nummernblock oder Buchstabentasten für die rechte Hand) und was hat das mit Word zu tun?

    Meinst Du "NumLock"? Wenn es das nicht ist, hat Deine Tastatur wohl eine Fehlfunktion.

    Gruß

    G.O.
  6. Frank Arendt-Theilen Win User

    Numlock wird beim Öffnen einer Excel-Arbeitsmappe an bzw ausgeschaltet

    Hallo,

    eventuell liegt dies an einem installierten Add-In oder einem Makro.

    Starte Excel im abgesicherten Modus, in dem du die Strg-Taste drückst und während des Starts von Excel gedrückt hälst. Ändert sich anschließend der Zustand der Numlock-Taste nicht, ist meine Vermutung bestätigt und du musst herausfinden welches Add-In oder
    welcher VBA-Code das Verhalten hervorruft.



    Mit freundlichem Gruß aus der Rattenfängerstadt Hameln



    (www.at-exceltraining.de)

    [​IMG]
    Ist deine Frage mit diesem Beitrag beantwortet, markiere sie für alle Mitleser als Antwort
    . (Du kannst auch mehrere Beiträge als Antwort markieren)
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Numlock ein/aus mit VBA - Microsoft Office

Die Seite wird geladen...

Numlock ein/aus mit VBA - Similar Threads - Numlock VBA

Forum Datum

Outlook VBA - Kategorien in spezifisches Postfach importieren

Outlook VBA - Kategorien in spezifisches Postfach importieren: Hallo zusammen: Ich habe folgende Quelltexte zu diesem Thema gefunden: 1. Liste aller vorhandenen Kategorien im Standardpostfach erzeugen: Private Sub GetCategoryNames Dim objNS As...
Microsoft Office 18. Mai 2020

VBA in Excel

VBA in Excel: hallo, wenn ich auf entwicklertools gehe und möchte visual basic aufrufen bekomme ich nur eine grauen bildschirm bzw. kom ich nicht in den bearbeitungsmodus. wäre super wenn mir jemand...
Microsoft Office 17. Mai 2020

Outlook 2019: Navigationsoptionen per VBA einstellen

Outlook 2019: Navigationsoptionen per VBA einstellen: Hallo, worum es geht: Ich würde gerne in Outlook per VBA die Navigationsoption von z. B. "E-Mail" auf "Ordner" umstellen. Dh. was man im Menü unter Ansicht/Ordnerbereich/Optionen/"In dieser...
Microsoft Office 15. Mai 2020

Outlook 2019: Navigationsoptionen per VBA einstellen

Outlook 2019: Navigationsoptionen per VBA einstellen: Hallo, worum es geht: Ich würde gerne in Outlook per VBA die Navigationsoption von z. B. "E-Mail" auf "Ordner" umstellen. Dh. was man im Menü unter Ansicht/Ordnerbereich/Optionen/"In dieser...
Outlook.com 15. Mai 2020

EXCEL Sheet by VBA code printed as PDF - lines are missing in PDF file

EXCEL Sheet by VBA code printed as PDF - lines are missing in PDF file: I have an created EXCEL sheet with many boxes. Each box represents an mechanical element. I fill the boxes according to the fault count of the mechanical element with a corresponding color....
Microsoft Office 12. Mai 2020

Microsoft 365 Access VBA

Microsoft 365 Access VBA: In Microsoft 365 Access VBA lässt sich die Schleife Whie ... End While nicht kodieren. Beim Kodieren des End While meldet VBA "Fehler beim Kompilieren: Erwartet: If oder Select oder Sub oder...
Microsoft Office 6. Mai 2020

Windows 10 Numlock

Windows 10 Numlock: 126. Nach dem Update auf windows 10 funktioniert Bluetooth nicht mehr 127. WIN 10 Update auf Home Version obwohl 8.1 Pro vorhanden 128. Unzureichende Rechte 129. Downloads im Store werden nicht...
Microsoft Windows 13. September 2015
Numlock ein/aus mit VBA solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.