Automatische Reihenfolge von Spalten
02.06.2004 14:12:48
Richard
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