sortieren

Forumthread: sortieren

sortieren

03.02.2004 12:19:30

Joachim

Guten Tag zusammen nochmals ein Problem
Ich möchte mit VBA meine Tabelle von A10 absteigend sortieren
nun das problem
es soll erst nach den Stellen 5 und 6
und dann nach 1 bis 3 sortiert werden
ein Beispiel
001-04-JS
002-03-JS
001-03-JS
soll dann so ausehen
001-03-JS
002-03-JS
001-04-JS
Ich hoffe ich habs einigermaßen erklärt
Ich bedanke mich schon im vorraus für eure Mühe
Schöne Grüße
Joachim

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: sortieren

03.02.2004 12:32:01

Carsten
AW: sortieren

03.02.2004 12:32:17

Carsten
So geht das nicht

03.02.2004 12:57:44

Joachim
AW: sortieren

03.02.2004 12:58:44

xXx
AW: sortieren

03.02.2004 13:15:40

Joachim
AW: sortieren

03.02.2004 13:37:55

xXx

AW: sortieren

03.02.2004 12:32:01

Carsten

einfach mal ein makro aufzeichnen der quellcode ist selbsterklärend

AW: sortieren

03.02.2004 12:32:17

Carsten

einfach mal ein makro aufzeichnen der quellcode ist selbsterklärend

So geht das nicht

03.02.2004 12:57:44

Joachim

es müsste zuerst nach der 5ten und 6 stelle sortiert werden also 03 04
dann nach den stellen 1 bis 3 und das ganze in VBA
Schöne Grüße Joachim

AW: sortieren

03.02.2004 12:58:44

xXx

Hallo,
das sollte dir helfen:


Sub Sortieren()
Dim LZ As Integer
Application.ScreenUpdating = False
LZ = Range("a65536").End(xlUp).Row
Columns("A:B").Insert shift:=xlToRight
Selection.Insert shift:=xlToRight
Range("A10") = "K1"
Range("B10") = "K2"
Range("A11:A" & LZ).FormulaR1C1 = "=MID(RC[2],5,3)"
Range("B11:B" & LZ).FormulaR1C1 = "=LEFT(RC[1],3)"
Range("A10:C" & LZ).Sort Key1:=Range("A11"), Order1:=xlAscending, Key2:= _
Range("B11"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:B").EntireColumn.Delete shift:=xlToLeft
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!

AW: sortieren

03.02.2004 13:15:40

Joachim

das ist super wenn du mir nur noch sagen könntest wie die Zellen daneben bis Spalte L mitsortiert werden wäre mir komplett geholfen
Schöne Grüße Joachim

AW: sortieren

03.02.2004 13:37:55

xXx

Hallo,
ACHTUNG: im obigen Code war ein Fehler.
Überflüssige Zeile: Selection.Insert shift:=xlToRight
Kann schief gehen.


Sub Sortieren()
Dim LZ As Integer
Application.ScreenUpdating = False
LZ = Range("a65536").End(xlUp).Row
Columns("A:B").Insert shift:=xlToRight
Range("A10") = "K1"
Range("B10") = "K2"
Range("A11:A" & LZ).FormulaR1C1 = "=MID(RC[2],5,3)"
Range("B11:B" & LZ).FormulaR1C1 = "=LEFT(RC[1],3)"
Range("A10").Sort Key1:=Range("A11"), Order1:=xlAscending, Key2:= _
Range("B11"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:B").EntireColumn.Delete shift:=xlToLeft
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!

Beliebteste Forumthreads (12 Monate)

Forumthread: sortieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread