Thema Datum  Von Nutzer Rating
Antwort
03.01.2023 00:29:12 Gerd K.
NotSolved
03.01.2023 08:07:31 ralf_b
NotSolved
Rot Tabellenblatt 1 aktualisieren
03.01.2023 11:46:57 Gerd K.
Solved

Ansicht des Beitrags:
Von:
Gerd K.
Datum:
03.01.2023 11:46:57
Views:
374
Rating: Antwort:
 Nein
Thema:
Tabellenblatt 1 aktualisieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.01.2023 00:29:12 Gerd K.
NotSolved
03.01.2023 08:07:31 ralf_b
NotSolved
Rot Tabellenblatt 1 aktualisieren
03.01.2023 11:46:57 Gerd K.
Solved