Sortieren bei Neuberechnung

Hallo Kollegen,
Ich suche eine Möglichkeit, automatisch einen Bereich in Tabelle1 zu sortieren, wenn man F9 betätigt. Derzeit habe ich diese Routine in "Diese Arbeitsmappe":


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets("Tabelle1").Range("a2:j26").Sort Key1:=Worksheets("Tabelle1").Range("B1"), order1: _
=xlDescending
End Sub

Das funktioniert, sobald man einen Wert irgendwo in der Arbeitsmappe ändert/eingibt. Es funktioniert aber nicht, wenn man zur F9=Neuberechnen drückt. Da die (riesige) Arbeitsmappe etwa 40 Sekunden Neuberechnet, ist die Berechnung eigentlich immer auf "Manuel" gesetzt und es wird F9 benutzt.
Was kann man hinzufügen oder ändern, damit F9 auch zur Sortierung des Tabellenbereiches führt?
Danke euch.
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Worksheets("Tabelle1").Range("a2:j26").Sort Key1:=Worksheets("Tabelle1").Range("B1"), order1: _ =xlDescending Worksheets("Tabelle2").Range("a2:j26").Sort Key1:=Worksheets("Tabelle2").Range("B1"), order1: _ =xlDescending End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object) Worksheets("Tabelle1").Range("a2:j26").Sort Key1:=Worksheets("Tabelle1").Range("B1"), order1: _ =xlDescending Worksheets("Tabelle2").Range("a2:j26").Sort Key1:=Worksheets("Tabelle2").Range("B1"), order1: _ =xlDescending End Sub

Hallo Martin,
die SheetChange Prozeduren reagieren nur auf die Eingabe von Werten in Zellen, aber nicht auf die Änderung von Werten durch Berechnungen. Deshalb passiert bei deiner Version nichts nach Drücken auf F9.
Es gibt unter DieseArbeitsmappe eine Ereignis-Prozedur, die ausgeführt wird sobald eines der Blätter in der Arbeitsmappe neuberechnet wird.


Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Worksheets("Tabelle1").Range("a2:j26").Sort Key1:=Worksheets("Tabelle1").Range("B1"), _
order1:=xlDescending
Worksheets("Tabelle2").Range("a2:j26").Sort Key1:=Worksheets("Tabelle2").Range("B1"), _
order1:=xlDescending
End Sub

In gleicher Weise gibt es für das Tabellenblatt die Ereignis-Prozedur. Diese muss du unter dem jeweiligen Tabellenblatt im VBA-Editor einfügen.


'Für Tabelle 1
Private Sub Worksheet_Calculate()
Worksheets("Tabelle1").Range("a2:j26").Sort Key1:=Worksheets("Tabelle1").Range("B1"), _
order1:=xlDescending
End Sub
'Für Tabelle 2
Private Sub Worksheet_Calculate()
Worksheets("Tabelle2").Range("a2:j26").Sort Key1:=Worksheets("Tabelle2").Range("B1"), _
order1:=xlDescending
End Sub

Welche der beiden möglichen Varianten bei dir besser funktioniert, muss du probieren.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread