VBA - Excel Spalte sortieren
philg
ich habe einen VBA-Code, der mir eine Access-Tabelle in eine Excel-Datei kopiert. Soweit sogut, das funktioniert auch gut, nur möchte ich gerne, dass er mir die erste Spalte (A - laufende Nummern) gleich absteigend sortiert.
Kann mir jemand mit dem passenden Code aushelfen? Daaanke vorab!
So sieht mein VBA-Code aus:
Option Compare Database
Sub neu()
Dim xlAnw As Object
' Export
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Master_Schedule", "C:\Users\ _
gaertner\Desktop\Datumtest.XLS", , "Tabelle1"
' Nun werden die Daten in Excel formatiert
Set xlAnw = CreateObject("excel.application")
xlAnw.Visible = False ' läuft unsichtbar im Hintergrund
xlAnw.Workbooks.Open FileName:="C:\Users\gaertner\Desktop\Datumtest.XLS"
xlAnw.Sheets("Tabelle1").SELECT
xlAnw.Rows("1:1").SELECT
xlAnw.Selection.Font.Bold = True ' Beispiel für Schrift = Fett
xlAnw.Cells.SELECT
xlAnw.Selection.Columns.AutoFit ' Beispiel für optimale Zellenbreite
xlAnw.activeWorkbook.Save
xlAnw.activeWorkbook.Close
xlAnw.Quit
Set xlAnw = Nothing
End Sub