Fehlersuche: pro 1000 Zellen eine neue Datei
20.08.2018 10:16:06
Dennis10ir
Ich habe mir einen Code hier aus dem Forum für meinen Zweck umgeschrieben:
Sub Schaltfläche1_Klicken()
Application.DisplayAlerts = False
Z = 1
For i = 1 To 15000 Step 1000
Range(Rows(i), Rows(i + 999)).Select
Selection.Copy
Sheets.Add
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Move
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="PFAD" & Z & ".csv", FileFormat:=xlCSV, Local:=True, _
CreateBackup:=False
ActiveWorkbook.Close
Sheets("Endtabelle").Select
Z = Z + 1
Next i
Application.DisplayAlerts = True
MsgBox "Alle Datensätze in einzelnen CSV-Dateien gespeichert"
End Sub
Den Pfad habe ich nur aus Datenschutz-Gründen entfernt, das funktioniert aber ganz normal
Folgende Probleme habe ich:
1. Excel legt einzelne Dateien mit jeweils 1000 Zeilen an. Fängt aber pro Datei wieder von vorne an. Somit habe ich immer die Zellen A1:A1000. Ab Datei 2 wird die Zelle A1 aber entfernt, sodass ich nur noch A2:A1000 erhalte (gewollt wäre A1001:A2000 in Datei 2).
2. Die Überschrift (Feld A1) soll in jeder Datei wiederholt werden. Danach sollen dann die jeweiligen Daten folgen (Datei 1: A1:A1000 ; Datei 2: A1 + A1001:A2000 ; Datei 3: A1 + A2001:A3000 ; u.s.w.)
3. Mit meinem Code nimmt er immer 15000 Datensätze, ist es auch möglich dass er einfach so viele Dateien anlegt, wie Daten vorhanden sind?
(Bsp. bei 9200 Daten sollen also 10 Dateien ausgegeben werden (9 Dateien mit jeweils 1000 Datensätzen und die letzte Datei mit den restlichen 200 Datensätzen))
Danke im Voraus!