|
Hallo zusammen,
ich habe folgende Datenlage:
Merkmal Name Vorname Geb-Datum
Alle Personen, die ein gleiches Merkmal haben soll mittels VBA in eine eigene Datei kopiert werden.
Dazu nutze ich:
Private Sub CommandButton1_Click()
Dim v, D As Object, wb As Workbook
Application.ScreenUpdating = False
Set D = CreateObject("scripting.dictionary")
With Tabelle1 'ggf. ANPASSEN !!!!
If .AutoFilterMode Then .AutoFilterMode = False
With .Range("A1").CurrentRegion
For Each v In .Columns(1).Offset(1).Value
If v <> "" Then D(v) = 0
Next
For Each v In D.Keys
Set wb = Workbooks.Add(xlWBATWorksheet)
.AutoFilter 1, v
.Copy wb.Sheets(1).Cells(1)
With wb.Sheets(1)
.Name = v
.PageSetup.FitToPagesTall = 1
.PageSetup.FitToPagesWide = 1
.Cells.Font.Name = "Calibri"
.Cells.Font.Size = 11
.UsedRange.EntireColumn.AutoFit
End With
wb.SaveAs .Parent.Parent.Path & "\" & v & ".xlsx", xlOpenXMLWorkbook
wb.Close False
Next
.AutoFilter
End With
End With
Leider wird aber nur der Name der betreffenden Person und das Merkmal in die neue Datei übertragen. Ich möchte aber auch die anderen Daten kopieren. Wo muss ich diese Änderung vornehmen.
Vielen Dank für die Hilfe
Christian
|