absteigend sortieren

Forumthread: absteigend sortieren
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: absteigend sortieren

25.11.2003 10:22:07

armer mensch

HI, ich müsste eine Tabelle in der Spalte A Absteigend sortieren, damit ein anderes Makro einwandfrei funktioniert. Wie muss der makro-Text lauten, damit dfer Pc das von Sleber tut??

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: absteigend sortieren

25.11.2003 10:25:36

PeterW
AW: absteigend sortieren

25.11.2003 11:10:24

Der gleiche
AW: absteigend sortieren

25.11.2003 14:37:24

PeterW

AW: absteigend sortieren

25.11.2003 10:25:36

PeterW

Hallo,

zeichne dir das doch mit dem Makrorekorder auf.

Gruß
Peter
PS: schau bitte mal in die Forums-FAQ

AW: absteigend sortieren

25.11.2003 11:10:24

Der gleiche

er will das dann aber net reinhaben :S

wie kann ich hier noch das absteigende Sortieren von A einbauen?

Dim iZeile As Long, rZeile As Long

For iZeile = Range("a65536").End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & iZeile - 1), Cells(iZeile, 1)) > 0 Then

rZeile = WorksheetFunction.Match(Cells(iZeile, 1), Range("A1:A" & iZeile - 1), 0)
Cells(rZeile, 2) = Cells(rZeile, 2) & ", " & Cells(iZeile, 2)
Rows(iZeile).EntireRow.Delete

End If
Next iZeile

AW: absteigend sortieren

25.11.2003 14:37:24

PeterW

Hallo ???,

erstens ist deine Frage nicht ohne Relevanz, hebe dir hier den Code aufgezeichnet mit XP:
Cells.sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Zweitens würde ich das Sortieren vor die For-Next Schleife legen.

Drittens werde ich keine weiteren Fragen beantworten, wenn du es nicht für nötig hältst, einen Blick in die Forums-FAQ zu werfen und dich entsprechend zu verhalten.

Gruß
Peter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!