Sort F:G:B

04/10/2009 - 17:36 von Heinz ROGHB346 | Report spam
Hallo VBA-Spezialisten,


leider schaffe ich es mal wieder nicht dieses Makro so anzugleichen,

das es auf allen Tabellenblàttern làuft.


Makro Sorttest

ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add
Key:=Range("F3:F200" _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add
Key:=Range("G3:G200" _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add
Key:=Range("B3:B200" _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A3:H200")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub


MfG Heinz
 

Lesen sie die antworten

#1 Andreas Killer
04/10/2009 - 17:51 | Warnen spam
Heinz ROGHB346 schrieb:

leider schaffe ich es mal wieder nicht dieses Makro so anzugleichen,
das es auf allen Tabellenblàttern làuft.


Hmm, sieht nach XL2007 aus!?! Ich denke so geht's.

Andreas.

Sub Sorttest()
With ActiveSheet.Sort
With .SortFields
.Clear
.Add Key:=Range("F3:F200"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Add Key:=Range("G3:G200"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Add Key:=Range("B3:B200"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
End With
.SetRange Range("A3:H200")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Ähnliche fragen