Hallo liebe Excelforum-Community
ich möchte gern eine Exceldatei per Makro mit Zellbezug abspeichern.
folgendes Makro habe ich bisher erstellen können:
Sub PDF()
' PDF Makro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\denni\Desktop\Rechnung xxx.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
an die Rot makierte Zelle soll der Zellbezug in diesm Fall "J12" ich habe schon mehrere Varianten mit Range ausprobiert bisher leider ohne Erfolg in diesem Fall sollte die Fertige PDF Rechnung 20171.pdf heissen
Hallo,
so:
Code:
Sub PDF()
' PDF Makro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\denni\Desktop\Rechnung " & Range("J12") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Hallo. wie würde die Sache Aussehen, wenn .pdf auch im Dateinamen stehen soll also Rechnung 20171 .pdf ???
z.B. so:
Code:
Sub PDF()
' PDF Makro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\denni\Desktop\Rechnung " & Range("J12") & "pdf.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Sub PDFMAIL()
' PDFMAIL Makro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\denni\Desktop\Rechnung " & Range("J12") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
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("J10")
.Subject = Range("F12") & XXXRange("J12")
.Body = "Die Rechnung finden sie im PDF-Format im Anhang dieser Mail."
myAttachments.Add "C:\Users\denni\Desktop\Rechnung " & Range("J12") & ".pdf"
'.send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
wie kann ich an dieser Stelle XXX sinnvoll ein Leerzeichen einfügen ich habe bereits mehrere Varianten versucht
Hallo psychodennis89,
so
.Subject = Range("F12") & " " & Range("J12")
Gruß
Michael
Hallo liebe Leute ich suche eine Möglichkeit ein Makro zum drucken zu erstellen, bei dem die Info / kleine Drucken box zum drucken erscheint. kann mir jemand helfen ?
Hallo,
Zitat:Hallo liebe Leute ich suche eine Möglichkeit ein Makro zum drucken zu erstellen, bei dem die Info / kleine Drucken box zum drucken erscheint. kann mir jemand helfen ?
ich bin nicht gerade der Hellste, was das Ostereier suchen angeht.
Darum mal die einfache Frage,
was willst Du erreichen?
Ich bin eben zu dumm zum zum ...
ich möchte den befehl gern in ein bereits vorhandenes Makro mit einbinden, jedoch den drucker einzeln auswählen
Hallo ich habe noch ein kleines VBA Problem
ich möchte gern in einem ordner den letzen vorhandenen Dateinamen auslesen und diesen + 1 Rechnen
oder aber die letzte abgespeicherte rechnung nach Rechnungsnummer suchen und die nächte Rechnungsnummer automatisch fortlaufend vergeben