Anzeige
Archiv - Navigation
1876to1880
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
Inhaltsverzeichnis

nach Schriftfarbe sortieren

nach Schriftfarbe sortieren
08.04.2022 11:07:59
Josi
Hallo zusammen
Wie sortiert man nach Schriftfarbe?
Habe eine Beispieldatei hochgeladen https://www.herber.de/bbs/user/152344.xlsm . In dem Makro test 2 möchte ich als Key 2 nach Schriftfarbe sortieren wie in dem aufgezeichneten Makro. Ich krieg das nicht hin.
Wäre für Hilfe wirklich dankbar.
Schöne Grüße
Josi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach Schriftfarbe sortieren
08.04.2022 12:35:06
ChrisL
Hi
z.B.

Sub Makro1()
Dim lZ As Long
With Worksheets("Tabelle1")
lZ = .Cells(.Rows.Count, 2).End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=.Range("A1:A" & lZ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add(.Range("B1:B" & lZ), xlSortOnFontColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0, 0)
.Sort.SetRange .Range("A1:B" & lZ)
.Sort.Header = xlGuess
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.Apply
End With
End Sub
cu
Chris
Anzeige

33 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige