Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus mehreren Blättern in CSV

Daten aus mehreren Blättern in CSV
17.03.2020 20:31:51
AG1983
Hallo zusammen!
Ich habe eine Excel-Datei mit 199 Arbeitsblättern. Alle Blätter sind gleich aufgebaut. Manche Blätter sind ausgeblendet, da die Daten nicht aktuell sind und deshalb werden momentan nicht benötigt.
Ich brauche ein Makro, welches die Daten aus Blättern (Eingeblendet) nacheinander in ein extra Blatt zusammenfügt und dann als CSV-Datei abspeichert.
Danke!
Hier Bsp.Datei
https://www.herber.de/bbs/user/135924.xlsx
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus mehreren Blättern in CSV
17.03.2020 20:55:41
onur
Hier kannst du um Hilfe bei Problemen bitten, aber nicht irgend ein Makro bestellen wie eine Pizza.
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige