Habe unteres Makro,zum sortieren mit Autofilter.
Bei mir zu Hause funkt.es einwandfrei.
Nur in der Firma verlangt es für "xlSortOnValues" eine Variable.
Wieso ? - Warum ?
Eventuell die richtige Variable
Gruß
Heinz
Option Explicit
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="vetro"
ActiveWorkbook.Worksheets("Üst").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Üst").AutoFilter.Sort.SortFields.Add Key:=Range( _
"B2:B154"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Üst").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Protect Password:="vetro"
Application.ScreenUpdating = True
End Sub