Makro VBA speichern mit Zellbezug

[psychodennis89]

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

[atilla]

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

[psychodennis89]

Hallo. wie würde die Sache Aussehen, wenn .pdf auch im Dateinamen stehen soll also Rechnung 20171 .pdf ???

[atilla]

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

[psychodennis89]

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

[vatifant]

Hallo psychodennis89,
so

.Subject = Range("F12") & "   " & Range("J12")

Gruß

Michael

[psychodennis89]

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 ?

[Käpt'n Blaubär]

Hallo,

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 ...

[psychodennis89]

ich möchte den befehl gern in ein bereits vorhandenes Makro mit einbinden, jedoch den drucker einzeln auswählen

[psychodennis89]

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