tekstbox blokkeren

[Roma]

Beste,
In een Userform heb ik een teksbox1 die moet worden ingevuld.
Als deze is ingevuld dan mag in tekstbox2 niets ingevuld worden.
Weet iemand hier een code voor om deze te blokkeren
alvast bedankt.

 

[edmoor]

TextBox2.Enabled = IIf(TextBox1.Value = "", True, False)

 

[Roma]

Edmoor,
Super bedankt
Rob

 

[OctaFish]

Kan zelfs nog simpeler:

Private Sub txtbetreft_Change()
    Me.TextBox2.Enabled = Not Me.TextBox1= vbNullString
End Sub

of

Private Sub txtbetreft_Change()
    Me.TextBox2.Enabled = Not Me.TextBox1= ""
End Sub

 

[snb]

Private Sub TextBox1_Change()
  TextBox2.Visible = TextBox1 = ""
End Sub

 

[OctaFish]

Ik heb het niet zo op knipperlicht formulieren waar tekstvakken te pas en te onpas van het scherm verdwijnen. Levert alleen maar gaten op...

 

[snb]

Was ook niet voor jou maar voor Roma