VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Ereignis

Bereich

MouseDown

Thema

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

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und MouseDown