Office: (Office 2007) [Makro] einzelnes Tabellenblatt speichern

Hi,

das Problem ist eigtl. ziemlich bekannt und sollte mit anstädigem Suchen gelöst werden können, aber ich versteh die meissten Codes leider nicht und kann Sie deshalb auch kaum an meine Situation anpassen. Sorry!

Also ich habe eine Excel Datei, bestehend aus 6 Tabellenblättern.
Ich möchte aber nur 1 Tabellenblatt speichern (zB. Rechnung1).

Ich habs jetzt so gemacht, dass ich die anderen Tabellenblätter beim Speichern lösche (also quasi alle löschen, bis auf das eine,was ich brauche):
Reihenfolge der Blätter: Start, Kunden, Rechnung1, Rechnung2, Rechnung3, Rechnung4

PHP:

         Sub Schaltfläche2_SpeichernUnter1()
Application.DisplayAlerts = False
Dim s As String
s = "C:\Rechnungen\" & Format(Range("F19")) & " " & Format(Range("F18")) & ".xlsx"
ActiveSheet.Shapes("Schaltfläche 1").Delete
ActiveSheet.Shapes("Schaltfläche 2").Delete
ActiveSheet.Shapes("Schaltfläche 3").Delete

Worksheets("Kunden").Delete
Worksheets("Rechnung2").Delete
Worksheets("Rechnung3").Delete
Worksheets("Rechnung4").Delete


Range("F18").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("A12:D12").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("H:J").Select
Selection.Style = "Normal"
Range("A12:C12").Select

Worksheets("Start").Delete


ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

End Sub


:)

 

Hallo, *Smilie

wenn Du ein einzelnes Tabellenbaltt speichern möchtest kannst Du es so machen:

Code:

Tabellenblatt-, Pfad- und Dateiname natürlich noch anpassen.

 

danke erstmal für die rasche antwort.

der gibt mir aber leider ein Syntaxfehler an, wieso?

 

Hallo, *Smilie

wie sieht denn Dein Code aus?

Servus
Case

 

PHP:

         Public Sub Test()
ThisWorkbook.Worksheets("Rechnung1").Copy
ActiveWorkbook.SaveAs "C:\Rechnungen\" & "Format(Range("F19")) & " " & Format(Range("F18")) & ".xlsx"
ActiveWorkbook.Close False
End Sub


 

Hallo, *Smilie

das funzt bei mir, wenn Du hier...
Code:

... vor Format das Hochkomma rausnimmst.

Die Frage ist natürlich noch, was in "F19" bzw. "F18" steht.

Servus
Case

 

Ja super klappt. Aber nur noch eine kleine Verbesserung wenn es geht.

Bis jetzt ist es so:
Der speichert mir das Tabellenblatt ab, schliesst sie und zeigt mir meine alte Datei wieder an.

Was muss ich noch eingeben, damit er nach dem Speichern die alte Excel Datei automatisch schliesst (Änderungen NICHT übernehmen)? und mir meine neue Datei anzeigt?

edit:
und am allerbesten wäre es ja noch, wenn er das ganze als PDF-Datei speichern könnte!? oder sollte ich dafür lieber einen weiteren thread aufmachen?

 

Hallo, *Smilie

dann schreibe statt...
Code:

...die Zeile so:
Code:

"ThisWorkbook" bezieht sich immer auf die Datei aus der das Makro gestartet wurde.

PDF speichern wurde auch schon oft behandelt. Schau mal in der Forum-Suche, oder mach, wenn Du es nicht hin bekommst einen neuen Thread auf.

Servus
Case

 

Danke, hast mir sehr geholfen. Ich erstelle ein neues Thema wegen dem PDF Speichern.