Export - Keine Übernahme d. Gruppierung
19.12.2005 12:03:07
Simon
Beim Folgenden Skript übernimmt mir Excel die Gruppierungen nicht. Warum nur?
Möchte einfach aus dem Master-Excel-File, nach einer bestimmten Filterung eine neue Arbeitsmappe (mit dem Filternamen) erzeugen.
Sub Simon2()
Dim rng As Range
Dim sFilter As String
Application.ScreenUpdating = False
sFilter = InputBox( _
prompt:="Name des Bearbeiters eingeben:", _
Default:="Ware3")
If sFilter = "" Then Exit Sub
Selection.AutoFilter Field:=2, Criteria1:=sFilter
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Dokumente und Einstellungen\SK\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\SK\Desktop\" + sFilter + ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub
Danke für die Hilfe
mfG
Simon