Mousemove
24.07.2005 13:31:15
Basti
ich wollte gerne das etwas in eine bestimmte Textbox eingetragen wird sobald ich mit dem Mauszeiger über einen Commandbutton gehe.
Dafür habe ich folgenden Code probiert:
Private Sub CommandButton1_Mousemove()
Dim A As Range
Set A = Range("b:b").Find("Patient")
A.Offset(0, 2).Select
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(1, 0).Value = TextBox2.Value
End Sub
der geht aber nicht, es erscheint eine Fehlermeldung:
Die Deklaration der Prozedur entspricht nicht der Beschreibung oder der Prozedur mit dem selben Namen ?
was mach ich den falsch
Gruß Basti.
Anzeige