Imports Microsoft.Office.Interop
 
       Dim vEx As New Excel.Application
        vEx.Workbooks.Open(pfad & drxls)
 
        With CType(vEx.ActiveWorkbook.Worksheets("2007"), Excel.Worksheet)
            .Cells.Select()
            .Selection.Sort(Key1:=.Range("A2"), Order1:=.xlAscending, _
              Header:=.xlGuess, _
                OrderCustom:=1, MatchCase:=False, Orientation:=.xlTopToBottom, _
                DataOption1:=.xlSortNormal)
        End With
 
        vEx.Workbooks(1).Save()
        vEx.Quit()
        vEx = Nothing

Freundliche Gr??e
Detlef