Sortieren mit Dialogabfrage
Maris
kann mir jemand helfen und diesen Code anpassen. Er sortiert immer nach Spalte 6 und anschließend nach Spalte 25. Cih möchte allerdings einen Dialog (MSgBox) in dem abgefragt wird nach welcher Spalte er sortieren soll.
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 = 6 'Nummer der Spalte, nach welcher sortiert wird
Const iNumberOfSortingColumn2 = 25 '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, _
Key2:=rSearch.Cells(iNumberOfSortingColumn2), Order2:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'SortOn:=xlSortOnValues
End With
ActiveSheet.Protect
End Sub