Note: The other languages of the website are Google-translated. Back to English

Wie sortiere ich Zahlen innerhalb einer Zelle in Excel?

Es ist für uns einfach und üblich, Zahlen in einer Spaltenliste zu sortieren. Haben Sie jemals versucht, Zahlen in einer einzelnen Zelle zu sortieren? Vielleicht gibt es keinen guten Weg für Sie, außer sie einzeln anzuordnen. Hier werde ich darüber sprechen, wie Sie Zahlen in Zellen in Excel sortieren.

Zahlen innerhalb von Zellen mit Formel sortieren

Sortieren Sie Nummern in Zellen mit der benutzerdefinierten Funktion

Sortieren Sie Zahlen, die durch Kommas in Zellen mit VBA-Code getrennt sind


Pfeil blau rechte Blase Zahlen innerhalb von Zellen mit Formel sortieren

Um Zahlen innerhalb von Zellen in einem Arbeitsblatt zu sortieren, können Sie die folgende lange Formel anwenden. Gehen Sie dazu folgendermaßen vor:

1. Geben Sie neben Ihren Daten die folgende Formel ein. In diesem Beispiel gebe ich sie in Zelle C1 ein, siehe Screenshot:

=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))

doc-sortiernummern-in-zellen-1

2. Dann drücken Strg + Umschalt + Enter Ziehen Sie die Tasten zusammen und ziehen Sie den Füllpunkt in den Bereich, in dem Sie diese Formel anwenden möchten. Die Zahlen wurden von klein nach groß sortiert. Siehe Screenshot:

doc-sortiernummern-in-zellen-1

Hinweise:

1. Wenn die Ziffer der Zahl mehr als 15 in der Zelle beträgt, erhält diese Formel nicht das richtige Ergebnis.

2. Wenn Sie die Zahlen in absteigender Reihenfolge sortieren möchten, können Sie folgende Formel verwenden: =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).

3. In den obigen Formeln gibt A1 die Zelle an, die die zu sortierenden Zahlen enthält. Sie können sie nach Bedarf ändern.


Pfeil blau rechte Blase Sortieren Sie Nummern in Zellen mit der benutzerdefinierten Funktion

Da die Formel einige Einschränkungen aufweist, können Sie Folgendes verwenden Benutzerdefinierte Funktion um Zahlen in Zellen zu sortieren, die länger als 15 Stellen sind.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Nummern innerhalb von Zellen sortieren

Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
  For j = 1 To UBound(VBA.Split(pNum, i))
    xOutput = IIf(pOrder, i & xOutput, xOutput & i)
  Next
Next
SortNumsInCell = xOutput
End Function

3. Speichern und schließen Sie diesen Code, kehren Sie zu Ihrem Arbeitsblatt zurück und geben Sie diese Formel ein = sortnumsincell (A1) in eine leere Zelle neben Ihren Daten, siehe Screenshot:

doc-sortiernummern-in-zellen-1

4. Ziehen Sie dann den Füllpunkt auf die Zellen, die diese Formel enthalten sollen, und alle Zahlen in den Zellen wurden in aufsteigender Reihenfolge sortiert, wie im folgenden Screenshot gezeigt:

doc-sortiernummern-in-zellen-1

Hinweis: Wenn Sie die Zahlen in absteigender Reihenfolge sortieren möchten, geben Sie bitte diese Formel ein = sortnumsincell (A1,1).


Pfeil blau rechte Blase Sortieren Sie Zahlen, die durch Kommas in Zellen mit VBA-Code getrennt sind

Wenn Ihre Zahlen durch bestimmte Zeichen wie Komma, Semikolon, Punkt usw. wie im folgenden Screenshot getrennt sind, wie können Sie sie in Zellen sortieren? Jetzt führe ich einen VBA-Code ein, damit Sie sie sortieren können.

doc-sortiernummern-in-zellen-1

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Sortiernummern werden in Zellen durch Kommas getrennt

Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
    Arr = VBA.Split(Rng.Value, ",")
    For i = 0 To UBound(Arr)
        xMin = i
        For j = i + 1 To UBound(Arr)
            If Arr(xMin) > Arr(j) Then
                xMin = j
            End If
        Next j
        If xMin <> i Then
            temp = Arr(i)
            Arr(i) = Arr(xMin)
            Arr(xMin) = temp
        End If
    Next i
    Rng.Value = VBA.Join(Arr, ",")
Next
End Sub

3. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und wählen Sie dann Ihre Zellen aus, die die Zahlen im ausgeblendeten Eingabeaufforderungsfeld enthalten (siehe Abbildung):

doc-sortiernummern-in-zellen-1

4. Und dann klick OKAlle Zahlen in den Zellen wurden im ursprünglichen Bereich aufsteigend sortiert.

Hinweis: Sie können das Komma "," in beliebige andere Zeichen ändern, wie Sie im obigen Code benötigen. Und dieser Code kann Daten nur aufsteigend sortieren.


In Verbindung stehende Artikel:

Wie sortiere ich Zahlen mit Bindestrichen in Excel?

