sheets.Copy mit VBA-Code
RainerK
René hat mir hier https://www.herber.de/forum/archiv/1248to1252/t1251661.htm eine Lösung für meinen PDF-Druck erstellt.
Nun habe ich ein Problem mit der Seitenzählung, da mit dem Druck nicht alle Seiten übernommen werden sollen.
Fehler siehe
Grund: in meiner Tabelle werden die Seiten so ermittelt:
=WENN(D2=WAHR;Anzahl_Druckseiten();0)+(0*JETZT())
Der Grund dürfte wohl sein, dass der Code für die Seitenzählung nicht übernommen wurde.
Function Anzahl_Druckseiten()
If Val(Application.Version) >= 12 Then
Anzahl_Druckseiten = Application.Caller.Parent.PageSetup.Pages.Count
Else
Anzahl_Druckseiten = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End If
End Function
Allerdings spekuliere ich da, denn kopiere ich das Modul manuell in die neue Tabelle funktioniert auch nichts.Wie kann ich das Problem beheben?
Gibt es eine Möglichkeit, meine Seitenzählung in D2 mit dem Wert und nicht mit der Formel in die neue Tabelle zu übernehmen?
Gruß Rainer