Hallo zusammen,
ich möchte einen Bereich per VBA sortieren.
Die Macro-Aufzeichnung:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("G6:X50").Select
ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Add2 Key:=Range( _
"M6:M50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle2").Sort
.SetRange Range("G6:X50")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
habe ich in einen Code übertragen:
SortMatrix.Select
ActiveWorkbook.Worksheets(Blattname).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(Blattname).Sort.SortFields.Add2 _
Key:=ReiheMatrix, _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(Blattname).Sort
.SetRange SortMatrix
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Bei meiner Übertragung wird nur die Spalte M sortiert.
Die Werte in den Spalten von G bis X bleiben unverändert.
Es versteht sich von selbst;
Blattname ist Tabelle2
ReiheMatrix ist "M6:M50"
SortMatrix ist "G6:X50"
Was ist bei der Übertragung falsch?
Gruß
Siegfried