Dropdown bei Klick auf Zelle, Numpad schält ein und aus

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wshShell As Object On Error Resume Next 'Hierdurch wird bei Aktivierung von Dropdownzellen Dropdown sofort automatisch _ aufgeklappt: If ActiveCell.Validation.InCellDropdown = False Then Exit Sub On Error GoTo 0 'ab Windows-Vista nicht mehr zuverlässig Application.SendKeys "%{DOWN}", False Set wshShell = CreateObject("WScript.Shell") wshShell.SendKeys "%{DOWN}", True Set wshShell = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,

ich hatte es schon geahnt. Es liegt daran, dass das Blatt auf 200% gezoomt ist.

Dadurch wird der Offset (in Pixeln) falsch berechnet und zu weit oben geklickt, also ins Feld statt auf den Pfleilbutton. Man müsste hier den eingestellten Zoom mit berücksichtigen. Ich hatte das Tool bisher kaum getestet. Werde ich irgendwann mal nachbessern.

Tipp: Wenn man den mouse_event und den zweiten SetCursoPos ausremmt, sieht man, wo die Maus hingesetzt wird....

Hier für Dich müsste es so reichen.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Datenüberprüfung (Dropdown) automatisch aufklappen

  Dim Pt As POINTAPI

  

  On Error GoTo Fehler

' Testen, ob Dropdown vorhanden

  If Target.Validation.Type > xlValidateList Then Exit Sub



  With ActiveWindow.ActivePane

       GetCursorPos Pt              ' Mausposition retten

       SetCursorPos .PointsToScreenPixelsX(Target.Offset(1, 1).Left) + 10, _

                    .PointsToScreenPixelsY(Target.Offset(1, 1).Top - 5)  ' mit diesem Offset spielen>>>

       mouse_event &H6, 0, 0, 0, 0  ' Buttonclick leftdown + leftup

       SetCursorPos Pt.x, Pt.y      ' Alte Mausposition wiederherstellen

  End With

Fehler:

End Sub

Gruß
Karl-Heinz

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Datenüberprüfung (Dropdown) automatisch aufklappen Dim Pt As POINTAPI On Error GoTo Fehler ' Testen, ob Dropdown vorhanden If Target.Validation.Type > xlValidateList Then Exit Sub With ActiveWindow.ActivePane GetCursorPos Pt ' Mausposition retten SetCursorPos .PointsToScreenPixelsX(Target.Offset(1, 1).Left) + 10, _ .PointsToScreenPixelsY(Target.Offset(1, 1).Top) - 10 mouse_event &H6, 0, 0, 0, 0 ' Buttonclick leftdown + leftup SetCursorPos Pt.x, Pt.y ' Alte Mausposition wiederherstellen End With Fehler: End Sub

Beliebteste Forumthreads (12 Monate)

Dropdown bei Klick auf Zelle, Numpad schält ein und aus

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdown bei Klick auf Zelle, Numpad schält ein und aus

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread