Werte sortieren und markieren WENN

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Bernd,
...erscheinen mir Deine Antworten auf Werners berechtigte Nachfragen recht flapsig; ich für meinen Teil kann mir vorstellen, dass Du damit kaum jemanden zu spontanen VBA-Hilfsaktionen animierst.
Warum?
Du wurdest bereits um eine Bsp-Datei gebeten, das wäre auch hinsichtlich einer VBA-Lösung interessant. Ganz ehrlich: Du hast hier ein nicht ganz triviales Problem (es handelt sich nämlich um Text (!) der sortiert werden muss nach numerischen Gegebenheiten) und stellst dazu eine lange Zeichenkolonne als Bild zur Verfügung... Ja glaubst Du wir sind erpicht darauf, das abzutippen? Die Geschichte mit der dienstlichen Verpflichtung ist hier mE eine Ausrede: Die Kolonne die im Bild zu sehen ist, könntest Du uns doch auch genauso ein einer neuen, ansonsten leeren Mappe hier hochladen - die personenbezogenen Daten der Mappe kannst Du über Windows-Bordmitteln entfernen. Und der Informationsgehalt, der preisgegeben wird, ist der gleiche, wie bei dem hochgeladenen Bild - nur, dass wir als Helfer nicht sinnlos irgendwelche MHz-Texte abtippen müssen, sondern uns lieber um einen cleveren Algorithmus für Dein Problem kümmern können! Zumindest die Zellwerte in einer .txt-Datei wären hilfreicher als dieses Bild (weil kopierbar!).
Zu Die Zahlen sind Textangaben und die grauen Felder müssen nicht beachtet werden.
Interessant - dann hast Du wohl schon einen Lösungsansatz? Ich meine nämlich, dass die grauen Felder, insbesondere bei einer VBA-Lösung, sehr wohl zu beachten sind - und zwar deshalb, weil sie offenbar nach der Sortierung immer noch in der Spalte vorhanden sind/sein sollen, dazu wäre aber wichtig zu wissen, ob es dafür eine Systematik gibt, wann eine Zelle leer und grau ist - ohne Systematik für die grauen Felder werden die nämlich in etwaigem Code ignoriert, weil ich leere Werte nicht sortieren kann... und das ist offenbar nicht das, was Du als Lösung anstrebst. "Die grauen Zellen sollen nach der Sortierung an den selben Positionen sein, wie zuvor" wäre schon ein Hinweis mit dem wir arbeiten können bspw.
Wir helfen hier gerne, aber gewisse Informationen sind einfach erforderlich, um zu helfen.
Ich hätte einen Ansatz mitgeliefert, bin dazu aber auch nicht im Stande, solange etwa ungeklärt ist, was es mit den grauen Zellen (wie o.a.) auf sich hat.
LG
Michael

Hallo Bernd!
In Deiner Bsp-Mappe: https://www.herber.de/bbs/user/108095.xlsm
Klick auf Schaltfläche "Start" löst das Makro aus. Teste das mal, ob das Deinem Wunsch entspricht.
Falls nicht, gib hier Bescheid - ich muss allerdings jetzt weg, evtl. kann dann einE Kollege/Kollegin hier weiterbasteln.
Der Code für weitere Helfer, falls benötigt:
Sub MHz() Dim Ws As Worksheet Dim Daten As Range Dim c As Range Dim dCol As New Collection Dim i&, j&, k& Dim A() Set Ws = ActiveSheet With Ws Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) For Each c In Daten.SpecialCells(xlCellTypeConstants) dCol.Add c Next c End With ReDim A(0 To dCol.Count - 1) For i = 1 To dCol.Count A(i - 1) = dCol(i) Next i For j = LBound(A()) To UBound(A()) A(j) = Replace(A(j), ".", "") A(j) = Replace(A(j), " MHz", "") A(j) = CLng(A(j)) Next j Call QuickSort(A(), LBound(A()), UBound(A())) For k = LBound(A()) To UBound(A()) Ws.Cells(k + 1, 3).Value = A(k) Next k With Ws For Each c In .Range(.Cells(2, 3), .Cells(.Rows.Count, 3).End(xlUp)) If (c.Value / c.Offset(-1, 0).Value) * 100 High Then Exit Sub vPartition = ArrayToSort((Low + High) \ 2) i = Low: j = High Do Do While ArrayToSort(i) vPartition j = j - 1 Loop If i j If (j - Low) Michael

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	109 MHz
2	107 MHz		105 MHz
3	105 MHz		125 MHz
4	110 MHz		180 MHz
5	112 MHz		280 MHz
6	120 MHz
7	125 MHz
8	138 MHz
9	140 MHz
10	180 MHz
11	184 MHz
12	188 MHz
13	200 MHz
14	230 MHz
15	245 MHz
16	280 MHz
17

Werte sortieren und markieren WENN

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte sortieren und markieren WENN

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread