ich bitte wieder mal um euren Rat:
Und zwar würde ich gerne die Spalte F - "Benutzerdefiniert" sortieren- nach "VAMI 1+2,OLI 1+2,VAB", ich habe dazu auch schon einen Code:
Dim Bereich As Range
Set Bereich = Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
ActiveWorkbook.Worksheets("Dichtheitsübersicht").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dichtheitsübersicht").Sort.SortFields.Add2 Key:=ActiveWorkbook.Worksheets("Dichtheitsübersicht").Range( _
"F11:F100000"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"VAMI 1+2,OLI 1+2,VAB", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Dichtheitsübersicht").Sort
.SetRange Bereich
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Die Sortierung funktioniert soweit, aber sie beginnt schon mit der ersten Zeile, es sollte aber erst ab der 11. Zeile sortiert werden, alles was darüber liegt nicht.Besten Dank für euren Input.