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...
__________________
Der Klügere gibt nach... deshalb regieren die Dummen die Welt 
|