80x MouseDown Ereignis verringern
Dieterlem
Ich habe mir eine Userform gebastelt, in der ich 80 Textboxen (tbo1-80) habe. Ich verwende/mißbrauche diese als Checkbox, da sie von der größe veränderbar sind und ich ihre Hintergrundfarbe ändern kann.
Die Hintergrundfarbe soll sich per Mausklick ändern lassen. Dafür verwende ich folgenden Code:
Private Sub tbo80_MouseDown(ByVal Button As Integer, usw...)
With tbo80
If .Value = "" then Exit Sub
If .BackColor = &HFFFFFF Then
.BackColor´= &HFFFF80
ElseIf .BackColor´= &HFFFF80 then
.BackColor = &HFFFFFF
End If
End With
End Sub
Es funktioniert zwar auch so wie es soll, jedoch müsste ich diesen Code 80x schreiben. Das geht zwar mit Copy and Paste schnell, doch ist das bestimmt nicht die beste Lösung. Ich möchte nicht nur das es funktioniert, sondern suche ich eine elegante Lösung.Kann man das irgendwie zusammenfassen?
Kann man das verkürzen?
Danke schon mal im vorraus für eure Ideen und Antworten
Gruß
Dieterlem