Laufzeitfehler 1004 .Apply
15.02.2021 10:55:27
Sascha
anbei mein Code zur Sortieren von Einträgen in der Excelliste beim Betätigen eines Buttons in der Liste:
Sub Liste_sortieren()
' Liste_sortieren Makro
' Sortieren der Eintr?ge in der Aufgabenliste nach festgelegten Kriterien ...
' Tastenkombination: Strg+l
Application.ScreenUpdating = False
Rows("13:700").Select
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"A13:A700"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"in Arbeit,startbereit,unterbrochen,beendet", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"B13:B700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"C13:C700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort.SortFields.Add Key:=Range( _
"D13:D700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Aufgabenvorrat").Sort
.SetRange Range("A13:Z700")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A10").Select
Application.ScreenUpdating = True
End Sub
Dieser Code hat einwandfrei funktioniert. Beziehungsweise funktioniert dieser in einer anderen Liste wunderbar (unterschiede sind nur andere Benennung der Worksheets, und eine Range von "12:700"
Warum kommt jetzt ein Laufzeitfehler 1004 bei diesem Code und warum wird .Apply gelb markiert. Ich verstehs nicht.
Danke für die Hilfe.
LG Sascha