AW: Sortieren 2 oder mehr Spalten
23.10.2006 22:38:49
Erich
Hallo Andreas,
da du 5 Spalten zu sortieren hast, Excel aber nur 3 Spalten auf einmal sortieren kann,
muss man den Sort 2x aufrufen.
Wenn zu Beginn die letzte Zeile (verwendest du auch nachher beim Nummerieren) bestimmt wird,
muss Excel auch nicht immer bis Zeile 1000 sortieren.
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Long
Dim lfd As Long
Dim letzteZ As Long
letzteZ = Cells(Rows.Count, 2).End(xlUp).Row ' Nummer der letzten Zeile
' Sortieren der "ErgebnislistePSLG"
' Sheets("ErgebnislistePSLG").Select ist unnötig, das Blatt ist das aktive
Rows("7:" & letzteZ).Sort _
Key1:=Range("E7"), Order1:=xlDescending, _
Key2:=Range("F7"), Order2:=xlDescending, _
Key3:=Range("G7"), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Rows("7:" & letzteZ).Sort _
Key1:=Range("C7"), Order1:=xlDescending, _
Key2:=Range("D7"), Order2:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A7").Select
'Nummerierung (Platzierung) der ErgebnislistePSLG
lfd = 1
For i = 1 To letzteZ
If Cells(i, 2).Value > "" Then
Cells(i, 1).Value = "Platz " & lfd
lfd = lfd + 1
End If
Next i
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort