habe noch ein problem...
mit folgendem code filtere ich Daten aus einem sheet und copiere sie in ein anderes. Nach der ausführung hat sich die arbeitsmappe aber auf 36MB vergrößert, so das sich das öffnen und schließen extrem langsam gestalltet, lasse ich die Filterung raus, ist es wie gewohnt schnell. Den Code lasse ich über ein cmdButton in der UF ablaufen.
Sub filter_Per1()
Sheets("Personal").Select
Columns("D:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Wohnbereich 1"
Range("A:F").Select
Selection.Copy
Sheets("WB1_Pers").Select
Range("A1").Select
ActiveSheet.Paste
Range("A2").Select
Sheets("Personal").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
Zur Erklärung, gebe Personaldaten in einem Sheet("Personal") über eine UF ein, dieses Personal ist in Verschiedenen Bereichen eingesetzt. Ich habe eine Übersicht der des gesamten Personal ("Personal"), hieraus filtere ich die einzelnen Bereiche raus und schreibe dies in verschiedenen andere Blätter (18Stück).
Gibtg es evtlö. eine andere Möglichkeit, außer Autofilter?
Gruß und Dank
Holger