|
Hallo Zusammen,
ich habe folgendes Problem:
In einer Userform sind 20 Textboxen und ein Label namens "Label7".
Wenn ich mit der Maus über die 10 Textbox "Textbox10" fahre, möchte ich, dass in Label7 z.B. der Text "Test" eingeblendet wird.
Sobald ich von der Textbox weg gehe, soll der Text in Label7 wieder weg sein.
Mein Ansatz ist (in der Userform geschrieben):
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer
For i = 1 To 20
If Me.Controls("Textbox" & CStr(i)) = True Then
Label7.Visible = True
Label7.Caption = "Damit wird der Preis in die angegebene VAM-Kalk Spalte geschrieben."
End If
Next
End Sub
Leider tut sich heir gar nichts.
Wäre klasse, wenn sich jemand dem Problem annehmen könnte.
Vielen Dank.
|