Nach Farbe sortieren mit VBA

Oliver · 2016-02-26T13:15:36+00:00

Hallo Zusammen, habe bei einem größeren VBA Makro nur noch ein Problem, bei dem ich nicht weiterkomme. Vielleicht kann mir hier jemand weiterhelfen ?! Ich habe in einer Tabelle einen Bereich markiert und möchte nur diesen Bereich nach 2 Kriterien sortieren: 1. Spalte E nach Werten, aufsteigend 2. Spalte B nach Farbe, grau oben Hatte anfänglich beides nach Wert sortiert mit folgendem Befehl: Selection.Sort Key1:=Selection.Cells(1, 5), order1:=xlAscending, Key2:=Selection.Cells(1, 1), order1:=xlAscending Leider finde ich nirgends die entsprechende Syntax um nach Farbe zu sortieren. Der Makro-Rekorder bringt mich hier nicht weiter, da er sich auf den absoluten Zellbereich bezieht. Dieser kann aber unterschiedlich sein. Für einen Tip wäre ich sehr dankbar. Gruß Oliver

Habe mittlerweile rausgefunden wie ich die Farbe auslese.

Sub Farbe()
' Liest in den Zellen B1 bis B10 die Farnummern aus
' und schreibt sie in die Zellen C1 bis C10
For r = 1 To 10                                    ' Beginn der For To Next Schleife
Cells(r, 3) = Cells(r, 2).Interior.ColorIndex   ' Hintergrundfarbe auslesen und schreiben
Next r                                              ' Ende der For To Next Schleife
End 

Sub                                             ' Ende des Makros
Nun habe ich noch das Problem, daß ich die Funktion nicht absolut,
sondern nur in allen Zeilen meines markierten Bereichs ausführen möchte.
Damit wäre ich kurz vorm Ziel.
Bitte nochmal um Hilfestellung.
Danke Gruß Oliver

Hi Oli,
das weiß ich doch nicht, daß Du komplette Zeilen markierst...
Kannst ja nix dafür, aber man sollte einfach nix ohne Datei machen!
So, probier mal das:

Option Explicit
Sub machen()
Dim c As Range, hilf As Range, sel As Range
Set sel = Selection
Set hilf = Intersect(sel, Columns(3))
For Each c In hilf
c.Value = 10 ^ 8 - c.Offset(0, -1).Interior.Color
Next
sel.Sort Key1:=sel.Cells(1, 5), _
order1:=xlAscending, _
Key2:=sel.Cells(1, 3), _
order1:=xlAscending
End Sub

Aber Dir muß natürlich klar sein, daß die Spalte C dabei glattgebügelt wird. Besser wäre eine Spalte "rechts außen".
Außerdem ist das Ding mit komplett markierten Zeilen ziemlich lahm - aber ich habe jetzt keine Zeit mehr, das zu optimieren.
Schöne Grüße,
Michael

Forumthread: Nach Farbe sortieren mit VBA

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial