kleines Problem bei Ausgabe Dateiname per PDF Makro

[krautwiggla]

Hallo,

habe dieses kleine Makro gebaut bzw. großteils aus dem inet kopiert:

Code:

Sub aktivesBlattToPdf()
ChDir ThisWorkbook.Path 'anpassen 'oder thisworkbook.path
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "_Bemusterung " & Range("E12") & " - " & Range("D15").Value & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False
End Sub

Funktioniert soweit. In Spalte E12 sollen Zahlen von 001 - ca. 500 als Dateiname ausgegeben werden. Die Zeile ist benutzerdefiniert als "000" markiert, damit z.B. 001 angezeigt wird anstatt einfach nur eine 1.
Ich kann das Feld leider nicht als Text markieren, da dieses Feld ein SVERWEIS Bezug ist.
Im Feld wird also z.B. 001 angezeigt, jedoch gibt mir das Makro nur eine 1 im Dateinamen aus. Ich benötige jedoch auch die 00er vorne dran.
Gibt es eine Möglichkeit das Feld so auszugeben wie angezeigt oder nur mit dem Wert wo im Feld steht?

Danke.

[Kuwer]

Hallo,

Sub aktivesBlattToPdf()

   ChDir ThisWorkbook.Path 'anpassen 'oder thisworkbook.path

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

       "_Bemusterung " & Format(Range("E12").Value, "000") & " - " & Range("D15").Value & ".pdf", Quality:=xlQualityStandard, _

       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

       False

End Sub

Gruß Uwe

[krautwiggla]

Vielen Dank :)

[Rabe]

Hi,

Ich kann das Feld leider nicht als Text markieren, da dieses Feld ein SVERWEIS Bezug ist.

ich habe es diese Woche schon in einem anderen Thema gefragt:
Inwiefern muß ein Bezugsfeld eine Zahl sein?
Der SVERWEIS funktioniert genauso mit einem Text.

[schauan]

Hallöchen,

Da wäre jetzt die Frage, ob mit SVERWEIS Bezug gemeint ist, dass der SVERWEIS in der Zelle steht oder sich auf die Zelle bezieht. Wenn er drin steht, geht eine Formatierung als Text natürlich nicht.

[Rabe]

Hi,

er schrieb ja:

Die Zeile ist benutzerdefiniert als "000" markiert, damit z.B. 001 angezeigt wird anstatt einfach nur eine 1.

deswegen ging ich davon aus, daß in der Zelle eine Zahl steht, die dreistellig angezeigt wird. Also keine Formel: =SVERWEIS()