habe einen VBA Code, in dem eine PDF erstellt und an eine Mail gehängt wird.
Würde Jetzt gerne noch eine Bedingung einfügen und zwar soll die PDF von den ersten 3 Seiten erstellt werden, wenn aber im Tabellenblatt "DQ" Zelle "AH2" eine Zahl steht, die größer als 11 ist, soll die PDF von den ersten 4 Seiten erstellt werden.
Hier mein Code, vielen Dank vorab für eure Hilfe Gruß Andreas
Public Sub ISF()
Dim sDateiname As String, WSh As Worksheet
Set WSh = ThisWorkbook.Sheets("Tabellen1")
'alle Zeilen einblenden
Cells.EntireRow.Hidden = False
If Sheets("DQ").Range("AH2") = 1 Then
'alle Zeilen einblenden
Cells.EntireRow.Hidden = False
Rows("143:161").EntireRow.Hidden = True
End If
If Sheets("DQ").Range("AH2") = 2 Then
'alle Zeilen einblenden
Cells.EntireRow.Hidden = False
End If
' PDF erzeugen
sDateiname = WSh.Parent.Path & "\" & "Dateiname" & Worksheets("Tabelle1").Range("C11") & "_" & Worksheets("A 1").Range("C7").Value & ".pdf"
WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
' Mail kreieren
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector ' sorgt für die Signatur
'.To = "Adresse" ' Empfänger
.Subject = "Dateiname " & Worksheets("Tabelle1").Range("C11") & "_" & Worksheets("A 1").Range("C7") ' Betreff
.Body = "Text1" & vbCr & vbCr _
& "Text2" & vbCr _
& "Text3" & vbCr _
& "Text4" _
'& vbCr & .Body ' Mailtext mit Signatur
If Dir$(sDateiname) "" Then .Attachments.Add sDateiname
.Display
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub