Hallo Zusammen
Ich habe eine grosse Gesamttabelle, die ich gemäss Kriterium um Reihe K in einzelne Worksheets splitten soll.
Quasi zu Händen verschiedener Abteilungen.
Habe auf YouTube eigentlich die perfekte Lösung gefunden (https://www.youtube.com/watch?v=sCjqBlOk6f8&t=601s), ich muss dazu sagen ich bin Anfänger in VBA und sollte das für meinen Chef lösen.
Der Code ist wie folgt:
sub Split()
Dim wswb As String
Dim wssh As String
wswb = ActiveWorkbook.Name
wssh = ActiveSheet.Name
vcolumn = InputBox("Spalte?")
Columns(vcolumn).Copy
Sheets.Add
ActiveSheet.Name = "_Summary"
Range("A1").PasteSpecial
Columns("A").RemoveDuplicates Columns:=1, Header:=xlYes
vCounter = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To vCounter
vfilter = Sheets("_Summary").Cells(i, 1)
Sheets(wssh).Activate
ActiveSheet.Columns.AutoFilter field:=Columns(vcolumn).Column, criterial:=vfilter
Cells.Copy
Workbooks.Add
Range("A1").PasteSpecial
If vfilter <> "" Then
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\ split \" & vfiller
Else
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\ split \_empty"
End If
ActiveWorkbook.Close
Next i
Sheets("_Summary").Delete
End Sub
Das Problem liegt in der Zeile " ActiveSheet.Columns.AutoFilter field:=Columns(vcolumn).Column, criterial:=vfilter"
Hier erhalte ich ständig die Fehlermeldung " Anwendungs-oder objektdefinierter Fehler.
Vielen Dank schon mal vorab.
Gruss
Michael
|