Sortierreihenfolge Buchstaben vor Zahlen?

Forumthread: Sortierreihenfolge Buchstaben vor Zahlen?

28.07.2004 08:50:42

Russi

Hallo Leute!
Ich befürchte fast, es geht nicht. Aber sicherheitshalber frage ich doch nochmal nach:
Um Daten für eine andere Anwendung aufzubereiten, muss ich meine Excel-Tabelle sortieren. Die Excel-eigene Sortierreihenfolge sieht vor, dass Zahlen vor Buchstaben kommen. Ich benötige aber genau die umgekehrte VAriante: Buchstaben vor Zahlen!
In den Zellen stehen 6stellige Zeichenfolgen, also hilft mir auch eine benutzerdefinierte Sortierreihenfolge (A,B,C,...,1,2,3...) nicht weiter...
Ein Beispiel (so, wie ich es sortiert haben möchte):
AAAAAA
AAGHAN
AA57HU
AA8HHH
Vielleicht hat jemand von Euch doch eine Idee dazu? Ich würd mich freuen!
Viele Grüße
Russi
www.Russi.de.tt

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hilfslösung

IngoG
DANKE!

28.07.2004 11:05:35

Russi
Danke für die Rückmeldung oT

IngoG

Hilfslösung

IngoG

Hallo Russi,
ich hab Dir mal 2 Macros gestrickt, mit denen Du Strings erzeugst, die nach Deiner Sortierung funzen und anschließend wieder den originalstring erzeugen...
Du markierst Deine Spalte mit den zu sortierenden Strings und führst macro sort_ein aus
anschließend sortierts Du den gesamten bereich wie sonst auch.
nach der Sortierung markierst Du wieder die Spalte führst Du sort_aus aus und erhälst so den originalstring zurück...
Gruß Ingo
PS eine Rückmeldung wäre nett...
Option Explicit


Sub sort_ein()
Dim zelle As Range, i%, text As String
For Each zelle In Selection
text = ""
For i = 1 To Len(zelle)
If (Mid(zelle, i, 1) >= "0") And (Mid(zelle, i, 1) <= "9") Then
text = text & Mid(zelle, i, 1)
Else
text = text & " " & Mid(zelle, i, 1)
End If
Next i
zelle = text
Next zelle
End Sub


Sub sort_aus()
Dim zelle As Range, i%, text As String
For Each zelle In Selection
text = ""
For i = 1 To Len(zelle)
If Not (Mid(zelle, i, 1) = " ") Or ((Mid(zelle, i + 1, 1) >= "0") And (Mid(zelle, i + 1, 1) <= "9")) Then
text = text & Mid(zelle, i, 1)
End If
Next i
zelle = text
Next zelle
End Sub

DANKE!

28.07.2004 11:05:35

Russi

Hallo Ingo!
Respekt! Da muss man erstmal drauf kommen. ;-)
Es funktioniert! Ich bin begeistert! Vielen vielen Dank dafür!!! Du hast mir sehr geholfen!
Viele Grüße
Russi
www.Russi.de.tt

Danke für die Rückmeldung oT

IngoG

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel die Sortierreihenfolge von Buchstaben vor Zahlen zu erreichen, kannst Du folgende Schritte befolgen:

VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul einfügen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Code einfügen: Füge den folgenden Code in das Modul ein:

Sub sort_ein()
   Dim zelle As Range, i%, text As String
   For Each zelle In Selection
       text = ""
       For i = 1 To Len(zelle)
           If (Mid(zelle, i, 1) >= "0") And (Mid(zelle, i, 1) <= "9") Then
               text = text & Mid(zelle, i, 1)
           Else
               text = text & " " & Mid(zelle, i, 1)
           End If
       Next i
       zelle = text
   Next zelle
End Sub

Zweite Subroutine einfügen: Füge den folgenden Code in dasselbe Modul ein:

Sub sort_aus()
   Dim zelle As Range, i%, text As String
   For Each zelle In Selection
       text = ""
       For i = 1 To Len(zelle)
           If Not (Mid(zelle, i, 1) = " ") Or ((Mid(zelle, i + 1, 1) >= "0") And (Mid(zelle, i + 1, 1) <= "9")) Then
               text = text & Mid(zelle, i, 1)
           End If
       Next i
       zelle = text
   Next zelle
End Sub

Makro ausführen: Markiere die Spalte mit den zu sortierenden Werten, führe das Makro sort_ein aus und sortiere dann die gesamte Spalte wie gewohnt. Danach führe das Makro sort_aus aus, um die originalen Werte wiederherzustellen.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass Du die richtige Spalte markiert hast und dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Trust Center-Einstellungen > Makroeinstellungen und aktiviere die entsprechenden Optionen.
Fehler: Die Sortierung ist nicht korrekt.
- Lösung: Überprüfe, ob die Zellen tatsächlich Text und keine Zahlen sind. Verwende die Funktion TEXT() in einer neuen Spalte, um sicherzustellen, dass alle Werte als Text behandelt werden.

Alternative Methoden

Falls Du keinen Zugriff auf Makros hast, kannst Du die Buchstaben in eine separate Spalte extrahieren und dann alphabetisch sortieren:

Spalte erstellen: Füge eine neue Spalte neben der Originalspalte hinzu.
Formel verwenden: Verwende die folgende Formel in der neuen Spalte:
```
=TEXTJOIN("", TRUE, IF(ISNUMBER(MID(A1, ROW($1:$6), 1)*1), "", MID(A1, ROW($1:$6), 1)))
```
Ersetze A1 mit der entsprechenden Zelle.
Sortieren: Sortiere die neue Spalte und ordne die Originalwerte entsprechend zu.

Praktische Beispiele

Angenommen, Du hast folgende Werte in der Spalte A:

AAAAAA
AAGHAN
AA57HU
AA8HHH

Nach dem Ausführen des Makros sort_ein und sort_aus wird die Spalte wie gewünscht sortiert:

AAAAAA
AAGHAN
AA8HHH
AA57HU

Tipps für Profis

Makros optimieren: Du kannst die Makros anpassen, um zusätzliche Funktionen hinzuzufügen, wie z. B. die Möglichkeit, mehrere Spalten gleichzeitig zu sortieren.
Regelmäßige Sicherung: Erstelle regelmäßig Sicherungen Deiner Excel-Dateien, bevor Du mit Makros arbeitest, um Datenverlust zu vermeiden.
Excel-Dokumentation: Nutze die Excel-Hilfe und Online-Ressourcen, um mehr über die Verwendung von VBA zu lernen und Deine Fähigkeiten zu erweitern.

FAQ: Häufige Fragen

1. Frage
Kann ich die Sortierreihenfolge auch ohne Makros ändern?
Antwort: Ja, Du kannst auch manuell die Buchstaben in eine separate Spalte extrahieren und dann sortieren.

2. Frage
Welche Excel-Version benötige ich für die Makros?
Antwort: Die Makros funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Sortierreihenfolge Buchstaben vor Zahlen?

Forumthread: Sortierreihenfolge Buchstaben vor Zahlen?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Buchstaben vor Zahlen sortieren in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread