Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabelle nach Farben sortieren

Gruppe

Sortieren

Problem

Die Tabelle soll nach den Farben in Spalte A sortiert werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub Farben()
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   For iCounter = 2 To 55
      Cells(iCounter, 3) = _
         Cells(iCounter, 1).Interior.ColorIndex
   Next iCounter
   Range("C1") = "Index"
   Columns("A:C").Sort key1:=Range("C2"), _
      order1:=xlAscending, header:=xlYes
   Columns(3).ClearContents
   Application.ScreenUpdating = True
End Sub