Ich habe folgenden Code im Netz gefunden, der auch super funktioniert, er erstellt bzw solitttet die Dateien un dlegt sie sauber ab. Aber leider kopiert er nur die Werte und Formatierungen in die neuen Dateien.
Ich brauche z.B. noch, das die Formeln und auch z.B. ausgeblendete Zeilen mit in die neue Datei übernommen werden. Ist das möglich?
Sub Test()
Dim MyDic As Object, rng As Range, Zelle As Range, ws As Worksheet, wb As Workbook
Application.ScreenUpdating = False
Set MyDic = CreateObject("Scripting.Dictionary")
Set ws = ActiveSheet
With ws
Set rng = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
For Each Zelle In rng.Offset(1, 0)
If MyDic(Zelle.Value) = "" And Not IsEmpty(Zelle) Then
MyDic(Zelle.Value) = 1
rng.AutoFilter field:=1, Criteria1:=Zelle
Set wb = Workbooks.Add
.UsedRange.SpecialCells(xlCellTypeVisible).Copy wb.Sheets(1).Cells(1, 1)
wb.SaveAs Filename:=ThisWorkbook.Path & "\" & Zelle & ".xlsx", FileFormat:=51
wb.Close False
rng.AutoFilter
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Besten Dank vorab :-)Viele Grüße
Martin