So sortieren Sie Daten nach dem häufigsten Wert in Excel?

Wie sortiere ich die E-Mail-Adresse nach Domain in Excel?

Wie sortiere ich Zeilen, um die leeren Zellen in Excel oben zu platzieren?


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (13)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sir, könnten Sie bitte helfen, zuerst die Daten für das Duplikat zu sortieren, ob es klein oder groß ist. Beispiel 1211 ---> 1112 9495 ---> 9945 7379 ---> 7739 Vielen Dank für Ihre Hilfe
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe mich gefragt, wie diese UDF, = sortnumsincell (A1,1), kann allgemeiner modifiziert werden, wie z =sortnumsincell(A1," "," ",,1) wo das erste Argument, A1, ist die Zielzelle, das zweite Argument,"", ist ein Trennzeichen, das ein beliebiges Zeichen, ein Leerzeichen oder nichts mit einem dritten Argument annehmen kann. "", ein anderes oder gleiches Trennzeichen und das vierte Argument, 1 oder 0, die eine aufsteigende oder absteigende Sortierung angibt, wobei die Ergebniszeichenfolge korrekt sortiert innerhalb einer Zelle angezeigt wird, wobei das Trennzeichen standardmäßig mit der ursprünglichen Zeichenfolge identisch ist, sofern nicht im dritten Begriff angegeben. Ich möchte, dass es sowohl mit Zeichenfolgen als auch mit Zahlen funktioniert, und manchmal könnte das zweite oder dritte Argument ein Zeilenvorschub sein, wie es manuell mit Alt-Enter eingegeben würde. Du wärst mein Held des Monats, wenn du das könntest. Ich habe es versucht, bin aber kläglich gescheitert. Danke.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Reihe von Zellen mit Zahlen, die durch ein Leerzeichen getrennt sind, die ich sortieren möchte. zB 8 4 5 1 6 3, die ich als 1 3 4 5 6 8 sortieren möchte. Jede Hilfe ist willkommen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, mehrere Zahlen gleichzeitig aus einer Zelle zu sortieren? Beispiel, ich habe eine Liste mit 50000 Anlagennummern wie A1234, A1235... und ich muss 500 spezifische Nummern ziehen und ich muss 500 gleichzeitig ziehen, um Änderungen vorzunehmen und zu sparen. Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
müssen 84-12-74-26-98 jede Bestellung 12-26-74-84-98 oder 98-84-74-26-12 sortieren, danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn CInt(Arr(xMin)) > CInt(Arr(j)) und es funktioniert
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte eine Summe von 14000 bis 20000 aus verschiedenen Zeilen sortieren. Beispiel: - 2000,1500 eine Zeile und so alle Zeilen ordnen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, der VBA-Code scheint falsch ausgegeben zu werden, Beispiel vor 13,50,47,7,39 und nach 13-39-47-50-7. Irgendwelche Ideen warum?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hOLA, MI PROBLEMA ES QUE TENGO EXEL 2019 EN ESPAÑOL COMO SERIA LA FORMULA?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie sortiere ich AZ-Text innerhalb einer Zelle in Excel?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, danke für das nette Gute zum Sortieren von Zahlen, die durch Kommas in Zellen mit VBA-Code getrennt sind
Nur habe ich ein Problem mit dem Code konfrontiert.
Der Code kann keine dreistellige Nummer erkennen. zum Beispiel die Zahlen (65, 93, 53, 72, 64, 85, 103, 48, 77, 81, 54) nach Anwendung des Codes, die neue Reihenfolge (103, 48, 53, 54, 64, 65, 72, 77, 81, 85, 93)
Haben Sie eine Lösung für das Problem?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Omer, vielleicht kann Ihnen der folgende Code helfen, bitte versuchen Sie es:
Öffentliche Funktion CellSort(r As Range) Als String
Dim bry() So lang, L so lang, U so lang
ch = r(1).Text
ary = Split(ch, ",")
L = LGrenze(är)
U = UBound(är)
ReDim Bry (L bis U)
Für i = LBound(ary) To UBound(ary)
bry(i) = CLng(ary(i))
Weiter ich
BubbleSort(bry) aufrufen
Für i = LBound(bry) nach UBound(bry)
ary(i) = CStr(bry(i))
Weiter ich
CellSort = Join(ary, ",")
End Function

Unter BubbleSort (arr)
Dim strTemp als Variante
Dim ich als lang
Dim j so lange
Dim lngMin So lange
Dim lngMax As Long
lngMin = LBound(arr)
lngMax = UBound(arr)
Für i = lngMin bis lngMax - 1
Für j = i + 1 bis lngMax
Wenn arr(i) > arr(j) Dann
strTemp = arr(i)
anr(i) = anr(j)
arr(j) = strTemp
End If
Weiter j
Weiter ich
End SubNach dem Einfügen des obigen Codes wenden Sie bitte diese Formel an: =Zellensortierung(A1).Und Sie erhalten das gewünschte Ergebnis.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hola, se pueden ordenar letras en una sola celda por orden alfabético? Sie verwenden Excel für Mac. Gracias
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL