Code anpassung Sortierung
Maris
ich habe hier folgenden Code der die Spalte 7 absteigend nach alphabeth sortiert als erste Sortierkriterium.
Wie müsste ich den Code anpassen wenn er anschließen nach Spalte 26 sortieren soll in der sich Zahlenwerte befinden...
Sub SortiereBereichNachEinerSpalte()
ActiveSheet.Unprotect
'CONSTANTS
Const strWsName = "Invoing_list" 'Name des Blattes. ACHTUNG: muss existieren, sonst absturz
Const strSearchRng = "B2:CA2000" 'zu durchsuchende Range. Sollte angepasst werden
Const iNumberOfSortingColumn = 7 'Nummer der Spalte, nach welcher sortiert wird
'VARIABLES
Dim ws As Worksheet
Dim rSearch As Range
'PROGRAMM-CODE
Set ws = Sheets(strWsName)
With ws
Set rSearch = .Range(strSearchRng)
rSearch.Sort Key1:=rSearch.Cells(iNumberOfSortingColumn), Order1:=xlAscending, Header:=xlYes, _
_
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'SortOn:=xlSortOnValues
End With
ActiveSheet.Protect
End Sub
Vielen Dank für euere Hilfe schonmal im Vorraus!
Gruß
Maris