Probleme mit Code zum automatischen Sortieren
14.04.2005 13:12:38
Stefan
Vielleicht kann mir einer bei folgendem Problem helfen...
Ich habe in der Recherche folgenden Code gefunden, den ich bereits für meine Anwendung angepasst habe:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 22 Then
Range("U2:X13").Sort _
Key1:=Range("X2"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Damit werden Werte im Bereich U2:X2 sortiert, wenn sich die Werte in Spalte U ändern.
Leider funktioniert dies nur, wenn ich die Werte per Hand ändere.
Die Werte in Spalte U ändern sich aber automatisch, da sie auf einem anderen Tabellenblatt eingegeben werden. Somit sortiert er mir nicht mehr die Tabelle.
Wie kann ich den Code ändern oder welchen Fehler mache ich, damit die Tabelle automatisch sortiert wird???
Hat einer von Euch vielleicht eine Lösung?
Liebe Grüße
Stefan
Anzeige