ich habe nun schon einige Zeit aufgewendet, um ein Listobject in einem Arbeitsblatt gemäß meiner Anforderung zu sortieren.
Das Listobject geht über die Spalten A - F, aber lediglich der Bereich von B - E soll gemäß E, der Datumsspalte, sortiert werden.
Spalte A ist eine laufendeNummer und F ist eine durchlaufende Formel, bei der die Reihenfolge nicht geändert werden soll.
Es geht um folgenden Part:
If Not monatTabelle Is Nothing Then
If monatTabelle.ListRows.Count > 0 Then
With monatTabelle.Sort
.SortFields.Clear
.SortFields.Add2 Key:=monatTabelle.ListColumns("Datum").DataBodyRange, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End If
ChatGPT habe ich schon sehr gequält, aber die KI-Ergebnisse schmeißen immerzu Fehler.
Wie kann ich im o.g. Code den Sortierbereich auf die Spalte B - E beschränken?
Vielen Dank vorab!