wie kann ich eine Tabelle automatisch sortieren lassen, wenn ich einen Wert in der
Tabelle nicht direkt ändere?
Der Wert wird von einem anderen Tabellenblatt geholt.
Hier eine Beispieldatei:
https://www.herber.de/bbs/user/85293.xls
VG Martina
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("C:D")) Is Nothing Then Exit Sub
Range("B4:D10").Select
Target.CurrentRegion.Sort Key1:=Range("D4"), Order1:=xlDescending, Header:=xlGuess, OrderCustom: _
=1, MatchCase _
:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub
sortiert sich die Tabelle automatisch, wenn ich eine Zahl (Summe) von Hand eingebe.