Datei Splitten.

[sandro22]

Tach zusammen.

Ich versuche eine Datei zusplitten mit dieser Formel.

Code: Alles auswählen

Sub splitten()

' Makro1 Makro
' Makro am 15.12.2003 von andreas e
'Erweiterung: 25.08.2008 Author: christoph k.

Application.DisplayAlerts = False
Z = 1
For i = 2 To 28000 Step 500
Range(Rows(1), Rows(1)).Select
Selection.Copy
Sheets.Add
Range("A1").Select
ActiveSheet.Paste
Sheets(2).Activate
Range(Rows(i), Rows(i + 499)).Select
Selection.Copy
Sheets(1).Activate
''Sheets.Add
Range(Rows(2), Rows(2)).Select
ActiveSheet.Paste
ActiveSheet.Move
ChDir "D:\"
'''+++++++++++++++++!!!!!Achtung Pfad anpassen !!!!!+++++++++++++++++++

ActiveWorkbook.SaveAs Filename:="C:\split" & Z & ".txt", FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.Close

Z = Z + 1
Next i
Application.DisplayAlerts = True
End Sub 

Die ist zwar für excel dachte aber die könnte ja im Openoffice auch Funktionieren ohne erfolg.

Gibt es das auch für Openoffice?

[Thomas Mc Kie]

--> viewforum.php?f=18