|
Hallo Leute,
ich möchte Tabellen nach bestimmtem Muster sortieren und habe einen Code teilweise über Makro erstellt. Die zu sortierenden Bereiche sind immer andere aber im gleichen Workbook.Worksheet, deshalb wollte ich mit Variablen die Zeilen angeben. In dem Code steht v = "30" für von Zeile 30 und b = "43" steht für bis Zeile 43. Ich bekomme immer Laufzeitfehler und ähnliches ab Zeile > Rows("zv:zb").Select <. Hat jemand eine Idee warum das nicht funktionieren kann?
Sub PositionSortieren()
' PositionSortieren Makro
Dim v As String
v = "30"
Dim b As String
b = "43"
Rows("zv:zb").Select
ActiveWorkbook.Worksheets("C H F G").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("C H F G").Sort.SortFields.Add Key:=Range( _
"Cv:Cb"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("C H F G").Sort.SortFields.Add Key:=Range( _
"Hv:Hb"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("C H F G").Sort.SortFields.Add Key:=Range( _
"Fv:Fb"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("C H F G").Sort.SortFields.Add Key:=Range( _
"Gv:Gb"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("C H F G").Sort
.SetRange Range("Av:Wb")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|