Option Explicit
Public boAction As Boolean
Private Sub CommandButton1_Click()
MsgBox "Ich möchte gerne speichern" <== Hier deinen Code für den Button
CommandButton1.Caption = "Normale Buttonaufschrift"
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If boAction = False Then
CommandButton1.Caption = "Speichern"
boAction = True
Else
On Error Resume Next
Application.Wait (Now + TimeValue("00:00:01"))
CommandButton1.Caption = "Normale Buttonaufschrift"
boAction = False
End If
End Sub
Fehlermeldung: Ereignis ID 31 / Quelle W32time
Aluger 06.01.2007 - 159 Hits -
ereignis 7023
Han 25.02.2007 - 559 Hits - 2 Antworten
VBA-Makro soll Menü erstellen
Frutiy 12.03.2007 - 142 Hits - 1 Antwort
Wie kann ich die Ereignisfehler 17, 29, 33, 59, 1007, 7000, 10010 und 62727 beheben?
LeoPeter 27.11.2007 - 382 Hits -
popup bei mouseover
HeinzausWien 21.05.2008 - 67 Hits - 4 Antworten