Thema Datum  Von Nutzer Rating
Antwort
Rot makro PDF Speicherung von bestimmten Excel-Sheet und Ausgabe in Outlook
13.07.2022 13:52:53 Sago
NotSolved
13.07.2022 14:01:09 Gast93300
NotSolved

Ansicht des Beitrags:
Von:
Sago
Datum:
13.07.2022 13:52:53
Views:
99
Rating: Antwort:
  Ja
Thema:
makro PDF Speicherung von bestimmten Excel-Sheet und Ausgabe in Outlook

Hallo Zusammen, 

ich habe folgendes Thema: ich möchte gerne ein Makro haben, worin ich zwei Excel-Arbeitsblätter speichere und per E-Mail versende. Die eine Excel-Mappe (Tabelle7) möchte ich als Excel-Tabelle gespeichert  haben und das andere Arbeitsblatt (Tabelle11) möchte ich als PDF-Datei gespeichert haben. Beide Arbeitsblätter sollen in einer E-Mail an den Kunden gesendet werden. 

Mein Code hängt ich habe zwei Fehler. Zum einen wird mir das falsche Arbeitsblatt als PDF gespeichert und zum anderen wird mir der -Fehler Laufzeit 9; Index außerhlab des gültigen Bereichs angezeigt-. 

Kann mir hier jemand bitte helfen?

Vielen Dank im Voraus

 

ub Tabellenblätter_verschicken_3()

Dim DateiNameB As String
DateiNameB = Tabelle10.Range("F5").Value & "Probenahmebegleitschein" & Tabelle10.Range("F7").Value & ".xlsx"
Sheets("Probenahmebegleitschein").Copy
With ActiveWorkbook
.SaveAs Filename:=DateiNameB
.Close
End With

Dim DateiNameD As String
DateiNameD = Tabelle10.Range("F5").Value & "Informationsblatt Eiswürfel" & Tabelle10.Range("F7").Value
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:=DateiNameD
Sheets("Informationsblatt Eiswürfel").Copy
With ActiveWorkbook
.SaveAs Filename:=DateiNameD
.Close
End With

Dim strhtml As String
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 = Tabelle10.Range("F8").Value
.Subject = Tabelle10.Range("F7").Value
strhtml = Range("F38").Value & " <br><br>"
strhtml = strhtml & Range("F40").Value & " <br><br><br>"
strhtml = strhtml & Range("F43").Value & " " & Range("G43").Value & "<br>"
strhtml = strhtml & Range("F44").Value & " " & Range("G44").Value & " <br>"
strhtml = strhtml & Range("F45").Value & " " & Range("G45").Value & "<br><br>"
strhtml = strhtml & Range("F47").Value & " <br>"
strhtml = strhtml & Range("F48").Value & "<br>"
strhtml = strhtml & Range("F49").Value & " <br>"
strhtml = strhtml & Range("F50").Value
.htmlbody = strhtml
.Attachments.Add DateiNameB
.Attachments.Add DateiNameD
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = 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
Rot makro PDF Speicherung von bestimmten Excel-Sheet und Ausgabe in Outlook
13.07.2022 13:52:53 Sago
NotSolved
13.07.2022 14:01:09 Gast93300
NotSolved