Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortierung

Forumthread: Sortierung

Sortierung
17.08.2006 09:40:25
Nancy
Hallo zusammen,
ich habe eine riesige Datei, in der manche Zeilen rote und manche Zeilen schwarze Schrift haben. Gibt es eine Möglichkeit, diese nach Farbenzu sortieren?
Vielen Dank im Voraus.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierung
17.08.2006 09:48:24
Hans
Hallo Nancy,
wie folgt:

Sub ColorSort()
Dim lRow As Long, lRowL As Long
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 1 To lRowL
If Cells(lRow, 1).Font.ColorIndex = 3 Then
Cells(lRow, 256).Value = 1
End If
Next lRow
Range("A:IV").Sort key1:=Range("IV1"), order1:=xlAscending
Columns(256).ClearContents
End Sub

gruss hans
Anzeige
AW: Sortierung
17.08.2006 09:52:52
Nancy
Geil, das funktioniert. Vielen, vielen Dank
;

Beliebteste Forumthreads (12 Monate)

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