VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	12.01.2021 20:16:00	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	12.01.2021 22:11:35	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	13.01.2021 19:03:13	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	13.01.2021 19:50:03	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:29:27	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:42:01	Gast6163
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:44:58	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:52:54	Admin
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:43:13	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 13:24:43	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 13:29:39	Admin
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 13:55:28	volti

Ansicht des Beitrags:

Von:
volti

Datum:
12.01.2021 22:11:35

Views:
526

Rating:

Antwort:

Thema:
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle

Hallo Jannik,

teste mal nachfolgendes Makro. Das enthält auch die Signatur. Wenn nicht gewünscht, einfach " & .body" weglassen

		Code:

						01

						02

						03

						04

						05

						06

						07

						08

						09

						10

						11

						12

						13

						14

						15

						16

						17

						18

						19

						20

						21

						22

						23

						24

						25

						26

						27
					
							Option Explicit

							Sub PDF_und_Senden_Metalllieferant()

							  Dim sDateiName As String, WSh As Worksheet

							  With Sheets("Metallherstellung")

							      sDateiName = .Range("L3")

							      If Right$(sDateiName, 1) <> "\" Then sDateiName = sDateiName & "\"

							      sDateiName = sDateiName & .Range("L2") & ".pdf"

							      .Range("A1:J82").ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiName, _

							      Quality:=xlQualityStandard, IncludeDocProperties:=True, _

							      IgnorePrintAreas:=False, OpenAfterPublish:=False

							  End With

							  Set WSh = Sheets("Tabelle2")

							  With CreateObject("Outlook.Application").CreateItem(0)

							      .GetInspector

							      .To = WSh.Range("B45").Value

							      .Cc = WSh.Range("B45").Value

							      .Subject = WSh.Range("B34").Value

							      .body = WSh.Range("B47").Value & .body

							      .Attachments.Add sDateiName

							      .Display

							  End With

							End Sub

_________
viele Grüße
Karl-Heinz

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	12.01.2021 20:16:00	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	12.01.2021 22:11:35	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	13.01.2021 19:03:13	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	13.01.2021 19:50:03	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:29:27	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:42:01	Gast6163
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:44:58	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:52:54	Admin
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 08:43:13	volti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 13:24:43	Jannik Marti
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 13:29:39	Admin
VBA Excel als PDF abspeicher mit Pfad und Name aus Zelle	14.01.2021 13:55:28	volti