VBA-Hilfe
08.01.2020 15:25:33
Dave
bin totaler VBA-Laie und habe daher eine Frage zu einem funktionierenden VBA-Code (gefunden im _
Internet). Dieser sieht so aus:
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
Dieser Code splittet die Datei mit den Daten aus der Spalte A in jeweils neue Dateien, wobei der Dateiname auch aus der Spalte A entnommen wird. Allerdings möchte ich Daten und den Dateiname - in meinem Fall - aus der Spalte DS entnehmen. Kann mir da jemand helfen?