Office: (Office 2007) Mehrere TextBoxen gleiche Formatierung

Hallo liebe User,

Ich habe in meiner UserForm 25 TextBoxen mit der gleichen Formatierung, ist es möglich den Code so zu verkürzen,
dass es etwas kompakter aussieht?

So sieht es zur Zeit aus:

Code:

Private Sub TextBox1_Change()
If TextBox1 = "x" Then 
TextBox1.BackColor = vbRed
Else
TextBox1.BackColor = vbWhite
End If
End Sub

Private Sub TextBox2_Change()
If TextBox2 = "x" Then 
TextBox2.BackColor = vbRed
Else
TextBox2.BackColor = vbWhite
End If
End Sub

Private Sub TextBox3_Change()
If TextBox3 = "x" Then 
TextBox3.BackColor = vbRed
Else
TextBox3.BackColor = vbWhite
End If
End Sub

usw.

Hoffe ihr versteht es was ich haben möchte!

Gruß;)

 

Hi,

du kannst den Code etwas verkürzen, indem du die Färbung der TextBoxen in eine ausgelagerte Sub schreibst - nach diesem Prinzip:

Code:

Private Sub TextBox1_Change()
    FarbeEinstellen TextBox1
End Sub

Private Sub TextBox2_Change()
    FarbeEinstellen TextBox2
End Sub

Private Sub TextBox3_Change()
    FarbeEinstellen TextBox3
End Sub

Sub FarbeEinstellen(ctrElement As Control)
    If ctrElement.Value = "x" Then
        ctrElement.BackColor = vbRed
    Else
        ctrElement.BackColor = vbWhite
    End If
End Sub

Andere Variante: du verwendest Klassenprogrammierung. Ob das den Code wesentlich verkürzt gegenüber der oben angeführten Variante hängt davon ab, um wieviele TextBoxen es sich handelt - bei wesentlich mehr als 10 TextBoxen lohnt es sich auf jeden Fall.

Bis später,
Karin

 

Danke dir Karin!