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.