Hey, das ist echt eine sehr gute Lösung. Vielen Dank :)
Allerdings bekomme ich sie irgendwie nicht umgesetzt:
Code:
Private Sub RK1_1_Click()
Application.ScreenUpdating = False
Worksheets("Input").Activate
RK1_1.BackColor = &H80000015 ' Farbe auf rot setzen
RK2_1.BackColor = &H8000000F
RK3_1.BackColor = &H8000000F
Worksheets("Input").Range("C10").Value = "Risikoklasse 1"
Application.ScreenUpdating = True
TextBox1.Visible = False
MsgBox "Geht doch!!"
End Sub
Private Sub RK1_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Visible = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Visible = False
End Sub
Mein Problem:
1. Das Textfeld steht bereits beim Öffnen der Userform da, ohne mit der Maus über den Button zu fahren.
2. Das Textfeld verschwindet erst wieder, wenn ich mit der Maus das Fenster komplett verlasse.
3. Das Fenster hat eine RGB Hintergrundfarbe. Ich würde den Rahmen des textfeldes gerne verschwinden lassen - ihn also in der gleichen Farbe machen. Wenn ich im UserForm_Initialize() TextBox1.BorderColor = RGB(10, 10, 10) mache verändert sich die Farbe trotzdem nicht und ich sehe den störenden Rahmen weiterhin.