Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open()
Sheets("Tabelle1").Columns(1).Sort Key1:=Range("A2"), _
Order1:=xlAscending, Header:=xlGuess
End Sub