|
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.
|