Office: Automatisch ordnern

Hi,
komme grad in meiner Tabelle nicht weiter, da ich folgendes Problem hab:

In den Zeilen 8 - 34 stehen Informationen, wie Name, Punkte, Beitrag usw.

Mittlerweile hab ich es geschafft, dass sich die Punkte automatisch aktualisieren.

Das Problem ist, dass ich die Zeilen gerne anhand der Punkte (absteigend) sortiert hätte (Punkte stehen im Bereich B8:B34).

Manuell bekomm ich das auch hin, ich hätte es nur gerne so, dass das automatisch geschieht.

Würde mich freuen, wenn mir einer helfen könnten.

 

*push*

 

Da wirst Du mWn nicht um VBA herumkommen und dort entweder ein Ereignis wie "Neuberechnen" anzapfen müssen oder für halbautomatisch einen Button in das Blatt setzen.

Gruß, Michael

 

Hallo!

Wie miriki schon schrieb, ist dies direkt in den Originalzellen nur per VBA möglich.
Aber wenn nichts dagegen spricht, diese Zellen z.B. einfach auszublenden, dann geht es natürlich auch mit Formeln:

	A	B	C	D	E	F
1	Name	Punkte			Name	Punkte
2	aaa	3			eee	9
3	bbb	7			bbb	7
4	ccc	2			fff	6
5	ddd	5			ddd	5
6	eee	9			aaa	3
7	fff	6			ccc	2

Zelle	Formel
E2	=INDEX($A$2:$A$7;VERGLEICH(F2;$B$2:$B$7;))
F2	=KGRÖSSTE($B$2:$B$7;ZEILE(A1))
E3	=INDEX($A$2:$A$7;VERGLEICH(F3;$B$2:$B$7;))
F3	=KGRÖSSTE($B$2:$B$7;ZEILE(A2))
E4	=INDEX($A$2:$A$7;VERGLEICH(F4;$B$2:$B$7;))
F4	=KGRÖSSTE($B$2:$B$7;ZEILE(A3))
E5	=INDEX($A$2:$A$7;VERGLEICH(F5;$B$2:$B$7;))
F5	=KGRÖSSTE($B$2:$B$7;ZEILE(A4))
E6	=INDEX($A$2:$A$7;VERGLEICH(F6;$B$2:$B$7;))
F6	=KGRÖSSTE($B$2:$B$7;ZEILE(A5))
E7	=INDEX($A$2:$A$7;VERGLEICH(F7;$B$2:$B$7;))
F7	=KGRÖSSTE($B$2:$B$7;ZEILE(A6))

Falls auch doppelte Punktzahlen auftauchen können, dann funktioniert dies allerdings nicht mehr, wobei es auch kein großes Problem wäre, dies anzupassen.

 

Wäre es denn aufwendig sowas in VBA zu schreiben?!

Ich bräuchte das ganze für 2 Tabellenblätter.

 

Mit VBA ist es, genau genommen, nur eine Zeile:

Öffne den VBA-Editor mit Alt-F11, drücke dort, wenn der Projekt-Explorer nicht angezeigt wird, Strg-R. Links sollte jetzt eine Baumstruktur in einem Fenster stehen, rechts eine weiße Fläche. Mach links einen Doppelklick auf "Tabelle1" (oder auf welchem Blatt auch immer Du sortieren möchtest).

Über dem rechten großen Fenster wähle aus dem linken Dropdown "Worksheet", danach wähle aus dem rechten Dropdown "Change". Dann kannst Du dort folgendes einkopieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.Range("a7:d34").Sort _
        key1:=ActiveSheet.Range("b7"), _
        order1:=xlDescending, _
        key2:=ActiveSheet.Range("a7"), _
        order2:=xlAscending, _
        header:=xlYes

End Sub

Voraussetzung ist, daß die zu sortierenden Werte in A8 bis D34 stehen und in A7 bis D7 auch eine Überschrift über den Spalten steht.

Dann wird bei jeder Änderung in dem Blatt nach Punkten absteigend und bei Punktegleichheit nach Name aufsteigend sortiert.

Gruß, Michael