Thema Datum  Von Nutzer Rating
Antwort
27.07.2022 09:50:01 Nils
NotSolved
27.07.2022 11:18:11 Mase
NotSolved
27.07.2022 12:21:59 Gast42018
NotSolved
27.07.2022 12:35:10 Mase
NotSolved
27.07.2022 13:53:01 Nils
NotSolved
27.07.2022 14:13:03 Mase
NotSolved
Rot Makro Schaltfläche Öffnen PDF
27.07.2022 14:27:45 Nils
NotSolved
27.07.2022 14:36:35 Mase
NotSolved
28.07.2022 06:57:25 Nils
NotSolved
28.07.2022 07:47:23 Mase
NotSolved
27.07.2022 12:31:44 Gast80044
NotSolved

Ansicht des Beitrags:
Von:
Nils
Datum:
27.07.2022 14:27:45
Views:
82
Rating: Antwort:
  Ja
Thema:
Makro Schaltfläche Öffnen PDF

Beim Öffnen der Schaltfläche 1 (PDF Speichern):

Sub PDF_Speichern_unter()

Dim DateiName As String
DateiName = Range("I5") & Range("I4") & Range("I7") & Range("I8") & Range("I9")


Range("A1:G31").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True

End Sub

 

-------------------

 

Beim Öffnen der Schaltfläche 2(PDF per Mail senen):

ehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden.

 

Sub PDF_Speichern_unter_Mail()


Dim DateiName As String
DateiName = Range("I5") & Range("I4") & Range("I7") & Range("I8") & Range("I9") & ".pdf"
Range("A1:G31").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True

 

Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.To = Range("I2").Text
.Subject = Range("I4").Text
.Body = Range("I6").Text
myAttachments.Add DateiName

.Display
End With

Set Outlook = Nothing
Set OutlookMailItem = Nothing
Set OutlookApp = Nothing


End Sub

 


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
27.07.2022 09:50:01 Nils
NotSolved
27.07.2022 11:18:11 Mase
NotSolved
27.07.2022 12:21:59 Gast42018
NotSolved
27.07.2022 12:35:10 Mase
NotSolved
27.07.2022 13:53:01 Nils
NotSolved
27.07.2022 14:13:03 Mase
NotSolved
Rot Makro Schaltfläche Öffnen PDF
27.07.2022 14:27:45 Nils
NotSolved
27.07.2022 14:36:35 Mase
NotSolved
28.07.2022 06:57:25 Nils
NotSolved
28.07.2022 07:47:23 Mase
NotSolved
27.07.2022 12:31:44 Gast80044
NotSolved