AW: Daten aus mehreren Blättern in CSV
18.03.2020 10:58:28
Werner
Hallo,
als erstes leg dir bitte in deiner Datei ein neues Blatt an und benenne es um in CSV_Export
Dann das Makro in ein allgemeines Modul:
Sub CSV_erstellen()
Dim ws As Worksheet, loLetzte As Long
Dim loLetzteZiel As Long, strFilename As String
strFilename = ThisWorkbook.Path & "\CSV_Export_Datei.csv"
Application.ScreenUpdating = False
Worksheets("CSV_Export").Cells.ClearContents
For Each ws In ThisWorkbook.Worksheets
If ws.Name "CSV_Export" Then
With ws
If .Visible Then
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(2, "A"), .Cells(loLetzte, "O")).Copy
With Worksheets("CSV_Export")
loLetzteZiel = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
If .Cells(1, "A") = "" Then loLetzteZiel = 1
.Cells(loLetzteZiel, "A").PasteSpecial Paste:=xlPasteValues
End With
End If
End With
End If
Next ws
Worksheets("CSV_Export").Copy
ActiveWorkbook.SaveAs Filename:=strFilename, FileFormat:=xlCSVUTF8, local:=True
ActiveWorkbook.Close False
Application.CutCopyMode = False
End Sub
Die CSV-Datei wird im gleichen Verzeichnis abgelegt in dem auch die Datei mit dem Makro ist.
Gruß Werner