Hallo zusammen,
Bei diesem Code kommt immer der Laufzeitzfehler '-2147417848 (80010108)'
Jedoch erst seit 2 Tagen. Vorher ging es ohne Probleme. Den Code wurde nicht verändert..
Was könnte es sein?
"Die Methode 'Âpply' für das Objekt 'Sort' ist fehlgeschlagen"
Code:
Private Sub cb_sort_Click()
If cbEdit Then
lRow = Val(cbEdit.Caption)
Else
lRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
End If
Range("A2:Q" & lRow).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A2" & lRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("D2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:Q" & lRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Grüsse
Hunter
|