vba code Tabelle kopieren in neue Datei einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() '#### anpassen #### Const SP_PFAD As String = "C:\Verzeichnis\Ordner\" Const SP_NAME As String = "CSVexport" '#### Ende #### Dim WbQ As Workbook Dim WbZ As Workbook Dim WsQ As Worksheet Dim WsZ As Worksheet Set WbQ = ThisWorkbook Set WsQ = WbQ.Worksheets(3) Set WbZ = Workbooks.Add Set WsZ = WbZ.Worksheets(1) WsQ.UsedRange.Copy WsZ.Cells(1, 1).PasteSpecial xlPasteValuesAndNumberFormats WbQ.Worksheets(2).UsedRange.Clear WbQ.Close True WbZ.SaveAs Filename:=SP_PFAD & SP_NAME, FileFormat:=6 WbZ.Close True End Sub

Hallo!
Allerdings enthält die neue Mappe 3 Tabellen
Ja, ich habe ignoriert, dass ich beim Erstellen neuer Mappen immer nur ein Blatt anlegen lasse, der Standardwert ist aber 3 - das dürftest Du nicht geändert haben (in den Optionen).
Abhilfe schafft hier entweder besagte Option zu ändern, oder Du wirfst alle Blätter außer #1 in der Ziel-Mappe raus, also dann so ergänzt

Sub a()
'#### anpassen ####
Const SP_PFAD As String = "C:\Verzeichnis\Ordner\"
Const SP_NAME As String = "CSVexport"
'#### Ende ####
Dim WbQ As Workbook
Dim WbZ As Workbook
Dim WsQ As Worksheet
Dim WsZ As Worksheet
Dim i&
Set WbQ = ThisWorkbook
Set WsQ = WbQ.Worksheets(3)
Set WbZ = Workbooks.Add
Set WsZ = WbZ.Worksheets(1)
WsQ.UsedRange.Copy
WsZ.Cells(1, 1).PasteSpecial xlPasteValuesAndNumberFormats
WbQ.Worksheets(2).UsedRange.Clear
WbQ.Close True
Application.DisplayAlerts = False
For i = 2 To WbZ.Worksheets.Count: WbZ.Worksheets(i).Delete: Next i
Application.DisplayAlerts = True
WbZ.SaveAs Filename:=SP_PFAD & SP_NAME, FileFormat:=6
WbZ.Close True
End Sub

wird komischerweise nicht gespeichert
Kann ich so noch nicht nachvollziehen, klappt bei mir einwandfrei. Endet Deine Pfadangabe auch mit einem "\"?
LG
Michael

Marvin!
Habe die Formel in Tabellenblatt 3 über Codeanzeigen eingefügt
Es handelt sich a) um keine Formel, sondern ein Makro und b) nein, der Code muss in der Quell-Mappe (aus der Du dann das eine Daten-Blatt in eine CSV exportieren möchtest) in ein allgemeines Modul. D.h. in der Quell-Mappe den VB-Editor mit Alt + F11 aufrufen -- Einfügen -- Modul; im rechten Fenster dann den Code einfügen.
Vielleicht hängt es auch damit zusammen, das Tabellenblatt 3 die Werte durch Formeln aus einem anderen Blatt bekommt
Dein Problem ist aktuell, das Speichern des exportierten Blattes als CSV, so ich das verstanden habe. Mit Blattformeln hat das nichts zu tun; unabhängig davon übernehme ich die Werte Deines Tabellenblatt3 direkt und nicht die Formeln - es werden die angezeigten Werte in das neue Blatt eingefügt.
Der Code ist von mir getestet und funktioniert bei mir einwandfrei; evtl. lad noch eine Bsp-Mappe hoch, anders kann ich nicht helfen, weil ich nicht weiß, was Du genau machst.
LG
Michael

Beliebteste Forumthreads (12 Monate)

vba code Tabelle kopieren in neue Datei einfügen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

398 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

vba code Tabelle kopieren in neue Datei einfügen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

398 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread