Sortieren mit Makro
Marc
ich habe mir ein Add Inn zusammengeschustert (mit Makro Recorder) der Daten immer nach dem gleichen Verfahren umherschiebt.
Nun muss ich aber Spalte H noch sortieren, aufsteigend nach Alphabet.
Der Makrorecorder schmeisst mir da aber nur Müll aus (mit Dateinamen) sodass ich das nur für _
diese Datei verwenden kann.
Sub Makro1()
' Makro1 Makro
Cells.Select
ActiveWorkbook.Worksheets("Test.xlsx").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Test.xlsx").Sort.SortFields. _
Add Key:=Range("H1:H2009"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Test.xlsx").Sort
.SetRange Range("A1:R2009")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Wie mach ich es richtig?
Gruß
Marc
Anzeige