Zellen Sortieren mit angehängter Zahl

Hallo suche leider immer noch nach einer mögligkeit per VBA Zellen automatisch sortieren zu lassen.

Ausgangspunkt ist folgende TABELLE

-----------A-------|-------B--|-C--|-D--|-E
1------Strasse1|------4---|-6--|-1A-|2A
2------Strasse2|----104-|-37-|-12-|-2

usw.

nach dem sortieren soll folgendes herauskommen

-----------A-------|-------B--|-C--|-D--|-E
1------Strasse1|------1A-|-2A-|-4--|-6
2------Strasse2|-------2--|-12-|-37-|-104

natürlich ohne die - zeichen, sollte nur zur besseren verständnis dargestellt sein
nur ich bekomms einfach nicht hin das die zahlen mit angehängten buchstaben mit sortiert werden,im moment hängt excel die zahlen mit den anghängten buchstaben einfach hinten an.

mir würde auch schon das sortieren für eine zeile reichen, das macro würd ich dann zur not einfach mehrmals für jede zeile ausführen, hat jemand eine idee ?

Gruss Mario

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Sortieren() Dim zahlen As Range, c As Range 'Suche alle Zahlen mit Texte und speichere die Texte als Kommentar zur Zelle On Error Resume Next Set zahlen = Range("C:F").SpecialCells(xlCellTypeConstants, 2) On Error GoTo 0 If Not zahlen Is Nothing Then For Each c In zahlen c.ClearComments c.AddComment Right(c, Len(c) - Len(Val(c) & "")) 'Text zwischenspeichern c = Val(c) 'die reine Zahl der Zelle zuweisen Next c End If 'Sortiere jede Zeie in Spalte C-F spaltenweise For Each c In Range("C:F").SpecialCells(xlCellTypeConstants, 1).Columns(1).Cells Range(c, c.End(xlToRight)).Sort Key1:=c, Orientation:=xlLeftToRight, Header:=xlNo Next c 'Zurückspeichern der Kommentartexte For Each c In Columns("C:F").SpecialCells(xlCellTypeComments) c = c & c.Comment.Text c.ClearComments 'Lösche Kommentar wieder Next c Range("A1").Activate End Sub

Hallo Mario,

markiere den zu sortierenden Zellbereich und starte dieses Makro.
Es arbeitet mit vorangestellten und ggf. angehängten Leerzeichen (Blanks) die nach der Sortierung wieder entfernt werden.
Es funktioniert nur, wenn die Zahlenwerte entweder gar keinen oder maximal nur einen Buchstaben angehängt haben; ansonsten müsste man es entsprechend anpassen.


Sub MarioK()
Dim c As Range
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long, i As Long
Dim sl As Integer, sr As Integer
Application.ScreenUpdating = False
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row - 1                                  'Zeile oben
zu = Range(ru).Row                                      'Zeile unten
sl = Range(lo).Column                                   'Spalte links
sr = Range(ru).Column                                   'Spalte rechts
For i = 1 To zu - zo
zo = zo + 1
For Each c In Range(Cells(zo, sl), Cells(zo, sr))
c.NumberFormat = "@"
If IsNumeric(c.Value) Then
c.Value = Right("          " & c.Value, 10) & " "
Else
c.Value = Right("          " & c.Value, 11)
End If
Next c
Range(Cells(zo, sl), Cells(zo, sr)).Sort Key1:=Cells(zo, sl), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight
For Each c In Range(Cells(zo, sl), Cells(zo, sr))
c.NumberFormat = "General"
c.Value = WorksheetFunction.Trim(c.Value)
If IsNumeric(c.Value) Then c.Value = c.Value * 1
Next c
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller (siehe dazu Forums-FAQ)!

Beliebteste Forumthreads (12 Monate)

Zellen Sortieren mit angehängter Zahl

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen Sortieren mit angehängter Zahl

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread