[eitch100]

Hi...
hmmmm... das ist eigentlich ok so...
verstehe nicht wirklich, warum das nicht funktioniert... vielleicht kann excel bei dir den zeilenumbruch nicht interpretieren...

mach hieraus...

ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("E7:E1048576" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

mal das...

ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("E7:E1048576), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

also das muss dann ALLES in EINER zeile stehen... ohne den unterstrich...

EDIT: habe dir eine persönliche nachricht geschickt...