Problem mit Makro

[holger123]

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.

[silcono]

Probier dich mal an folgendem aus:

Code:

ActiveSheet.SaveAs "Pfad\Mappe.xls"

Gruß Silcono

[holger123]

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

[silcono]

Code:

ActiveSheet.SaveAs "K:\14_Holger\Angebotserstellung\Angebote_Zyklus\Angebot_" & Range("A6").Value & ".xls"

Genauso wie oben auch ;)

Grüße

[holger123]

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

LG Holger

[silcono]

So sollte es funktionieren:

Code:

ActiveSheet.Copy
ActiveWorkbook.SaveAs "K:\14_Holger\Angebotserstellung\Angebote_Zyklus\Angebot_" & Range("A6").Value & ".xls"

Grüße

[holger123]

Vielen Dank silcono. Funktioniert jetzt prima.

Schöne Grüße