PDA

Vollständige Version anzeigen : Speichern eines Tabellenblatts als CSV


luetko
06.05.2009, 08:01
Hallo Excel-Fan-Gemeinde,

ich habe folgendes kleines Problem und bitte Euch um Eure Hilfe:

In einem Workbook mit mehreren Sheets soll ein einziges Sheet in eine neue Datei kopíert werden. Die neue Datei soll das Dateiformat "CSV" erhalten.

Mit nachfolgendem Code wird allerdings das gesamte Workbook als CSV kopiert.

Sub Speichern()

Sheets("TG_Bu").Select
ThisWorkbook.SaveCopyAs Filename:= _
"U:\Kassenabrechnung_SBK\H 20\TG_n_gelesen\" & Format("TG_Bu_") _
& Format(Now, "YY_MM_DD") & ".csv"

End Sub

Wie schaffe ich es, dass lediglich das Sheet "TG_Bu" als neue Tabelle im CSV-Format gespeichert wird?

Danke für Eure Hilfe

Viele Grüße

Luetko

chris-kaiser
06.05.2009, 08:15
hiho


Sub Speichern()
Sheets("TG_Bu").Copy
ThisWorkbook.SaveAs Filename:= _
"U:\Kassenabrechnung_SBK\H 20\TG_n_gelesen\" & Format("TG_Bu_") _
& Format(Now, "YY_MM_DD") & ".csv"
ActiveWorkbook.Close
End Sub

luetko
06.05.2009, 12:16
Hallo,

besten Dank für die schnelle Antwort.

Habe die Änderungen ins VBA eingebaut, allerdings ohne den erhofften Erfolg.

Jetzt wird aus das Sheet "TG_Bu" als neue Mappe kopiert. Im weiteren Verlauf wird das ursprüngliche Workbook insgesamt im CSV-Format abgespeichert und bei der neuen Mappe wird nach "Speichern unter" abgefragt.

Nach meiner Vorstellung sollte nur das Sheet "TG_Bu" als neue Mappe im CSV unter ....... gespeichert werden. Die ursprüngliche Mappe muss im xls-Format erhalten bleiben.

Gruß
Luetko

IngGi
06.05.2009, 12:47
Hallo Luetko,

da ist Chris ein klitzekleiner Fehler unterlaufen. Ersetze ThisWorkbook.SaveAs durch ActiveWorkbook.SaveAs.

Gruß Ingolf

luetko
06.05.2009, 13:29
Hallo Chris, Hallo Ingolf,

vielen Dank für Eure Hilfe.
Es funktioniert bestens.

Manchmal liegt´s einfach nur an den kleinen Dingen.

Viele Grüße

Luetko

chris-kaiser
06.05.2009, 13:33
Hallo Ingolf , hallo Luetko

Stimmt, hatte ich nicht getestet :rolleyes:
sry