CommandButton_MouseMove
Matthias
ich möchte einen Text angezeigt bekommen wenn ich mit der Maus über einem CommandButton bin. Mit folgendem Code funktioniert das zwar, allerdings wird das klick Ereignis erst nach Bewegen der Maus ausgelöst. Gibt es hier eine bessere Lösung? Momentan wir ein Kommentar aus einer Zelle angezeigt.
Private Sub CommandButton3_Click()
Range("A2").Comment.Visible = False
Application.OnTime Now + TimeValue("0:00:01"), "Angebot"
End Sub
Private Sub CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
doppelklick = True
Angebot_eng
End Sub
Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)
If X CommandButton3.Width - 5 Or Y CommandButton3.Height - 5 Then _
Range("A2").Comment.Visible = False Else: Range("A2").Comment.Visible = True
End Sub
Anzeige