in einer Tabelle möchte ich einen variablen Bereich auf verschiedene Weise sortieren:
1. nach Spalte A - alphabetisch aufsteigend
2. nach Spalte D - numerisch absteigend
Mit den Makros
Sub sortiere_namen()
' sortiert nach dem Namen der Teilnehmer
Dim EndeA As Integer
Dim SpalteA As Integer
EndeA = Sheets("allgemein").Cells(Rows.Count, 1).End(xlUp).Row + 1
SpalteA = Sheets("allgemein").Cells(1, 2)
Range(Cells(6, 1), Cells(EndeA, SpalteA)).Sort Key1:=Cells(6, 1), Order1:=xlDescending, Header:= _
xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A3").Select
End Sub
klappt das Sortieren zwar, allerdings sortiert er mir die Daten bei alphabetischen Sortierung nun von auch absteigend.Wie kann ich die Art des Sortierens mitgeben?
Vielen Dank für Eure Hilfe
Anne