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

Ansicht des Beitrags:
Von:
Gerd K.
Datum:
03.01.2023 00:29:12
Views:
312
Rating: Antwort:
  Ja
Thema:
Tabellenblatt 1 aktualisieren

Hallo, vielleicht kann mir jemand helfen.

Ich habe ein Tabellenblatt, Tabelle1, Größe A4, mit 2 Wordart Feldern, die ich per Makro ansteuer und den Inhalt der Wordart ändere. Nach der Änderung möchte ich entscheiden, ob ich es Drucken oder diesen Druck überspringen möchte. Dieses wird mir über eine Msgbox angezeigt. Dieses Dokument wurde in Excel 97-2003 unter Win XP erstellt. Alles klappt wunderbar auch die Ansicht beim Überspringen des Druckes.

Nun wollte ich die Excelanwendung unter Win10 und Excel 10 zum Laufen bringen. Das klappt auch, wenn ich den Druck ausführe.

Wenn ich den Ausdruck nicht benötige und ich ihn überspringen möchte, ein oder mehrmals, dann wird mein Tabellenblatt nicht mehr aktualisiert und ich kann nicht mehr erkennen, welcher Ausdruck als nächstes anliegt.

Wie bekomme ich das hin, das ich mein Tabellenblatt aktualisiert?

Hier mein Makro. 

Option Explicit

 

Sub Makro1()

 

    Dim a, b, c, Antwort

    

    a = "Tisch "

    b = 0

    c = 1

 

10

 

    ActiveSheet.Shapes("WordArt 1").Select

    Selection.ShapeRange.TextEffect.Text = a & b + 1

    ActiveSheet.Shapes("WordArt 2").Select

    Selection.ShapeRange.TextEffect.Text = a & b + 1

    b = b + 2

     

    Antwort = MsgBox(" " + _

    Chr(10) + _

    "Die Tischnummern drucken ? " + _

    Chr(10) + Chr(10) + _

    "Mit Nein wird dieser Druck übersprungen ! ", vbYesNoCancel + vbQuestion,"Tischnummer")

    

    If Antwort = vbNo Then GoTo 10

    If Antwort = vbCancel Then Exit Sub

 

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    

GoTo 10

End Sub

 

Mit freundlichen Grüßen 

 

Gerd K.


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
Rot Tabellenblatt 1 aktualisieren
03.01.2023 00:29:12 Gerd K.
NotSolved
03.01.2023 08:07:31 ralf_b
NotSolved
03.01.2023 11:46:57 Gerd K.
Solved