VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Tabelle nach Farben sortieren

Gruppe

Allgemein

Bereich

Sortieren

Thema

Tabelle nach Farben 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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren