Fehlermeldung beim Code zum Soritieren
28.11.2019 17:52:06
Sif
ich habe ein kleines Problem mit einem Makro. Ich möchte gerne, dass ein bestimmter Bereich sortiert wird. Ich habe mit einen Code (u.a. durch den Macro-Recorder) gebastelt. Allerdings bekomme ich im letzten Schritt bei .Apply einen Laufzeitfehler 1004 angezeigt. Könnt ihr mir hier helfen? Und wie kann ich den Code vereinfachen bzw. kürzer schreiben. Die Vorschläge im Forum zu diesem Thema habe ich schon versucht, jedoch kamen hier ebenfalls Fehlermeldungen.
Vielen Dank im voraus
Vg
Sub Sort()
Dim x As Long
With Sheets("Tabelle1")
x = .Cells(.Rows.Count, 2).End(xlUp).Row
ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort.SortFields.Add2 Key _
:=Range("$A$8:$NH$" & x), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub