AW: Sortieren von Farben
19.08.2003 11:25:28
K.Rola
Hallo,
ich denke, das erklärt sich von selbst, probiers einfach aus.
Den Code musst du in ein Standardmodul kopieren.
Die Spalte IV (oder 256) wird zeitweilig mit den Farbcodes
beschrieben, sollte also ansonsten nicht benutzt werden.
Option Explicit
Sub Sortieren_nach_Farbe()
Dim Zelle As Range, s As Integer, cx As Integer, Z As Long, lz As Long
Dim msg As Integer, SOrder As Integer, Spalte As Range
lz = ActiveSheet.UsedRange.Rows.Count
On Error GoTo ende
Set Spalte = Application.InputBox(prompt:="Klicken Sie die gewünschte Spalte an.", Type:=8)
Set Zelle = Application.InputBox(prompt:="Klicken Sie eine Zelle mit der gewünschten Farbe an!", Type:=8)
cx = Zelle.Interior.ColorIndex
s = Spalte.Column
msg = MsgBox("Klicken Sie ''Ja'' für aufsteigende Sortierung. ", 67, "weise hin...")
If msg = vbCancel Then Exit Sub
For Z = 1 To lz
If Cells(Z, s).Interior.ColorIndex = cx Then
Cells(Z, 256) = 99
Else
Cells(Z, 256) = Cells(Z, s).Interior.ColorIndex
End If
Next
If msg = vbYes Then
SOrder = 2
Else
SOrder = 1
End If
Columns("A:IV").Sort Key1:=Range("IV1"), Order1:=SOrder, Header:=xlNo
Columns(256).Clear
ende:
End Sub
Gruß K.Rola