Einträge nach Zellfarbe sortieren

101071


Folgendes Makro sortiert die Zellen A1 bis A10 nach Zellfarben in aufsteigender Reihenfolge.
Maßgebend für das sortieren ist die Farbzahl (Index). Je größer der Farbindex desto weiter
hinten wird die Zelle einsortiert.
Um eine größeren Bereich zu sortieren müssen Sie nur den Wert in der For x-Schleife erhöhen.


Sub sortieren_nach_zellfarbe()
  Dim x As Byte
  'Hilfsspalte einfügen
  Columns(1).Insert Shift:=xlToRight
  
  'Farbwert in Hilfsspalte eintragen
  For x = 1 To 10
         Cells(x, 1) = Cells(x, 2).Interior.ColorIndex
  Next x
  
  'Sortieren
  Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  
  'Hilfsspalte wieder entfernen
  Columns(1).Delete Shift:=xlToLeft
End Sub


Dies kann nützlich sein, um mit Zellfarbe versehene (markierte) Zellen
zu bündeln.

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800