Wie kan ich Abfrage ob die "strg oder alt" taste gedrückt ist?
Vielen dank Gerhard
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Shift = 2 Then
MsgBox "Strg-Taste ist gedrückt!"
ElseIf Shift = 4 Then
MsgBox "Alt-Taste ist gedrückt!"
End If
'Shift =
'0 = keine
'1 = Shift (Umschalt)
'2 = Strg
'3 = Shift + Strg
'4 = Alt
'5 = Shift + Alt
'6 = Strg + Alt
'7 = Shift + Strg + Alt
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [G4:O27]) Is Nothing Then
Cancel = True
If KeyDown(scancode)Then
bieten
GoTo ende
End If
End If
ActiveCell.Offset(1, 0).Activate
ende:
End Sub