Office: Datei in mehrere Dateien splitten

Hallo!
Ich bräuchte bitte eure Hilfe.
Ich arbeite mit Windows 10 und Office 2016 und habe kaum VBA Kenntnisse.

Ich möchte gerne eine Datei anhand der Spalte A in verschiedene Dateien splitten. (für die gleichen Werte je eine Datei)
Dabei sollte die Formatierung bei jeder Datei gleich sein wie in der Ausgangsdatei.
Ich habe schon einen Code aus einem Forum gefunden der genau so funktioniert, dass die Dateien richtig aufgeteilt und sogar die bedingten Formatierungen mit übernommen werden.
Auch soll nach dem letzten Eintrag die Zeile mit der roten Markierung und 7 Leerzeilen mit Rahmen in jeder Datei vorkommen, dies alles funktioniert.

Leider wird bei den Formeln aber nur der Wert und nicht die Formel selbst mitkopiert. Habe zb. in der Überschriftszeile eine Anzahl-Formel oder auch Ausgangsdateien, wo in jeder Zeile in der letzten Spalte gerechnet wird.

Kann mir jemand zeigen, wie ich diesen Code anpassen kann, dass:
Die Formeln in den gesplitteten Dateien auch vorhanden sind.
Das die Spaltenbreite genau so bleibt wie in der Gesamtliste.
Ich habe auch eine Beispieldatei angehängt.

Herzlichen Dank für Eure Bemühungen

Hier der bisherige Code:

PHP:

         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.Worksheets(1).UsedRange.EntireColumn.AutoFit
wb.SaveAs Filename:="E:HPSCANS" & "" & Zelle & ".xlsx", FileFormat:=51
wb.Close False
rng.AutoFilter
End If
Next
End With
Application.ScreenUpdating = True
End Sub


:)

 

Hallo,

es ist nicht sehr professionell gleichartige Daten in mehrere Dateien aufzuteilen. Das erschwert zum Beispiel Auswertungen ganz erheblich. Was versprichst du dir davon?

 

Die Dateien müssen dann einzeln an verschiedene emailadressen (Abteilungen) versendet werden.