Dropdown un NumLock
09.10.2017 19:49:45
Guesa
Folgenden Code habe ich in einer Tabelle.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Invalidation As Integer
On Error Resume Next
Invalidation = Target.Validation.Type
On Error GoTo 0
If Invalidation 0 Then
SendKeys ("%{Down}")
End If
End Sub
ein Danke schön
Gruß, Guesa
Anzeige