Private
Sub
cb_aktiv_Click()
If
cbEdit
Then
lRow = Val(cbEdit.Caption)
Else
lRow = ActiveSheet.Cells(Rows.Count, 4).
End
(xlUp).Row
End
If
Range(
"A10:O"
& lRow).
Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range(
"A10:O"
& lRow _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With
ActiveSheet.Sort
.SetRange Range(
"A10:O"
& lRow)
.Header = xlYes
.MatchCase =
False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End
With
Unload
Me
End
Sub