Zeilen in neuen Dateien speichern
Christoph
Hi Frankie,
ich geh mal davon aus, dass in der ersten Zeile eine Überschrift steht. Diese wird in die neuen Dateien ebenfalls kopiert. Außerdem werden die neuen Dateien im gleichen Verzeichnis wie die "Master-Datei" gespeichert. Die Daten stehen in der Master-Datei in einer Tabelle mit dem Namen "Tabelle1".
Wenn es im entsprechenden Verzeichnis schon Dateien mit dem zu erzeugenden Datei-Namen gibt, werden diese ungefragt überschrieben.
Dann funktioniert das z.B. so:
Gruß
Christoph
('ne Rückmeldung wäre nett)
Option Explicit
Sub VerteilDat()
Dim LRow As Integer, i As Integer, j As Integer, ZAnf As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ZAnf = 2
With ThisWorkbook.Sheets("Tabelle1")
.Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LRow
For j = i To LRow
If .Cells(j + 1, 1) <> .Cells(i, 1) Then
Workbooks.Add
.Rows(1).Copy Cells(1, 1)
.Rows(ZAnf & ":" & j).Copy Cells(2, 1)
ActiveWorkbook.SaveAs (Cells(2, 1).Value)
ActiveWorkbook.Close
i = j
ZAnf = j + 1
Exit For
End If
Next j
Next i
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub