Clever-Excel-Forum

Hi Leute! Ihr könnt mir ganz bestimmt schnell helfen. Habe folgenden Code, der mir ein einzelnes Excel_Blatt als pdf abspeichert und zwar mit dem Namen aus einer Zelle. Nur möchte ich jetzt dasselbe im Excel Format haben und nicht als PDF.

Sub Speichern()
   ChDir "K:\14_Holger\Angebotserstellung\Angebote_Zyklus\"
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "K:\14_Holger\Angebotserstellung\Angebote_Zyklus\Angebot_" & Range("A6").Value & ".pdf", OpenAfterPublish:=True
End Sub

Wie kann ich diesen Code ändern, damit ich danach eine Excel Datei habe und kein PDF.

Vielen Dank für eure Hilfe.

Probier dich mal an folgendem aus:

Gruß Silcono

Danke für deine Antwort. Kannst du mir auch sagen wie ich dort meine gewünschten Dateinamen eingeben kann, wie oben.

Genauso wie oben auch ;)

Grüße

Es funktioniert, jedoch speichert es mir wieder die ganze Excel Datei ab und nicht nur das aktuelle Tabellenblatt. :19:

LG Holger

So sollte es funktionieren:


Grüße

Vielen Dank silcono. Funktioniert jetzt prima.

Schöne Grüße