Registriert seit: 03.10.2018
Version(en): 365
03.10.2018, 15:41
Hallo,
leider bin ich im Thema VBA gar nicht gut. Allerdings habe ich ein Problem, welches ich leider nicht gelöst bekomme. Ich habe zwar schon unterschiedliche "Codeschnipsel" eingebaut, jedoch hat es nie richtig geklappt.Folgendes Problem:
Ich habe eine Arbeitsmappe mit 5 Tabellenblätter. Über einen Button auf Blatt Nr.1 möchte ich die Tabellenblätter 2-4 drucken (per 1 Klick) über einen weiteren Button möchte ich die Tabellenblätter 2-4 als PDF in dem gleichen Ordner speichern, wie die originale Excel-Datei. Dieser Ordner ändern sich allerdings, es muss also dynamisch sein (immer in dem Ordner wie die Excel-Datei).
Ich generiere leider ständig Laufzeitfehler, mir fehlen bisher die nötigen Kenntnisse VBA.
Vielleicht gibt es ja jemand, der mir helfen kann/mag.
Beste Grüße
Torben
Registriert seit: 25.04.2016
Version(en): 2013
03.10.2018, 15:48
(Dieser Beitrag wurde zuletzt bearbeitet: 03.10.2018, 16:02 von Storax.)
Update - vorherigen Inhalt gelöscht, da man hier Crosspostern hilft
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Moin!
(03.10.2018, 15:41)brosmith schrieb: über einen weiteren Button möchte ich die Tabellenblätter 2-4 als PDF
Die drei Blätter in einer PDF oder in dreien?
(03.10.2018, 15:41)brosmith schrieb: in dem gleichen Ordner speichern, wie die originale Excel-Datei. Dieser Ordner ändern sich allerdings, es muss also dynamisch sein (immer in dem Ordner wie die Excel-Datei).
Der "dynamische" Pfad ist
ThisWorkbook.PathGruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 03.10.2018
Version(en): 365
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
03.10.2018, 17:59
(Dieser Beitrag wurde zuletzt bearbeitet: 03.10.2018, 17:59 von schauan.)
Hallöchen,
Code:
Update - vorherigen Inhalt gelöscht, da man hier Crosspostern hilft
??? Wo?
Zeichne den Code zum Drucken und zum Speichern unter pdf auf und poste ihn hier, dann schauen wir weiter.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo,
Zitat:??? Wo?
OL und
MOF aber dort sind bisher nur Hinweise auf das Crosspost eingegangen.
Gruß
Peter
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo Peter,
danke. Da ist ja die zeitliche Abfolge der Antworten lustig. Im MOF steht um 14:48, das im anderen Forum geantwortet wird, und hier kam die Antwort um 15:49. Die Karten hätt ich auch gerne :15: (Im OL um 14:53 der Hinweis auf X-Post zählt eher nicht.)
Ansonsten, 14:46, 14:49, 14:51, da hat es einer ja ganz schön eilig mit dem Drucken ...
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
(03.10.2018, 17:48)brosmith schrieb: Vielen Dank!!!!
Wofür?
Für ThisWorkbook.Path?
Du hast meine Frage noch nicht beantwortet.
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi André,
MOF war 15:48
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Wenn ich jetzt Moderator wäre, würde ich fragen, was das ganze off topic soll! :21:
Die einzig konkrete Hilfe in allen drei Foren kam doch wohl hier …
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
