Dim objExcel, objWorkbook, objWks
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = False
Set objWorkbook = .Workbooks.Open("c:\test.xls")
Set objWks = objWorkbook.Sheets("Tabelle1")
      With objWks
         .Columns("A:A").HorizontalAlignment = -4131
         .Columns("B:D").NumberFormat = "m/d/yyyy"
         .Columns("E:AV").NumberFormat = "#,##0.00"
         .Range("A44:AV77").Sort objWks.Range("A46"), 1, , , , , , 1, 1, False, _
           1
      End With
      objWorkbook.Close True   ' speichern und schließen
      .Quit
   End With
   MsgBox "fertig"