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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 57029

Url: https://administrator.de/forum/fussballtabelle-sortieren-aber-wie-57029.html

Ausgedruckt am: 10.04.2025 um 23:04 Uhr

4 Kommentare

Neuester Kommentar

http://www.pcwelt.de/forum/office-programme-microsoft-office-openoffice ...

2 sec. google ;)

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.

Hi,

oder automatisch nach Eingabe:

[Alt] + [F11] drücken -> VBA-Editor
Doppelklick auf "Diese Arbeitsmappe"
Folgenden Code eingeben:

1
2
3
4
5
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

Hi,

oder automatisch nach Eingabe:

[Alt] + [F11] drücken -> VBA-Editor
Doppelklick auf "Diese
Arbeitsmappe"
Folgenden Code eingeben:

1
2
3
4
5
6
7
8
9
10
> 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
> 