AW: Laufzeitfehler 1004
03.07.2018 11:34:31
Dennis
Hi Thorsten, der löscht zwar die Zellen. Aber zeigt trotzdem den Fehler.
Folgende Codes sind in der Arbeitsmape:
Sollte das Menü in Excel ausblenden, macht aber irgendwie nicht dauerhaft. Nach Neustart ist es wieder da.
Dim einAus As Boolean
Sub belndMiEinUndAus()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""" & ", " & IIf(einAus, "True", "False") & ")"
einAus = Not einAus
End Sub
Dieser Code ist zum pdf erstellen:
Sub PDF_Speichern()
Dim pdfName As Variant
With Worksheets("Angebot")
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "TKP" & _
.Range("B14").Text & .Range("B6").Text & .Range("B8").Text & _
.Range("B6").Text & .Range("B3").Text & ".pdf", "PDF-Dateien (*.pdf), *.pdf")
If TypeName(pdfName) = "String" Then
Application.ScreenUpdating = False
.Visible = xlSheetVisible
Call .Rows(22).AutoFilter(Field:=6, Criteria1:="1")
Call .ExportAsFixedFormat(Type:=xlTypePDF, Filename:=pdfName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True)
.Visible = xlSheetVeryHidden
Application.ScreenUpdating = False
End If
End With
End Sub
Dieser zum PDF per E-Mail versenden.
Public Sub PDF_MAIL()
Dim strPDFD As String
Dim objOutApp As Object, objMessage As Object
strPDFD = ThisWorkbook.Path & "\testPDF.pdf"
With Worksheets("Angebot")
.Visible = xlSheetVisible
Call .Rows(22).AutoFilter(Field:=6, Criteria1:="1")
Call .ExportAsFixedFormat(Type:=xlTypePDF, Filename:=strPDFD, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False)
.Visible = xlSheetVeryHidden
End With
Set objOutApp = CreateObject("Outlook.Application")
Set objMessage = objOutApp.CreateItem(0)
With objMessage
.To = ThisWorkbook.Worksheets("Configurator").Range("D7").Value 'Empfaenger
.Subject = ThisWorkbook.Worksheets("Configurator").Range("D21").Value 'Betreffzeile
.body = ThisWorkbook.Worksheets("Configurator").Range("C74").Value 'Inhalt
Call .Attachments.Add(strPDFD)
Call .Display
'Call .Send
Call Kill(PathName:=strPDFD)
End With
Set objOutApp = Nothing
Set objMessage = Nothing
End Sub
4 von 5 Tabellen sind mit 2-xlSheetVeryHiden ausgeblendet und das Projekt ist mit Password geschützt.