Hab mir auf einem Eingabeblatt einen Button gesetzt der mit folgendem Code auf anderen Tabellenblättern eine Wordart ein-und ausblenden soll.
Sub kopie()
With Sheets("Bla1").Shapes("WordArt 2")
If .Visible = True Then .Visible = False Else .Visible = True
End With
With Sheets("Bla2").Shapes("WordArt 3")
If .Visible = True Then .Visible = False Else .Visible = True
End With
With Sheets("Vortex").Shapes("WordArt 7")
If .Visible = True Then .Visible = False Else .Visible = True
End With
With Sheets("Vortex2").Shapes("WordArt 32")
If .Visible = True Then .Visible = False Else .Visible = True
End With
End Sub
die einzelne with Anweisung funktioniert. In der kombination wirft er schon für das zweite Tabellenbatt einen Felher aus.
Sicher hab ich da wieder einen Fehler drin wenn es um mehrere with Anweisungen geht.
Für Hilfe Dank ich schon vorab!
Gruß Uwe