Sortierung funktioniert nicht
Heinzs
mit folgendem Code versuche ich ein Sheet zu sortieren:
Sheets("Details nichtjahresübergreifend").Select
Cells(2, 1).Select
ActiveWorkbook.Worksheets("Details nichtjahresübergreifend").QueryTables(1). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Details nichtjahresübergreifend").QueryTables(1). _
Sort.SortFields.Add Key:=Range("A:A"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Details nichtjahresübergreifend").QueryTables(1). _
Sort.SortFields.Add Key:=Range("H:H"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Details nichtjahresübergreifend").QueryTables(1 _
).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sowohl Spalte A als auch H enthalten numerische Werte.
Die Tabelle geht von Spalte A - AT
Auch Änderungen der Rages von H:H auf H2:H5000 brachte keine Erfolge.
Weiß jemand was ich falsch mache?
Danke für Hilfe!
MfG Heinz