Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Feststellen, ob eine Schaltfläche mit Shift-Taste gedrückt wurde

Gruppe

MouseDown

Problem

Wie kann ich feststellen, ob eine Tabellenblattschaltfläche mit oder ohne gehaltene Hochschalttaste gedrückt wurde?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub cmdVerzweigung_MouseDown( _
   ByVal Button As Integer, ByVal Shift As Integer, _
   ByVal X As Single, ByVal Y As Single)
     If Shift = 0 Then Call Meldung1 Else Call Meldung2
End Sub

Sub Meldung1()
    MsgBox "Shift-Taste nicht gedrückt!"
End Sub

Sub Meldung2()
    MsgBox "Shift-Taste gedrückt!"
End Sub