aktives Arbeitsblatt ins PDF exportieren und dabei Name und Datum aus Zelle beziehen

[dieter meyer]

Hallo,
ich bin im Internet auf folgende Möglichkeit zum Exportieren des aktives Arbeitsblattes ins PDF gestoßen.

Sub Abschluss()
ChDir ThisWorkbook.Path 'anpassen 'oder thisworkbook.path
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("a13").Value & Format(Date, " YYYY.MM.DD") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Hierbei bezieht die Datei seinen Name aus Zeile A13 des aktiven Blattes. Ich hätte gerne, das das Datum auch so ausgelesen wird. Aber ich bekomme immer nur den Zahlenwert des Datums gespeichert.

Hat jemand eine Idee wie ich es ändern kann?

Grüße Dieter

[losgehts]

Hallo,

für Excel ist ein Datum intern eine Zahl. Daher kommt die Zahl. Du hast mehrere Möglichkeiten.

Zunächst fällt mir ein: du könntest die Text-Eigenschaft des Range-Objektes benutzen. Dann wird das Datum so wie es in Excel angezeigt wird genommen:
Range(...).Text
In deinem Code könnte das so aussehen (Annahme: dein Datum steht in Zelle A14):

Code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("a13").Value & Range("A14").Text & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Oder du bestimmst das Format im Code mit der Funktion Format().

Code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("a13").Value & Format(Range("A14").value, " YYYY-MM-DD") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Ist da schon etwas dabei, was du an deine Bedürfnisse anpassen kannst / mit dem du weiter kommst?

Grüße, Ulrich

[dieter meyer]

Hallo losgehts,

Dein Tip mit der Text-Eigenschaft hat wunderbar geklappt. Problem gelöst. Ich danke dir.

Grüße Dieter