Blatt als pdf versenden und abspeichern = Laufzeitfehler
04.02.2025 13:37:59
Birte Herholz
Ich werde gerade wahnsinnig.
Ich habe mir einen VBA-Code zurechtgefriemelt:
Damit erzeuge ich eine PDF über den Druckbereich des Arbeitsblattes, speichere die PDF im aktuellen Ordner ab und versende sie als Anhang per E-Mail.
Bisher hat das auch immer gut funktioniert!
Doch seit heute kommt jetzt : "Laufzeitfehler '-2147024894 (80070002)' Die Datei kann nicht gefunden werden
Der Dateiname kommt aus einer Zelle des aktuellen Arbeitsblattes (F6) .
Und in der Zelle F6 wird ein Text per Verkettung aus einem anderen Arbeitsblatt generiert: =VERKETTEN("bla bla";" ";'Tabelle3'!D6)
Ich habe folgendes festgestellt:
Hole ich mir die Datei ganz neu von server, funktioniert das Makro anstandslos.
Wird aber in der Zelle "'Tabelle3'!D6" etwas eingefügt, erhalte ich die o.g. Fehlermeldung.
Sub PDFSenden()
Dim DateiName As String
DateiName = Range("F6") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
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("F4")
.Subject = Range("F7")
.Body = Range("F14")
myAttachments.Add DateiName
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
MsgBox "Wechseln Sie in Ihr Outlook-Programm. Ein neues Fenster mit einer neuen E-Mail sollte sich geöffnet haben. Sobald diese Meldung geschlossen wird, kann in der Excel-Datei weiter gearbeitet werden.", vbInformation, "Erledigt, eine E-Mail wurde in Outlook erstellt."
ThisWorkbook.Sheets("Onboarding_ANLEITUNG").Unprotect
ThisWorkbook.Sheets("Onboarding_ANLEITUNG").Range("D38").Value = Now
ThisWorkbook.Sheets("Onboarding_ANLEITUNG").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub
Danke für jeden Hinweis - ich bin am Verzweifeln!
Anzeige