Sortieren bei Zahlen und Text

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Range("A3").Select ActiveCell.FormulaR1C1 = "07 x 0,15" Range("A4").Select ActiveCell.FormulaR1C1 = "07 x 0,15" Range("A5").Select ActiveCell.FormulaR1C1 = "07 x 0,15" Range("A6").Select ActiveCell.FormulaR1C1 = "07 x 0,20" Range("A7").Select ActiveCell.FormulaR1C1 = "08 x 0,15" Range("A10").Select ActiveCell.FormulaR1C1 = "08 x 0,20" Range("A5").Select ActiveCell.FormulaR1C1 = "7 x 0,15" Range("B1").Select

Hallo Dieter,
ich sehe eine sehr grosse Diskrepanzt zwischen dein erste Frage und was Du hier aufzählst. Sind diese Einträge nicht schon bereit in der Spalte A aufgelistet?
Beachte, dass jeder Helfer sein eingene Weg zur Lösung vorschlägt, diese aber nicht miteinander kombinierbar sind.
Mein Lösungsweg, nochmal Schritt für Schritt:
Nehmen wir an, Du hast diese Einträge ohne führenden Nullen in Zellen A2 bis A10:
6 x 0,10
7 x 0,15
7 x 0,20
7 x 0,20
8 x 0,15
8 x 0,20
9 x 0,15
9 x 0,20
10 x 0,30
_ markieren die Zellen B2:B10
_ füge die Formel =WERT(GLÄTTEN(LINKS(A2;FINDEN("x";A2)-1)))
_ und schliesse die Eingabe mit Strg+Enter
_ markiere die Zellen C2:C10
_ füge die Formel =WERT(GLÄTTEN(RECHTS(A2;FINDEN("x";A2)+1)))
_ und schliesse die Eingabe mit Strg+Enter
_ markiere die Zellen D2:D10
_ füge die Formel = C2*D2
_ und schliesse die Eingabe mit Strg+Enter
_ markiere die Zellen D2:A10 (Achtung: zuerst die Spalte D, weil so ist die aktive Zelle in Spalte D. Wichtig)
_ Rechtsklick auf Sortieren, aufsteigend
_ markiere die Zellen B2:D10
_ drücke Entf
Wenn Du jetzt diese Schritte unter Makro Rekorder (MR) machst, bekommst Du folgendes:


Sub Makro2()
Range("B2:B10").Select
Selection.FormulaR1C1 = "=VALUE(TRIM(LEFT(RC[-1],FIND(""x"",RC[-1])-1)))"
Range("C2:C10").Select
Selection.FormulaR1C1 = "=VALUE(TRIM(RIGHT(RC[-2],FIND(""x"",RC[-2])+1)))"
Range("D2:D10").Select
Selection.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("A2:D10").Select
Range("D2").Activate
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("D2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A2:D10")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B2:D10").Select
Selection.ClearContents
Range("A2").Select
End Sub

Der MR nimmt alles was Du tust auf. Mehr aber auch nicht. Wie vorher gesagt: VBA ist kein gedankenlesender Zauberstab!
Du musst nur den Zusammenhang zwischen was Du getan hast und den Code machen. Der Code, den Du da lieferst, zeigt nur, dass Du in verschiedene einzelne Zelle etwas eingetragen hast. Hilft uns das etwa?
Mit der Bitte, dass Du bevor Du den Code blind copy-paste, die auf Deutsch geschriebene Anweisungen genau durchliest. Bei Bedarf mehrmals. Dann die Aufnahme über MR selber probierst (Vielleicht zuerst nur die Formel in Spalte B. Denn der Rekorder nimmt alles auf. Und alles kann sehr schnell sehr viel sein. Der Rekorder versteht nicht, dass Du daneben geklickt hast und nochmal richtig machst!)
Nur so wirst Du Schritt für Schritt zu Drachen-Dompteur.
Der MR ist übrigens keine Spielerei für Anfänger. Ich mache weiterhin sehr viel zuerst mit den MR (wäre ja blöd, das alles selber zu tippen ;-)
Viel Erfolg.
VG
Yal

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sortieren bei Zahlen und Text

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread