Microsoft Excel

Herbers Excel/VBA-Archiv

Daten Alphanumerisch sortieren

Betrifft: Daten Alphanumerisch sortieren von: Vasyl
Geschrieben am: 31.03.2006 11:51:52

Hallo, Forum!
Ich habe ein Problem mit Sortieren von Text in Excel 2000
und zwar:

Ausgangsliste

A0AV8D
A0AXXE
A0BC5X
A0BCNX
A0BCPV

Ich möchte aber, dass die Liste so sortiert wird

A0AV8D
A0AXXE
A0BCNX
A0BCPV
A0BC5X

D.h. Text und Text, der Zahlen enthält, wird mit Buchstaben vor Zahlen sortiert
A Ä B C D E F G H I J K L M N O Ö P Q R S ß T U Ü V W X Y Z 0 1 2 3 4 5 6 7 8 9

Und nicht, wie Standard 0 1 2 3 4 5 6 7 8 9 A Ä B C D E F G H I J K L M N O Ö P Q R S ß T U Ü V W X Y Z

Für Eure Hilfe wäre ich sehr dankbar!
Grüße, Vasyl

  


Betrifft: AW: Daten Alphanumerisch sortieren von: Erich G.
Geschrieben am: 31.03.2006 22:30:34

Hi Vasyl,
schau mal https://www.herber.de/forum/archiv/460to464/t461370.htm

(mit der Recherche gefunden...)

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  


Betrifft: AW: Daten Alphanumerisch sortieren von: Vasyl
Geschrieben am: 31.03.2006 22:56:53

Hallo, Erich!
Vielen Dank für Dein Link! Habe selber auch viel gesucht, aber irgendwie das übersehen. Es funktioniert! Zwar finde ich die Lösung irgendwie komisch, aber hauptsache es geht. Ich habe alles mögliche probiert: Strings nach Bustaben zerlegt und über Benutzerdefinierte Listen sortiert, alles hat nicht gefunzt. Jetzt aber!


  


Betrifft: AW: Daten Alphanumerisch sortieren von: Erich G.
Geschrieben am: 31.03.2006 22:58:03

Hi nochmal,
so gehts auch:
Option Explicit

Sub SortAnders()
   Dim ii%
   With Selection
      For ii = 0 To 9
         Selection.Replace What:=ii, Replacement:=" " & ii, _
            LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
      Next ii
      .Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlNo, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal
      .Replace What:=" ", Replacement:="", _
         LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
   End With
End Sub

Voraussetzung ist (wie bei der Lösung von IngoG), dass in den zu sortierenden Texten keine Leerzeichen vorkommen.

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  


Betrifft: AW: Daten Alphanumerisch sortieren von: Erich G.
Geschrieben am: 31.03.2006 23:04:16

Sorry, da war noch ein Fehler drin, also nochmal:
Option Explicit

Sub SortAnders()
   Dim ii%
   With Selection
      For ii = 0 To 9
         Selection.Replace What:=ii, Replacement:=" " & ii, _
            LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
      Next ii
      .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal
      .Replace What:=" ", Replacement:="", _
         LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
   End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  


Betrifft: Sortieren Ziffern nach Buchstaben von: Erich G.
Geschrieben am: 01.04.2006 09:40:01

Hallo nochmal,
meine Bemerkung zu den Leerzeichen bei IngoGs Lösung war falsch - sie funzt auch mit Leerzeichen. Eine Alternative dazu:
Sub SortZiffNachBuchst()
   Dim ii%, tt$
   tt = Chr(255)
   With Selection
      For ii = 0 To 9
         .Replace What:=ii, Replacement:=tt & ii, _
            LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
      Next ii
      .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal
      For ii = 0 To 9
         .Replace What:=tt & ii, Replacement:=ii, _
            LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
      Next ii
   End With
End Sub
Grüße von Erich aus Kamp-Lintfort


  


Betrifft: AW: Sortieren Ziffern nach Buchstaben von: Vasyl
Geschrieben am: 01.04.2006 09:48:39

Hallo, Erich!
Erst Deine letzte Lösung tut das, was ich brauche. Vielen Dank nochmals!
Gruss, Vasyl


  


Betrifft: AW: Sortieren Ziffern nach Buchstaben von: Vasyl
Geschrieben am: 03.04.2006 10:38:15

Hallo, Erich!
Leider funktioniert Dein Code nicht auf Win2k mit Office 2000. :-(

Gruss, Vasyl


 

Beiträge aus den Excel-Beispielen zum Thema "Daten Alphanumerisch sortieren"