berechnete Zellen sortieren

[Icemann1970]

Hallo zusammen.
Ich habe da mal ein Problem: Möchte gerne
Beispiel!!!
Zeile  A+B+C+D addieren und in E anzeigen.(kein Problem)
Es werden ca 30 Zeilen
Die Ergebnisse in E nach der Eingabe/Änderung in A,B,C oder D in Aufsteigender reihenfolge AUTOMATISCH sortieren lassen.
Mag mir da jemand bei helfen ?  

Code [Auswählen] Erweitern

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngTreffer As Range
Dim StrKey As String
If Target.Column = 1 Then

 StrKey = Target.Value
Range("A:I").Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlYes

 Set rngTreffer = Range("A:I").Find(what:=StrKey, lookat:=xlWhole)
If Not rngTreffer Is Nothing Then
rngTreffer.Select
End If

 End If

End Sub

Bei nichtberechneten Spalten funktioniert das.