Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

absteigend sortieren

absteigend sortieren
25.11.2003 09: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
Anzeige
AW: absteigend sortieren
25.11.2003 09: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 10: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
Anzeige
AW: absteigend sortieren
25.11.2003 13: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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige