Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A7:U36").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.EnableEvents = True
End Sub
der sortiert mir mit dieser Formel die Tabelle korrekt bis auf die beiden Spalten, die ihre Daten durch folgende Formel bekommen. Denn diese bleiben in der alten Reienfolge stehen.
{=(WENN(ZÄHLENWENN(TLN!$F$6:$F$150;RECHTS('D w'!$A$3;LÄNGE('D w'!$A$3)-13)
)
Vielen Dank schon einmal im Vorfeld.
Gruß
Daniel