Hallo Ralf_b,
Vielen Dank für die schnelle Rückmeldung. In dem tabellenblatt sind insgesamt 4 Wordart. Dazu wird c benötigt. Um den Code zu kürzen habe ich 2 entfernt.
Ich habe jetzt durch Aufzeichnung eine Lösung gefunden. Jetzt wird das Tabellenblatt vor dem Drucken aktualisiert.
Der Sinn von diesem Makro ist, es werden viele Tischnummern benötigt aber nicht immer müssen alle gedruckt werden.
Problem gelöst. So sieht der Code jetzt aus.
vielen Dank.
ActiveSheet.Shapes.Range(Array("WordArt 1")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = a & b + 1
Range("G31").Select
ActiveSheet.Shapes.Range(Array("WordArt 2")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = a & b + 1
b = b + 2
Range("E35").Select
ActiveSheet.Shapes.Range(Array("WordArt 18")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = a & c + 1
Range("C35").Select
ActiveSheet.Shapes.Range(Array("WordArt 3")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = a & c + 1
c = c + 2
|