Tabelle nach (variabler) letzter Spalte sortieren

Hallo, liebe Excellenzen !
Mein Grundproblem:
Ich möchte Excel-Tabellen "auf Knopfdruck" nach der gesetzten Hintergrundfarbe sortieren können.
Ich erhalte oft von Kunden Listen mit verschiedenen Layouts zugeschickt,
in denen Zeilen mit abgerufene Artikeln mit verschiedenen Hintergrundfarben markiert sind. Je nach Farbe müssen diese Bestandssätze unterschiedlich bearbeitet werden.
Um mir die Arbeit zu erleichtern, suche ich nach einer Möglichkeit, die jeweils
aktive Tabelle schnell nach Farben zu sortieren.
Ein einfaches Makro, um Listen nach mehreren Hintergrundfarben zu sortieren,
habe ich leider nicht gefunden !
Alternativ habe ich mir ein Makro zusammengebastelt, das mir im aktiven Tabellenblatt die Hintergrundfarben ausgibt und den Zahlenwert in eine Hilfsspalte,
in die jeweils erste leere Spalte am Ende der Tabelle schreibt.
Das sieht in schwarz-weiß :-) etwa so aus:
Land Ort Kunde Artikelnummer 16777215
DE Berlin Meier 123456789 65535
BE Brüssel Müller 2457021 49407
FR Paris Michelin784560 65535
GB London Harrison718455897 16777215
SE Göteborg Svensson7485762 5296274
Leider komme ich mit dem Abschluß irgendwie nicht weiter:
Die jeweils aktive Tabelle soll nach der jeweils letzten Spalte (also der "Hilfsspalte" mit der Farbnummer)aufsteigend sortiert werden.
Anschließend soll diese Hilfsspalte gelöscht werden.

Für Lösungsvorschläge wäre ich sehr dankbar.
Liebe Grüße
Wolfgang_HB

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wolfgang
Folgendes Beispiel erstellt zuerst eine Hilfsspalte mit den Farbindexen und sortiert danach:

Sub SortierenNachFarbe()
Dim i As Long
Dim LetzteZeile As Long, FarbSpalte As Long
FarbSpalte = Range("A1").CurrentRegion.Columns.Count + 1
' Hilfsspalte mit Farbindex erstellen
Cells(1, FarbSpalte).Value = "Farbindex"
LetzteZeile = Range("A1").CurrentRegion.Rows.Count
For i = 2 To LetzteZeile
Cells(i, FarbSpalte) = Cells(i, 1).Interior.ColorIndex
Next
' Nach Farbindex sortieren
Range("A1").Sort Key1:=Cells(1, FarbSpalte), _
Order1:=xlAscending, Header:=xlYes
' Hilfsspalte löschen
Columns(FarbSpalte).ClearContents
End Sub

Falls du das Erstellen der Hilfsspalte nicht wünschst, so verwende diesen Code:


Sub SortierenNachLetzterSpalte()
Dim i As Long
Dim LetzteSpalte As Long
LetzteSpalte = Range("A1").CurrentRegion.Columns.Count
Range("A1").Sort Key1:=Cells(1, LetzteSpalte), _
Order1:=xlAscending, Header:=xlYes
' Letzte Spalte löschen
Columns(LetzteSpalte).ClearContents
End Sub

Gruss aus dem Ricola-Land
Markus

Beliebteste Forumthreads (12 Monate)

Tabelle nach (variabler) letzter Spalte sortieren

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle nach (variabler) letzter Spalte sortieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread