SendKeys ("%{Down}")
23.01.2020 10:14:14
Herbert
mit dem nachfolgenden Code öffne ich Zellen-DropDown-Listen, wenn die Zelle mit dem Cursor aktiviert wird. Das funktioniert auch prima. Allerdings wird dabei jedes Mal der "NumLock" ausgeschaltet. Jetzt habe ich es schon mit den u. a. angegebenen Codezeilen (SendKeys "{NUMLOCK}", True) probiert, aber das funktioniert nicht dauerhaft. Habt ihr evtl. eine Idee, woran das liegt?
Ich verwende übrigens Excel 64Bit auf Windows 10 Pro 64Bit.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Invalidation As Integer
On Error GoTo ende
Invalidation = Target.Validation.Type
On Error GoTo 0
If Cells(Target.Row, Target.Column - 1) "xxx" Then
If Target.Row = 8 Then
If Invalidation = 3 Then
SendKeys ("%{Down}")
SendKeys "{NUMLOCK}", True
End If
End If
End If
ende:
If Not CBool(GetKeyState(KeyCodeConstants.vbKeyNumlock)) Then
SendKeys "{NUMLOCK}", True
End If
Invalidation = 0
End Sub
Servus
Anzeige