das hier gepostete Makro funktioniert super, das gesamte Tabellenblatt wird in pdf
konvertiert und per mail versendet.
Nun möchte ich aber nicht das das gesamte tabellenblatt in pdf konvertiert wird sondern immer nur ein gewisser zellenbereich und mit einer abfrage zusätzlich versehen. Diese Abfrage soll bewirken das wenn in einem bestimmten zellenbereich
ein inhalt hinzugekommen ist den alten und den neuen Zellenbereich in pdf konvertieren und nicht mehr das gesamte tabellenblatt.
Ich weiß nich ob das möglich ist. Ich habe in meinem Tabellenblatt einen fixen bereich der immer in pdf konvertiert werden muss. dieser lautet A2:BM12
Danach soll eine abfrage gestartet werden ob in dem Zellenbereich
A13:BC192 was drinnensteht wenn ja einfach den neuen Zellenbereich
mitkonvertieren in pdf und nicht das gesamte Tabellenblatt.
Als Beispiel, somit kann es einmal vorkommen das der Bereich sich von
A2:BM17 und das nächste mal dann von A2:BM35 erstreckt und dann in pdf
konvertiert werden soll.
Hoffe ihr könnt mir da weiterhelfen, habe die forumsuche genutzt und gegoogelt,
leider brachte das keine lösung an den tag.
Sub AlsPDFSpeichern()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = _
_
vbYes Then pdfOpenAfterPublish = True
Rem Pfad und Name der PDF-Datei
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder höher, nicht in Excel 2003 oder ä _
_
lter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Range("AO2").Value
.cc = Range("Z2").Value
.Subject = "Rechnungen" 'Betreffzeile
.htmlBody = "Hallo"
.Attachments.Add pdfName
.Display
End With
Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False
End Sub