Bereich in Spreadsheet sortieren, VBA
20.09.2004 13:01:41
Lupus
mit folgendem Code möchte ich in einem Userform-Spreadsheet einen bestimmten Bereich sortieren:
Sub Sort_column_D()
Dim lastRow As Long
lastRow = variable_5 + 2 'variable_5 ist Public
frmForm_1.Spreadsheet1.Worksheets("Tabelle1").Range(Cells(3, 1), Cells(lastRow, 5)).Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Leider erhalte ich folgende Fehlermeldung:
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Bitte um Hilfe.
Gruß Lupus