Textbox in Abhänigkeit einer Checkbox verzeigen
30.07.2003 14:13:41
sigi
ich möchte gerne in einer Userform Textbox in Abhänigkeit einer Checkbox
Eingaben dem jeweiligem Tabellenblatt zuordnen.
Private Sub txtAnrede_Change()
If CheckBox1.Value = False Then
MsgBox "Bitte Antragsteller eingeben"
Else
If CheckBox1.Value = True Then
Sheets("ANSt1").Range("A20").Value = _
Me.txtAnrede.Value
If CheckBox2.Value = True Then
Sheets("ANSt2").Range("A20").Value = _
If CheckBox3.Value = True Then
Sheets("ANSt3").Range("A20").Value = _
Me.txtAnrede.Value
If CheckBox4.Value = True Then
Sheets("ANSt4").Range("A20").Value = _
End If
End If
End Sub
Danke!
Gruß
Sigi