Hallo,
wie kann ich aus einer .xls Datei ein einzelnes Tabellenblatt als neue .xls Datei speichern. (makro? ; VBA ?)
Es sollen die Spalten-,Zeilengrößen und die Werte, aber keine Button oder Dropdownlisten gespeichert werden.
Also das aktuell sichtbare Tabellenblatt mit der kompletten Formatierung wie Seitenlage, Randabstände.
gruß pitti
wie kann ich aus einer .xls Datei ein einzelnes Tabellenblatt
als neue .xls Datei speichern. (makro? ; VBA ?)
Es sollen die Spalten-,Zeilengrößen und die Werte, aber keine
Button oder Dropdownlisten gespeichert werden.
Also das aktuell sichtbare Tabellenblatt mit der kompletten
Formatierung wie Seitenlage, Randabstände.
Hi pitti,
klar geht das auch mit VBA, aber probier doch erstmal (ungetestet),
Rechtsklick unten auf den Tabellenblattnamen, Verschieben, Kopie erstellen ankreuzen und in neue Mappe auswählen.
Gruß
Reinhard
Hallo Reinhard,
danke fürs Antworten. Ich suche eine Lösung, die per Button oder direkt mit VBA funktioniert.
Ich habe mir eine Art Nebenkostenabrechnung mit mehreren Tabellenblättern gebaut in der ich die einzelnen Mieter (einzelnes Tabellenblatt) Abrechne und Drucke. Nun möchte ich dieses Tabellenblatt mit der Abrechnung des Mieters anschließend als eigene xls-Datei speichern.
Also rech.xls hat ca.10 Tabellenblätter mit verschiedenen Listen und Parameter, eins davon ist das Blatt „neko“ und dies möchte ich nach dem Drucke speichern, am besten wohl mit VBA.
Ich hatte wohl mein Problem nichtb gut geschildert ;o(
gruß pitti
Ich habe mir eine Art Nebenkostenabrechnung mit mehreren
Tabellenblättern gebaut in der ich die einzelnen Mieter
(einzelnes Tabellenblatt) Abrechne und Drucke. Nun möchte ich
dieses Tabellenblatt mit der Abrechnung des Mieters
anschließend als eigene xls-Datei speichern.
Also rech.xls hat ca.10 Tabellenblätter mit verschiedenen
Listen und Parameter, eins davon ist das Blatt „neko“ und dies
möchte ich nach dem Drucke speichern, am besten wohl mit VBA.
Hi pitti,
ungetestet, probiers mal so:
Sub DruckenSpeichern()
Dim NeuerName
NeuerName = Range(„A1“)
Sheets(„neko“).Copy
ActiveSheet.PrintOut
ActiveWorkbook.SaveAs NeuerName
End Sub
Gruß
Reinhard
das ging aber schnell.
habs getestet, ist mit 1 Zeile so gut wie bei meiner Makroaufzeichnung, nur habe ich dafür ca. 20 Zeilen.
Hat gedruckt und gespeichert aber meine Button’s sind mitgespeichert und es sind die ganzen Datenverknüpfungen da. Und eine Dropdonliste.
Dafür sind die Ausdruckformate so wie im Orginalblatt.
Gruß helmut
habs getestet, ist mit 1 Zeile so gut wie bei meiner
Makroaufzeichnung, nur habe ich dafür ca. 20 Zeilen.
Hat gedruckt und gespeichert aber meine Button’s sind
mitgespeichert und es sind die ganzen Datenverknüpfungen da.
Und eine Dropdonliste.
Dafür sind die Ausdruckformate so wie im Orginalblatt.
Gruß helmut
Hi Helmut,
porbiers mal so wenn dich die Buttons stören:
Sub DruckenSpeichern()
Dim NeuerName
NeuerName = Range("A1")
Sheets("neko").Copy
For Each Bild In ActiveSheet.Shapes
Bild.Delete
Next Bild
ActiveSheet.PrintOut
ActiveWorkbook.SaveAs NeuerName
End Sub
Wenn die dateiverknüpfungen auch weg sollen melde dich nochmal.
Gruß
Reinhard
man(n) sollte immer jemand fragen, der sich mit sowas auskennt.
also, es klappt.
Sub Speichern()
Dim NeuerName
NeuerName = Worksheets("para").Range("e7").Value
Blatt = Worksheets("para").Range("e10").Value
Sheets(Blatt).Copy
For Each Bild In ActiveSheet.Shapes
Bild.Delete
Next Bild
'ActiveSheet.PrintOut
ActiveWorkbook.SaveAs NeuerName
ActiveWorkbook.Close
End Sub
Alle „bilder“ sind weg, nur die Verknüpfungen sind halt noch da.
Da die „NeuerName“ datei noch aktiv war konnte ich -natürlich- auf einmal nicht mehr auf „para“ zugreifen deswegen -.Close-
Gruß helmut = pitti ;o)