hi...
probier meine Änderung im Post hiervor... klappt eigentlich gut...
für den button wäre es...
Private Sub CommandButton1_Click()
Range("E7:E1048576").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
es muss natürlich auch commandbutton1 sein...
__________________
Der Klügere gibt nach... deshalb regieren die Dummen die Welt 
|