VBA-Code zum Sortieren einer Excel-Spalte in aufsteigender Reihenfolge und Auswahl erweitern? - Excel, VBA, Sortieren, Excel-VBA

Ich versuche, Spalte D in aufsteigender Reihenfolge in einer Excel-Datei mit VBA zu sortieren. Ich möchte die Auswahl für alle Werte in Spalte A-F erweitern.

Ich habe diese Formel als Ausgangspunkt verwendet:

aufsteigend / absteigend sortieren vba excel

Es sortiert nur eine Spalte und in absteigender Reihenfolge. Ich habe Probleme, mehr Beispiele zu finden.

LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row

If (.Range("D2").Value > .Range("D" & CStr(LastRow))) Then
xlSort = xlAscending
End If

.Range("D2:D" & LastRow).Sort Key1:=.Range("D2"), Order1:=xlSort, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Antworten:

Hier ist die Antwort:

.Range("D1") = "Index"
.Columns("A:F").Sort key1:=Range("D2"), _
order1:=xlAscending, Header:=xlYes

Danke an Simoco's Kommentar!