August 11, 2022, 04:50:54

Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!


berechnete Zellen sortieren

Begonnen von Icemann1970, Mai 02, 2022, 21:01:29

⏪ vorheriges - nächstes ⏩

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 ? ;D 

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.
Mfg. Udo