Tabelle nach (variabler) letzter Spalte sortieren

Forumthread: Tabelle nach (variabler) letzter Spalte sortieren

05.04.2015 17:58:06

Wolfgang_HB

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle nach (variabler) letzter Spalte sortieren

05.04.2015 20:26:06

Markus
AW: Tabelle nach (variabler) letzter Spalte sortieren

05.04.2015 20:36:32

Wolfgang_HB

AW: Tabelle nach (variabler) letzter Spalte sortieren

05.04.2015 20:26:06

Markus

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

AW: Tabelle nach (variabler) letzter Spalte sortieren

05.04.2015 20:36:32

Wolfgang_HB

Hallo Markus !
Vielen Dank für die Rückantwort !
Ich habe beide Varianten mit einer Beispieldatei durchgespielt
und sie machen genau das, was ich gesucht hatte und das "ratzfatz".
Das wird mir bei der Arbeit wieder eine Menge mühsamer und zeitraubender manueller Arbeit ersparen. :-)
Ich danke Dir und wünsche Dir noch einen schönen Abend !
Liebe Grüße
Wolfgang_HB

Beliebteste Forumthreads (12 Monate)

Tabelle nach (variabler) letzter Spalte sortieren

Forumthread: Tabelle nach (variabler) letzter Spalte sortieren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread