Liste nach hinterlegten Farben sortieren



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Liste nach hinterlegten Farben sortieren
von: Heiko
Geschrieben am: 18.07.2002 - 09:44:27

Hallo
Ich muss eine Liste sortieren, in der die Zellen farbig hinterlegt sind.
Die farbigen Zellen sind über die ganze Spalte verteilt und sollen nach Farbe sortiert sein.
Es reich auch eine Angabe der Anzahl der Farbenfelder (je Farbe).
Wie kann ich dieses Problem lösen?
Danke

nach oben   nach unten

Re: Liste nach hinterlegten Farben sortieren
von: BCM
Geschrieben am: 18.07.2002 - 10:01:42

Hi Heiko,
dazu mußt Du Dir in einen Hilfsspalte zB den Farbcode schreiben, danach kannst Du nach diesem Code sortieren.
Folgendes Macro eruiert die Codes in einem selekierten Bereich und schreibt den jeweiligen Code in die Spalte rechts daneben.

Sub FarbeCodes()
For Each c In Selection
c.Offset(0, 1).Value = c.Interior.ColorIndex
Next
End Sub

cu
BCM


nach oben   nach unten

Wie kann ich nach Farbcodes sortieren?
von: Heiko
Geschrieben am: 18.07.2002 - 10:19:19

Hallo BCM,

ich habe das Makro erstellt, aber nun würde ich gern noch wissen wollen wie ich nach Farbcode sortieren kann!

Danke schon mal


nach oben   nach unten

Wie kann ich nach Farbcodes sortieren?
von: Heiko
Geschrieben am: 18.07.2002 - 10:19:21

Hallo BCM,

ich habe das Makro erstellt, aber nun würde ich gern noch wissen wollen wie ich nach Farbcode sortieren kann!

Danke schon mal


nach oben   nach unten

Re: Wie kann ich nach Farbcodes sortieren?
von: BCM
Geschrieben am: 18.07.2002 - 10:34:13

Hi Heiko,
da weiß ich nicht, was Du meinst, der Farbcode ist ja eine ganz normale Zahl. Zu sortierenden Bereich markieren->Daten->Sortieren->Spalte mit Farbcodes auswählen fertig.
Oder was meinst Du?
cu
BCM

nach oben   nach unten

Re: Wie kann ich nach Farbcodes sortieren?
von: Heiko
Geschrieben am: 18.07.2002 - 10:42:01

Hallo BCM,

bei dem Makro habe ich keine Zahl (Farbcode) erhalten, sondern nur ein farbiges Feld.
Wo kann ich nen Fehler gemacht haben?

Danke für die viele Mühe.

Heiko


nach oben   nach unten

Re: Wie kann ich nach Farbcodes sortieren?
von: GraFri
Geschrieben am: 18.07.2002 - 11:06:38

Hallo


' Der zu sortierende Bereich muß im Tabellenblatt markiert sein.
' Ansonsten Bereich festlegen

Sub Farben_sortieren()
Dim dB                  As String
Dim ZellenFarbe()       As Integer
Dim LetzteZeileBereich  As Integer
Dim SpalteBereich       As Integer
Dim n   As Integer, x   As Integer
Dim y   As Integer, z   As Integer
Dim ZellenInhalt()      As Variant
Dim Zelle

' Adresse des markierten Bereiches ermitteln
dB = ActiveWindow.RangeSelection.Address

' Zeilennummer nach dem markierten Bereich ermitteln
With ActiveSheet.Range(dB)
    LetzteZeileBereich = .Row + .Rows.Count
    SpalteBereich = .Column
End With


' Einlesen des Farbindexes jeder Zelle im markierten Bereich
' und dessen Zellinhalt einlesen
n = 1
For Each Zelle In ActiveSheet.Range(dB)
ReDim Preserve ZellenFarbe(n): ReDim Preserve ZellenInhalt(n)
    ZellenFarbe(n) = Zelle.Interior.ColorIndex
    ZellenInhalt(n) = Zelle.Value
    n = n + 1
Next

' Sortieren und ausgeben, wobei mit z die Anzahl der Leerzeilen
' unter dem Bereich angegeben werden

z = 1
' Sollten auch Zellen mit keiner Farbe im Bereich mitsortiert
' werden dann nachfolgende Schleife aktivieren
    For y = 1 To (n - 1)
        If ZellenFarbe(y) < 0 Then
            With ActiveSheet.Cells(LetzteZeileBereich + z, SpalteBereich)
                .Select
                .Interior.ColorIndex = x
                .Value = ZellenInhalt(y)
                z = z + 1
            End With
         End If
    Next y

For x = 1 To 56     ' 56 Farben
    For y = 1 To (n - 1)
        If ZellenFarbe(y) = x Then
            With ActiveSheet.Cells(LetzteZeileBereich + z, SpalteBereich)
                .Select
                .Interior.ColorIndex = x
                .Value = ZellenInhalt(y)
                z = z + 1
            End With
         End If
    Next y
Next x

End Sub

mfg, GraFri

nach oben   nach unten

Re: Wie kann ich nach Farbcodes sortieren?
von: Heiko
Geschrieben am: 18.07.2002 - 11:10:57

Danke an Alle!!

Es hat funktioniert!!

Heiko


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Liste nach hinterlegten Farben sortieren"