VBA-Änderungen bei Druckroutine Excel 2010 zu 2016?

[VRa]

Bei der Umstellung von Rechner 1 mit Excel 2010 auf Rechner 2 mit Excel 2016 , beides 64bit, funktioniert der folgende Makro-Teil aus einer umfangreichen VBA-Programmierung nicht mehr:


01    Sheets("Chart").Select
02    Range("W41").Select
03    ActiveCell.Value = Range(Position).Value
04    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
05        :=False, Transpose:=False
06    Application.CutCopyMode = False
07    Calculate
08    
09    ActiveSheet.ChartObjects("Diagramm 1").Activate
10    ActiveChart.PlotArea.Select
11  '    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
12  '         "D:\Todoes\Projekte\Anlagesystem\Charts\" & Cells(41, 30) & "-C", Quality:=xlQualityStandard, _
13  '         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
14  '         False
15    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
16          "C:\Benutzer\Volker\Desktop\Charts\" & Cells(41, 30) & "-C", Quality:=xlQualityStandard, _
17          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
18          False

Die Zeilen 11-14 wurden aufgrund der abweichenden Hardware durch die Zeilen 15-18 ersetzt. Aber es passiert einfach nichts: keine Fehlermeldung, aber auch keine abgespeicherte pdf-Datei.
Wo liegt mein Denkfehler? Habe ich einen Befehl verwandt, dem VBA in Excel 2016 nicht kennt?

Danke für jede Unterstützung!
Volker

[Steffl]

Hallo Volker,

verwendest Du irgendwo On Error Resume Next?

[VRa]

Hallo Volker,

verwendest Du irgendwo On Error Resume Next?

Nein, nichts gefunden.

[schauan]

Hallöchen,

wenn nicht 100% sicher ist, dass kein On Error ... verwendet wird, dann gib doch bitte vor Zeile 15
On Error Goto 0
ein und teste dann noch mal. Die Syntax ist auch für 2016 korrekt.

[VRa]

Ich probiere es aus, habe übrigens doch noch diesen Befehl gefunden, ihn aber gelöscht. Nutzte nur nichts, gab dann eine Fehlermeldung: Laufzeitfehler '13': Typen unverträglich

[Kuwer]

Ich probiere es aus, habe übrigens doch noch diesen Befehl gefunden, ihn aber gelöscht. Nutzte nur nichts, gab dann eine Fehlermeldung: Laufzeitfehler '13': Typen unverträglich

Hallo Volker,

genau darum ging es doch, dass eventuelle Fehler angezeigt werden und nach Klick auf debuggen auch wo.

Gruß Uwe

[VRa]

genau darum ging es doch, dass eventuelle Fehler angezeigt werden und nach Klick auf debuggen auch wo.

Hallo Uwe,

was heißt das jetzt für mich?

Gruß Volker

[schauan]

Hallöchen,
Dass Dir die 13 nur Pech bringt ist schon klar, aber wir können was damit anfangen. Es sieht so aus, als ob in der Zelle, aus der ein Teil des Dateinamens kommt, ein Fehler steht.

[VRa]

Hallöchen,
Dass Dir die 13 nur Pech bringt ist schon klar, aber wir können was damit anfangen. Es sieht so aus, als ob in der Zelle, aus der ein Teil des Dateinamens kommt, ein Fehler steht.

Moin,
Du meinst 17?

[Steffl]

Hallo,

mal ein Schuss ins Blaue falls der Fehler in der Zeile 15 (oder 16 oder 17) auftaucht.

PHP-Code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          "C:\Benutzer\Volker\Desktop\Charts\" & Cells(41, 30).Text & "-C", Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False