HILFE D:
17.12.2014 09:20:42
Fabian
Private Sub txt3b_Change()
If txt3b.Value = "B" Then
txt3b.BackColor = &HFF00&
Else: txt3b.BackColor = &HFF&: txt1d.Enabled = False: txtd1.Enabled = False: txt1r.Enabled = _
False: txt2b.Enabled = False: txt2u.Enabled = False: txt2n.Enabled = False: txt2d.Enabled = False: txt2e.Enabled = False: txt2s.Enabled = False: txt2w.Enabled = False: txt2e.Enabled = False: txt2h.Enabled = False: txt2r.Enabled = False: txt3a.Enabled = False: txt3n.Enabled = False: txt3d.Enabled = False: txte3.Enabled = False: txtn3.Enabled = False: txtb3.Enabled = False: txt3u.Enabled = False: txt3r.Enabled = False: txt3g.Enabled = False: txt4e.Enabled = False: txt4r.Enabled = False: txt4l.Enabled = False: txt4i.Enabled = False: txt4n.Enabled = False: txt5k.Enabled = False: txt5o.Enabled = False: txt5b.Enabled = False: txt5l.Enabled = False: txt5e.Enabled = False: txt5n.Enabled = False: txt5z.Enabled = False: txt6d.Enabled = False: txt6e.Enabled = False: txt6m.Enabled = False: txt6o.Enabled = False: txt6k.Enabled = False: txt6r.Enabled = False: txt6a.Enabled = False: txt6t.Enabled = False:
txt7p.Enabled = False: txt7o.Enabled = False: txt7l.Enabled = False: txt7e.Enabled = False: _
txt7n.Enabled = False: txt8o.Enabled = False: txt8l.Enabled = False: txt8z.Enabled = False: txt8e.Enabled = False: txt8i.Enabled = False: txt9k.Enabled = False: txt9ö.Enabled = False: txt9l.Enabled = False: txt9n.Enabled = False: txt10s.Enabled = False: txt10a.Enabled = False: txt10c.Enabled = False: txt10h.Enabled = False: txts10.Enabled = False: txt10e.Enabled = False: txt10n.Enabled = False: txt11d.Enabled = False: txte11.Enabled = False: txt11n.Enabled = False: txt11a.Enabled = False: txt11u.Enabled = False: txt11e.Enabled = False: txt11r.Enabled = False: txt12m.Enabled = False: txt12e.Enabled = False: txt12k.Enabled = False: txte12.Enabled = False: txt12l.Enabled = False: txt13e.Enabled = False: txt13l.Enabled = False: txt13b.Enabled = False: txt14i.Enabled = False: txt14d.Enabled = False: txt14e.Enabled = False: txt14r.Enabled = False: txt14l.Enabled = False: txt14a.Enabled = False: txt14n.Enabled = False:
ed = False: txt15c.Enabled = False: txt15h.Enabled = False: txt15w.Enabled = False: txt15a. _
Enabled = False: txt15r.Enabled = False: txt16c.Enabled = False: txt16h.Enabled = False: txt16t.Enabled = False: txt16z.Enabled = False: txt16e.Enabled = False: txth16.Enabled = False
End If
End Sub
Aber irgendwas stimmt hier nicht,keine Ahnung was.
Wisst ihr außerdem wie ich das in sehr viel kürzer hinbekomme ohne jedes einzelne Feld anzusprechen ?