Hallo zusammen,
leider werde ich auch aus alten Beiträgen im Forum nicht schlau. In der Zeile .SetRange bleibt das Makro immer mit Laufzeitfehler 438 hängen.
Option Explicit
Dim i As Long, z As Long, y As Long, x As Long, c As Long
Dim wks_gr As Worksheet
Set wks_gr = Worksheets("general_report")
'benutzte Zeilenzahl ermitteln
z = Worksheets("general_report").Cells(Rows.Count, 1).End(xlUp).Row
'benutzte Spaltenzahl ermitteln
c = Worksheets("general_report").Cells(1, Columns.Count).End(xlToLeft).Column
'Spalte Time Spent finden
y = Worksheets("general_report").Application.Match("Time Spent", Worksheets("general_report").Rows(1), 0)
wks_gr.Sort.SortFields.Add Key:=wks_gr.Cells(1, y + 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("general_report").Sort
.SetRange = wks_gr.Range(wks_gr.Cells(1, 1), wks_gr.Cells(z, c))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Vielleicht bin ich auch einfach mal wieder zu blind.
Vielen Dank für eure Hilfe.
Gruß,
Katharina