Range funktioniert nicht bei auto openGelöst
Hier ist der Code, dass Ihr Euch das besser vorstellen könnt: Sub sort() ' ' sort Makro ' ' Range("A8:A15773").Select ActiveWorkbook.Worksheets("HS2_lower_kurz").sort.SortFields.Clear ActiveWorkbook.Worksheets("HS2_lower_kurz").sort.SortFields.Add Key:=Range( _ "A8"),