Hintergrund mehrerer Textboxen wechseln
08.04.2020 00:30:02
MarC
ich habe ca. 40 Textboxen und möchte das sich die Hintergrundfarbe ändert wenn etwas drin steht. Wie es bei einer Textbox geht weiß und ich kann diesen Code auch für alle anderen kopieren. Aber ich würde gerne keine 3 - 4 Seiten gleichen Code stehen haben. Kann man das auch ohne Klassen abkürzen? Von Klassen verstehe ich noch nicht viel.
Private Sub TextBox46_Change()
If TextBox46.Value "" Then
TextBox46.BackColor = &H80000004 ' hellgrün
Else
TextBox46.BackColor = &H80000018
End If
End Sub