Zeilen sortieren! Hilfe für Code Anpassung erbeten

Sub horizontalSort() Dim i, lastRow As Integer Const firstColumn As Integer = 1 Const lastColumn As Integer = 10 find last row lastRow = Cells(1, 1).End(xlDown).Row sort cells in each row ascending from left to right For i = 1 To lastRow Range(Cells(i, firstColumn), Cells(i, lastColumn)).Select Selection.Sort Key1:=Range("A" & i), _ Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlLeftToRight, _ DataOption1:=xlSortTextAsNumbers Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Halo Nilo,
ich habe mir gerade die Beispieldatei herunter geladen und Frage höflich nach ob noch Interesse an einer Lösung besteht. Normalerweise gehe ich nicht in Thread wo es schon Lösungen gibt. Ich glaube hier ist aber noch einiges offen, ungeklaert.
Mich interessiert vor allem auch was mit diesen Zellen ist: 255636954X oder 2.6437-8
Als altem Praktiker faellt mir dazu evtl. eine VBA Lösung ein, müsste aber wissen was
genau gesucht werden muss, und was damit geschehen soll? - Löschen oder Replace?
Eine andere Frage: - Wozu dient das ganze? Was bezweckst du damit?
Wenn du nur die Zahlen wissen von 111 bis XXX wissen willst könnte man es anders machen.
Man konnte in einer For Next Schleife .usedRange alle Zahlen in einer Spalte auflisten.
Dann die Dubletten entfernen. Dasselbe geht auch mit Text Werten.
Wenn wir wissen wofür du das sortieren letztendlich verwenden willst, was genau du damit
auswerten oder bearbeiten willst, gibt es evtl. auch andere Lösungen wie Zeilen sortieren.
Ohne den Zusammenhang wozu es dient zu kennen können wir solche Lösungen nicht anbieten.
Wenn die Aufgabe noch ungelöst ist würde ich mich gerne daran beteiligen.
Warte aber mal deine Antwort ab
mfg Piet
PS Ist dir bekannt das die For Next Schleife die Überschrift mit sortiert?
Ist das so gewünscht? Sonst müsste For Next mit Zeile 2 beginnen!!

Hi Piet,
ersmtal Danke der Nachfrage!
Ich grenze mal ein auf: Zeilen ohne Doppelte (ohne SchnickSchnack)!!!
Dazu habe ich folgenden Code gefunden der prima funktioniert aber elend langsam ist.
Für die 40 Zeilen a 15 Spalten braucht der mehr als 5 Min.
Vielleicht kannst Du dir den mal angucken und auf Performance trimmen.
Ich selber bin kein ProfiCoder sondern ein "ich weiß wie und dass es geht, kann einiges aber nicht selber schreiben" Typ.
Per ScriptionDictionary habe ich schon ware Wunder Codes gesehen die Berechnungen von 5Min in 2Sek schaffen.
Vielleicht geht das ja auch bei dem hier. im Zweifel mach ich einen neuen Thread auf.
90% aller "anti Doppelten" Codes und Formeln sind auf Spalten getrimmt. Sehr selten was passendes wie diesen hier für "Zeilenweise" gefunden!

Sub ZeileOhneDoppelte()
Dim lZeile   As Long     ' der For/Next Index der Zeilen von 1 bis n
Dim iSpalte  As Integer  ' der For/Next Index der Spalten von 1 bis letzte belegte
Dim iLetzte  As Integer  ' letzte belegte Spalte in der Zeile
Dim iVglSpa  As Integer  ' Vergleichs-Spalte
For lZeile = 2 To 40   ' hier anpassen !!!
'If WorksheetFunction.CountBlank(Rows(lZeile))  15 Then ' Zeile leer?
iLetzte = IIf(Cells(lZeile, 15)  "", 15, Cells(lZeile, 15).End(xlToLeft).Column)
For iSpalte = 1 To iLetzte - 1
iVglSpa = iSpalte + 1
Do While iVglSpa

Gruß

'vor dem Makor Start setzen (StatusCalc as Variant) With Application .ScreenUpdating = False StatusCalc = .Calculation 'Berechnungs-Status merken .Calculation = xlCalculationManual End With '*** hier dein Makro Code *** 'Nach dem Makor zurück setzen StatusCalc = Reset With Application .ScreenUpdating = True .Calculation = StatusCalc End With

Beliebteste Forumthreads (12 Monate)

Zeilen sortieren! Hilfe für Code Anpassung erbeten

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread