Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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.

 

   

Relevante Artikel

  • Autofilter mit mehreren Kriterien

    Ab Excel 2007 können in einem Filter beliebige Filterkriterien manuell vorgegeben werden, indem die gewünschten Werte im Filterdialog an- oder abgehakt werden. Als Ausgangsbasis dient eine kleine...

  • Absolute in relative Zellbezüge umwandeln und umgekehrt

    101067 Die folgenden Makros wandeln vorhandene Zellbezüge in absolute bzw. relative Bezüge um. Zur Umwandlung von relativen Zellbezüge in absolute Bezüge, kann das Makro "absolut" verwendet...

  • Anzahl der leeren Zellen innerhalb eines Bereiches ermitteln

      101055     Mit dem Makro leere_zellen_ermitteln wird die Anzahl aller leeren Zellen im selektierten Bereich ermittelt und mittels einer MsgBox angezeigt. Sub leere_zellen_ermitteln()leer = 0For Each Zelle In SelectionIf Zelle.Value = "" Thenleer = leer + 1End IfNext ZelleMsgBox "Es gibt " & leer & " leere Zellen im selektieren Bereich."End Sub Über eine For-Nexe-Schleife wird...

  • Sortieren einer Tabelle per VBA mit mehr als 3 Kriterien

    Anbei ein kleines Beispiel für das Sortieren einer Tabelle per VBA mit mehr als 3 Kriterien. Es wird sowohl das auf- als auch das absteigende Sortieren demonstriert. Bis Excel 2003 ist die Anzahl...

  • Bilder in Zellen importieren

    Per VBA lassen sich Bilder aus einem angegebenen Verzeichnis auslesen und importieren. Die vorgestellte Prozedur liest die Bilder aus dem eingestellten Verzeichnis "F:\Pic" aus. Die im Verzeichnis...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013