hi....
hmmmm... kann ich dir nicht genau sagen... versuch mal diesen code...
Private Sub CommandButton1_Click()
Range("E7:XFD1048576").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("E7:E1048576" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("E7:XFD1048576")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
oder poste mal deinen code.... vielleicht irgendeine leertaste oder end sub zu viel... keine ahnung...
und zu endlos... ab excel 2007 hat excel 1048576 zeilen und 16384 spalten (also Spalte XFD).... endloser geht es nicht...
EDIT: hab es bei mir getestet... läuft... hast du vielleicht mehrere codes laufen oder noch den entwurfmodus aktiv?