AW: Daten sortieren - Was ist mit neuen Eintrag?
20.03.2015 11:53:35
Rudi
Hallo,
teste mal.
Sub Makro1()
Dim rSort As Range
With ActiveWorkbook.Worksheets("Aufstellung Brandschutzklappen")
Set rSort = .Range(.Cells(16, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(, 60))
With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B16"), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
CustomOrder:="RLT_Nummer", DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AL16"), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
CustomOrder:="Luftart", DataOption:=xlSortNormal
.SetRange rSort
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Gruß
Rudi