Sheets("Daten").Select
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=c(j)
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
MsgBox ("test1")
Workbooks.Add
ActiveSheet.Paste
in c(j) steht das aktuelle Kriterium. Er positioniert den Cursor zwar in A1, selektiert aber nicht den Bereich bis zur letzten Zelle. Ich stehe da wirklich vor einem Rätsel. Der Cursor bleibt einfach stur in der ersten Zelle stehen und selektiert nicht den gewünschten Bereich aus.
Danke für Eure Hilfe.
Andreas