in PivotTabellen unter Excel 2010 gibt es die nützliche Funktion über einen Rechtsklick das gerade gewählte PivotItem auszublenden. Da ich diese Funktion in letzter Zeit häufiger nutzte, habe ich sie über VBA abbilden wollen. Da ich in großen PivotTabellen aber nicht alle PivotItems loopen kann (zu rechen-/ zeitaufwändig), habe ich mich für die Nutzung von SendKeys entschieden. Das funktioniert auch ganz gut. Über den ShortCut STRG + b habe ich nun diese Option zur Verfügung. Problem: Dabei wird u.U. die NumLock Taste deaktiviert. Dieser ärgerliche Fehler ist dokumentiert (http://support.microsoft.com/?kbid=179987), aber die hier gemachten Vorschläge (DoEvents) haben nicht geholfen. Also möchte ich über VBA den Status der NumLock Taste überwachen. Dafür gibt es auch Codes, die ich bisher aber leider nur ansatzweise verstehe. Ich habe in Modul1 meinen OnKey Code für das PivotItem und in Modul4 möchte ich die Überwachung der NumLock Taste (immer ein) realisieren.
Aber alle Recherche war vergebens. Es klappt nicht. Der Code NUMLOCK_True schaltet NumLock nicht ein. Ich kann auch leider nicht auf SendKeys verzichten.
Hat jemand von Euch die NumLock Überwachung schon einmal verwendet/ zum Laufen bekommen. Was ist mein Denkfehler in Modul4?
https://www.herber.de/bbs/user/82926.xlsm
Ich würde mich freuen, wenn ein Forumsteilnehmer sich das Beispiel ansieht und mir einen Tip geben kann, in welche Richtung ich nun weiter forschen muß.
Vielen Dank für Eure Aufmerksamkeit.
Grüße aus Berlin, Andreas Hanisch