Mousemove zurücksetzen
24.07.2005 13:42:54
Basti
das mit dem Mousemove funktioniert jetzt prima mit dem Code:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If CommandButton1.BackColor = RGB(0, 255, 0) Then
CommandButton1.BackColor = RGB(255, 0, 0)
Sheets("Tabelle1").Activate
Dim A As Range
Set A = Range("b:b").Find("Dekubitus")
A.Offset(0, 2).Select
With UserForm4
TextBox1.Value = ActiveCell.Value
TextBox2.Value = ActiveCell.Offset(1, 0).Value
End With
End If
End Sub
allerdings habe ich jetzt das Problem das wenn ich einmal über den den Button gefahren bin der Commandbutton gesetzt ist!
ich möchte aber das wenn ich mit der Maus vom Commandbutton runtergehe dieser wieder zurückgesetzt wird so das er später erneut angewählt werden kann
Gruß Basti