HERBERS Excel-Forum - die Beispiele

Thema: Schaltflächefarbe beim Überfahren mit der Maus ändern

Home

Gruppe

Ereignis

Problem

Beim Überfahren der Schaltflächen mit der Maus sollen Ampelfarben angezeigt werden.

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

Private Sub CommandButton1_MouseMove( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   CommandButton1.BackColor = vbRed
   CommandButton2.BackColor = vbWhite
   CommandButton3.BackColor = vbWhite
End Sub

Private Sub CommandButton2_MouseMove( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   CommandButton1.BackColor = vbWhite
   CommandButton2.BackColor = vbYellow
   CommandButton3.BackColor = vbWhite
End Sub

Private Sub CommandButton3_MouseMove( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   CommandButton1.BackColor = vbWhite
   CommandButton2.BackColor = vbWhite
   CommandButton3.BackColor = vbGreen
End Sub

Private Sub Label1_MouseMove( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   CommandButton1.BackColor = vbWhite
   CommandButton2.BackColor = vbWhite
   CommandButton3.BackColor = vbWhite
End Sub
StandardModule: Modul1

Sub Dummy()
End Sub

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

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ?? Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl Objekt_Error - Ereignis in UserForm
change ereigniss auf userform. Click-Ereignis für Checlbox nicht ausführen?
Speichern einer Kopie durch Ereigniss Workbook_bef Reagieren auf Tastaturereignisse
Ausnahmen für Exit-Ereignis Exit-Ereignis SetFocus
select Ereigniss UF Show Ereignis zeitweise mit Fehler
Ereignismakro Selectereigniss in Spalte
doppeltes Klick-Ereignis Doppelklick-Ereignis
MouseMove bei UF VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic change ereigniss nicht ausführen Userform
MouseMove Exit Ereignis
Rekursiven Aufruf von Ereignissen verhindern Makro läuft nicht, falsches Ereignis?
Dropdown Ereignis Nach Eingabe Ereignis