TextBox bedingt formatieren
15.09.2003 16:25:31
VolkerM
Ich möchte TextBoxen bedingt formatieren.
Wenn TextBox1 leer ist, dann soll besagte und TextBox2 mit grüner Hintergrundfarbe belegt werden.
Mein Code bisher:
Option Explicit
Private Sub UserForm_Initialize()
TextBox1.Text = Sheets("Tabelle1").Range("A1")
TextBox2.Text = Sheets("Tabelle1").Range("A2")
End Sub
Private Sub TextBox1_Change()
If TextBox1.Text = "" Then
TextBox1.BackColor = RGB(0, 255, 0)
TextBox2.BackColor = RGB(0, 255, 0)
End If
End Sub
Bekomme es aber nicht hin.
Hat jemand eine Idee?
Vielen Dank im voraus.
Gruß Volker
Anzeige