Automatische Reihenfolge von Spalten

Hallo!
Habe folgendes Problem:
Ich habe einen Excel-Tabelle, sämtliche Daten dieser Tabelle werden aus anderen Tabelleblättern derselben Tabelle gezogen (wobei einige dieser Blätter wiederum Daten aus anderen Excel-Dateien ziehen).
Ich möchte nun, dass Excel automatisch die Spalten in eine bestimmte Reihenfolge bringt. Die Reihenfolge ergibt sich aus den Inhalten der Zeile 1 und 2. Erste Sortierung soll nach der ersten Zeile (Text aufsteigen), zweite Sortierung soll sich nach der zweiten Zeile (Zahlen aufsteigen) erfolgen.
Ein Bsp.
X-A-B-C-D
1-BO-VB-BO-BO
237000-37100-37200-37100
3 25-16-18-34
4 10-1-25-256
Exel soll nun so sortieren:
X-A-B-C-C
1-BO-BO-BO-VB
2-37000-37100-37200-37100
3-25-34-18-16
4-10-256-25-1
Der zu sortiernde Bereich ist dabei: D1:P24
Excel soll dabei immer automtisch neusortieren, sobald sich irgendwelche Daten ändern.
Hatte das Problem schon mal ins Forum gestellt und folgende Antwort bekommen.
In das Modul des betreffenden Blattes (über Code-anzeigen) folgendes Skript stellen:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Me.Range("D1:P2")) Is Nothing Then Exit Sub
sortieren
End Sub

Und dann in ein neues "Klassenmodul":
Sub sortieren()
With Sheets("Teilaufgaben auf MA-Ebene").Range("D1:P24")
.Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlLeftToRight
End With
End Sub
Hat aber nur insoweit geholfen, dass ich jetzt ein makro habe, dass ich manuell starten muss; Excel soll das Problem aber vollautomatisch handeln.
Wer weiss Hilfe?
Danke und Ciao,
Richard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Ulf!
Wie gesagt, das Tabellenblatt zieht die betreffenden Daten aus einem anderen Tabellenblatt, welches wiederum Daten aus bestimmten "Erhebungsbögen" zieht. Die Daten können sich ändern, indem sich z.B. BO in VB wandelt oder sich die Nummern ändern (z.B. 37000 auf 55200). Es handelt sich dabei um Erhebungen, die in verschiedenen Abteilungen drchgeführt werden (dementsprechende ändern sich auf die Abteilungsnummern z.B. eben von 37000 auf 55200). Excel soll dies automatisch sortieren, damit bei einer neuen Erhebung sich wieder die Tabelle nach den ersten zwei Zeilen sortiert (BO und VB sind Kürzel für Backoffice und Versicherungsbeauftragter), diese Kürzel können sich aber bei der nächsten Erhebung ändern.
Um den Ablauf nochmal zu verdeutlichen:
Über Erhebungsbögen werden Daten von Mitarbeitern (quasi ein Erhebungsbogen und eine Spalte pro Mitarbeiter) gesammelt. Die Excel-Datei zieht dann aus den jeweiligen Bögen die Daten in ein Tabellenblatt (hier werden die Verknüpfungen immer wieder bei jeder neuen Erhebung geändert. Das zu sortierende Excel-Tabellenlatt saugt sich die Daten dann wieder aus diesem Tabllenblatt. Und dann soll die Sortierung der Spalten erfolgen nach 1. Funktion der Mitarbeiter und 2. Abteilungsnummer.
OK, war langer Text; Danke fürs Durchquälen; hoffe, das Problem ist jetzt verständlicher.
Ciao,
Richard

Sub sortieren() With Sheets("Teilaufgaben auf MA-Ebene").Range("D1:P24") .Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("D2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlLeftToRight End With End Sub

Sub sortieren() With Sheets("Teilaufgaben auf MA-Ebene").Range("D1:P24") .Sort Key1:=Sheets("Teilaufgaben auf MA-Ebene").Range("D1"), _ Order1:=xlAscending, Key2:=Sheets("Teilaufgaben auf MA-Ebene").Range("D2"), _ Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlLeftToRight End With End Sub

Beliebteste Forumthreads (12 Monate)

Automatische Reihenfolge von Spalten

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread