Das hier:
If tb.Eingabeformular.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = True Then
Müsste heissen:
If tb_Eingabeformular.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = True Then
Höchstwahrscheinlich kopiert und Codenamen umbenannt. Dann stimmt der Code auch nichtmehr zusammen.
Merkst Du, sobald Du das oben gezeigte umbenennst. Es fehlen die Formen "txt_anlegen" und "img_anlegen".
|