freakyf
Goto Top

Fußballtabelle sortieren - aber wie?

Hallo!

Ich habe eine Tabelle, in der werden die Torschützen eines Fußballvereins gelistet (Spalte A Name, Spalte B Anzahl Tore).
Jetzt will ich, dass immer der, der am meisten Tore hat, an erster Stelle zusammen mit der Anzahl seiner geschossenen Tore steht.

Wie stelle ich das an?

Danke!

Markus

Content-Key: 57029

Url: https://administrator.de/contentid/57029

Printed on: April 24, 2024 at 12:04 o'clock

Mitglied: 45210
45210 Apr 19, 2007 at 06:30:35 (UTC)
Goto Top
Member: FreakyF
FreakyF Apr 19, 2007 at 06:34:33 (UTC)
Goto Top
Sortieren von Zeilen in absteigender Reihenfolge nach dem Inhalt einer Spalte
Wenn Sie bereits eine Liste in derselben Tabelle sortiert haben, verwendet Microsoft Excel immer dieselben Sortieroptionen, wenn Sie diese nicht extra verändern.

1. Klicken Sie auf eine Zelle in der Spalte, nach der Sie sortieren möchten.


2. Klicken Sie auf Absteigend.


Anmerkung In einer Pivot-Tabelle sortiert Microsoft Excel die Elemente der markierten Felder abfsteigend in alphabetischer Reihenfolge. Zahlen werden vom niedrigsten zum höchsten Wert sortiert.
Mitglied: 8644
8644 Apr 26, 2007 at 16:41:35 (UTC)
Goto Top
Hi,

oder automatisch nach Eingabe:

[Alt] + [F11] drücken -> VBA-Editor
Doppelklick auf "Diese Arbeitsmappe"
Folgenden Code eingeben:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Range("B2").Select  
    Selection.Sort Key1:=Range("B5"), Order1:=xlDescending, Header:=xlGuess, _  
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Psycho
Member: FreakyF
FreakyF Apr 26, 2007 at 16:43:15 (UTC)
Goto Top
Hi,

oder automatisch nach Eingabe:

[Alt] + [F11] drücken -> VBA-Editor
Doppelklick auf "Diese
Arbeitsmappe"
Folgenden Code eingeben:
> Private Sub Workbook_SheetChange(ByVal Sh As
> Object, ByVal Target As Range)
>  Range("B2").Select  
>     Selection.Sort
> Key1:=Range("B5"),  
> Order1:=xlDescending, Header:=xlGuess, _
>         OrderCustom:=1, MatchCase:=False,
> Orientation:=xlTopToBottom
> End Sub
> 

Psycho

Cool, danke face-smile