Zweites Arbeitsblatt in Vorschau nehmen

[mauritius5]

Liebe Leute

Wie kriege ich bei diesem Code das Arbeitsblatt "Infos für Lehrpersonen" zusätzlich rein?
Dieser Code bezieht sich auf das Arbeitsblatt "Unterrichtsbesuch".

Code:

Range("A:B").ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

Herzlichen Dank für eure Hilfe und Gruss
mauritius05

[Ralf A]

Hi,

ist es wirklich so schwer, sich erst einmal selbst Gedanken darüber zu machen wie man ein Problem lösen kann, ohne jedes Mal jeden einzelnen Schritt vorgekaut bekommen zu wollen?

Probier einfach mal folgendes:
* Makroaufzeichnung starten
* Beide Arbeitsblätter markieren, dann im letzten den gewünschten Bereich markieren (alles mit gedrückter Strg-Taste)
* Als pdf speichern
* Aufzeichnung stoppen
* Code ansehen (was fällt Dir auf?) und ggf. anpassen... und draus lernen...

Fazit: Zeichne das, wofür Du einen Code brauchst, doch erst mal auf und versuche zu verstehen. Wenn es dann Verständnisprobleme gibt, kannst Du immer noch nachfragen...

[mauritius5]

...als hätte ich dies nicht schon versucht und als wäre ich nicht schon seit einer Ewigkeit am Versuchen. Würde sonst wohl kaum im Forum fragen.

[Ralf A]

...dann zeig doch mal das Ergebnis Deiner Versuche und sag uns, was da bei Dir nicht klappt. Bei mir funktioniert das nämlich...

[mauritius5]

Nach fünf Stunden hab ichs nun geschafft. Der Recorder war für nix. Nur per Versuch-Irrtum geschafft.
Etwas, was mir jemand von hier wohl in 30 Sekunden hätte sagen können. Schade um die Zeit.

Sheets(Array("Unterrichtsbesuch", "Infos für Lehrpersonen")).Select
Sheets("Unterrichtsbesuch").Range("A:B").ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

[RPP63]

blablabla

Warum sollte Dir jemand nach einigen Jahren im Forum das Objektmodell nahelegen?
Dir müsste doch mittlerweile der Begriff Referenzierung etwas sagen?

Der Recorder war für nix.

Warum genau postest Du dann aufgezeichneten Code?
Dies ist jedenfalls Rekorder-Code:

Code:

Sheets(Array("Unterrichtsbesuch", "Infos für Lehrpersonen")).Select
Sheets("Unterrichtsbesuch").Range("A:B").ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

Dier letzte Zeile würde ja reichen, wobei ich mich frage, warum Du keinen FileName:= vergibst.
Es ist doch "eigentlich" ganz einfach, wenn man ab und an die Hilfe aufruft:
https://learn.microsoft.com/de-de/office...ixedformat

Schade um die Zeit.

Wohl wahr!

[Ralf A]

Nach fünf Stunden hab ichs nun geschafft. Der Recorder war für nix. Nur per Versuch-Irrtum geschafft.
Etwas, was mir jemand von hier wohl in 30 Sekunden hätte sagen können. Schade um die Zeit.

Wieso schade im die Zeit? Hast Du dabei nichts gelernt? Dann ist es wirklich schade um die Zeit!

Ich kann Deinen Frust absolut nicht nachvollziehen. Die Freude und der Lerneffekt sind doch immer dann am größten, wenn man sich die Lösung selbst erarbeitet hat. Zumindest ist das bei mir so. 
Ich kann zwar verstehen, dass man gern schnelle Ergebnisse hat, aber der Preis bleibenden Halbwissens oder Verharren in der Ahnungslosigkeit, weil man ja alles geliefert bekommt, der ist mir echt zu hoch. 
KI wird das Problem leider nur noch verschlimmern und sollte meiner Meinung nach nur von Leuten mit ausreichender Fachkenntnis und Verantwortungsbewusstsein genutzt werden dürfen...