Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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!
Anzeige
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!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige