Zellen in Reihenfolge bringen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
nach meinem Wissenstand ist das Problem schon ein wenig knifflig, besonders da mir keine Sortierfunktion bekannt ist, die innerhalb einer Reihe sortieren. Die normale Sortierfunktion sortiert ja innerhalb einer Spalte.
Also mußt du folgendens Machen.
1. Tabelle transponieren (über kopieren - Inhalte einfüge - Transponieren)
Dadurch werden Reihen und Spalten getauchscht, damit du später sortieren kannst
2 nach jeder Tabellenspalte eine Leerspalte einfügen.
3. eine kleine Funktion schreiben, die die Zellfarbe ermittelt und in eine Zelle schreibt
Public


Function Zellfarbe(Zelle As Range) As Long
Zellfarbe = Zelle.Interior.ColorIndex
End Function

4. mit dieser Funktion den Indexwert der Zellfarbe der Nachbarzelle in die neu eigefügten Spalten schreiben.
5. Die Spalten jetzt immer paarweise (alte Spalte + Hilfsspalte mit Farbindex) nach dem Farbindex sortieren.
6. Hilfspalten löschen.
7 Tabelle mit Transponieren wieder in die ursprüngliche Form bringen.
Solltesst du eine andere Farbreihenfolge wünschen als durch die Farbindizes vorgegeben, müßtest du noch in einer zusätzlichen Hilfsspalte und einer weiteren Hilfstabelle die Farbindizes per SVerwerweis gegen die gewünschte Sortierreihenfolge tauschen.
Daß läßt sich so von Hand machen (außer der Funktion) oder auch als Makro schreiben.
Wobei der Aufwand fürs Makro sich nur lohnt, wenn du diese Sortierung öfters machst.
Falls jemand einen einfacheren Weg kennt, würde mich das auch interessieren.
Gruß, Daniel

Hallo Jonas,
interessantes Problem.
Nur leider sind Deine Beispiele völlig durcheinander. Zuerst redest Du von neu sortieren (Zellen in einer Reihe werden vertauscht), und sagst


so sollte es aussehen:
WEISS	GELB	GRÜN	BLAU	BRAUN	ROT	ROT	ROT ...

dann wieder werden die Zellen nicht umsortiert, sondern nur nach rechts zurechtgeschoben (die Reihenfolge der Zellen in einer Zeile bleibt gleich). Außerdem ist die Reihenfolge nun


WEISS  GELB  ROT  ROT  ...  ROT  GRUEN  SCHWARZ

Wenn Du Dich mal auf eine Variante einigen könntest, dann wäre das für die Antworter schonmal eine große Hilfe. Grade weil die Lösung ein bischen Nachdenken erfordert, solltest Du die Aufgabe und das Ziel genau definieren.
Gruß- Micha
PS: Rückmeldung wäre nett.

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen in Reihenfolge bringen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread