Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
funktionieren die Makros nur auf manchen Rechnern nicht, aber auf anderen ja ? - auf anderen Rechnern läuft es
Was ist der unterschied zwischen den Rechnern, wenn es auf dem einen funktioniert , auf dem anderen nicht ? - Unterschied kann ich nicht ausmachen
Welches System läuft, welche Office Version? Überall 365? - Windows 11 , überall Excel 365 drauf
wir sieht der Code aus, wo der Fehler auftaucht (Springt Excel in eine bestimmte Zeile im Debug Modus?)
Der Debug Modus makiert das Wort "Format" gelb in folgender Zeile:
AWS = "C:\TEMP\" & Format(Now, "yyyy_mm_dd") & "_Schadensmeldung_V1.1" & ".pdf"
Sub PDF_Mailen()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\TEMP\" & Format(Now, "yyyy_mm_dd") & "_Schadensmeldung_V1.1" & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
MailPDF
End Sub
Private Sub MailPDF()
Dim AWS As String
AWS = "C:\TEMP\" & Format(Now, "yyyy_mm_dd") & "_Schadensmeldung_V1.1" & ".pdf"
Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(0)
With objMail
.GetInspector ' sorgt für die Signatur
.To = Sheets("Mail").Cells(1, 5)
.CC = Sheets("Mail").Cells(2, 5)
.Subject = Format(Now, "yyyy_mm_dd") & "_Schadensmeldung_V1.1" & ".pdf"
.Body = "Zur Info." & vbNewLine & .Body
.Attachments.Add AWS
.Display
End With
Set objMail = Nothing
Set olApp = Nothing
Temp_Loeschen
End Sub
Private Sub Temp_Loeschen()
Dim Datei As String
Datei = "C:\TEMP\" & Format(Now, "yyyy_mm_dd") & "_Schadensmeldung_V1.1" & ".pdf"
Kill Datei
End Sub
Dann heißen die Tabellenblätter in allen Excel Dateien gleich (z.B. alle Tabelle1) oder gibt es da unterschiede, wie spricht das Makro das Tabellenblatt an ? - es wird die ganze Datei verschickt
das versteckte Modul wieder anzeigen lass... - es ist kein Modul ausgeblendet
nu aber ;)