Ich möchte die Spalten D bis P (bis einschließlich Zeile 24) in einer Excel-Tabelle so in Reihenfolge bringen, dass die Werte in der Zeile 1 von links nach rechts aufsteigen und bei gleichen Werten die Werte in Zeile 2 ausschlaggebend sind.
Die Werte in den Zeilen 1 und 2 werden nicht manuell verändert, sondern über eine Verknüpfung zu einem anderen Tabellenblatt in der selben Datei. Ich möchte, dass die Reihenfolge der Spalten sich immer automatisch bei jeder Änderung der Werte in den Zeilen 1 und 2 anpasst.
Hatte das Problem schonmal eingestellt und folgende VBA-Scripts erhalten:
1. Ich sollte folgenden Skript in das Modul meines Tabellenblattes kopieren (über Code anzeigen im Registerreiter):
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Me.Range("D1:P2")) Is Nothing Then Exit Sub
sortieren
End Sub
2. Dann sollte ich ein Klassenmodul einfügen und folgende Zeilen kopieren:
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
-> Zur Info: Teilaufgaben auf MA-Ebene ist das betreffende Tabellenblatt
Folge: Ich habe zwar jetzt ein Makro, mit dem ich die Tabelle manuell sortieren kann, aber automatisch geschieht dies nicht.
Hoffe, dass Problem ist einigermaßen klar geworden.
Danke für Eure Hilfe im Voraus.
Ciao,
Richard