folgendes ist auf UserForm1 vorhanden:
OptionButton1, OptionButton2, OptionButton3 und OptionButton4
TextBox1, TextBox2, TextBox3 und TextBox4
Wenn OptionButton1 angeklickt ist, sollen
TextBox2, TextBox3 und TexBox4 entleert werden.
Wenn OptionButton2 angeklickt ist, sollen
TextBox1, TextBox3 und TexBox4 entleert werden.
Wenn OptionButton3 angeklickt ist, sollen
TextBox1, TextBox2 und TexBox4 entleert werden.
Wenn OptionButton4 angeklickt ist, sollen
TextBox1, TextBox2 und TexBox3 entleert werden.
Ich habe versucht das so hinzubekommen, bin
aber gescheitert. Bitte Euch alle um Hilfe.
Private Sub optButton1_Click()
If UserForm1.optButton1 = True Then
With Selection
If UserForm1.TextBox2.Value <> 0 Then
UserForm1. TextBox2.Value = ""
ElseIf UserForm1.TextBox3.Value <> 0 Then
UserForm1.TextBox3.Value = ""
ElseIf UserForm1.TextBox4.Value <> 0 Then
UserForm1.TextBox4.Value = ""
End If
End With
End If
TextBox1.SetFocus
End Sub
Bis bald
Jusuf