Microsoft Excel

Herbers Excel/VBA-Archiv

sortieren mehrerer werte einer zeile

Betrifft: sortieren mehrerer werte einer zeile
von: josef
Geschrieben am: 21.04.2003 - 20:08:40

hallo excelgemeinde,

ich habe in den ersten sieben zellen einer zeile unterschiedliche werte stehen.
nun sollen diese sieben werte sortiert werden und aufteigend in die zellen zurückgegeben werden.
*vielleicht für's forum eine primitive frage - ich arbeite aber mit excel zu wenig, um überhaupt auf eine idee zu kommen.
für eure hilfe bedanke ich mich schonmal im voraus und wünsche noch einen schönen ostermontag !!!

gruß
josef

  

Re: sortieren mehrerer werte einer zeile
von: Klaus-Dieter
Geschrieben am: 21.04.2003 - 20:33:36

Hallo Josef,

mit diesem Makro geht das:

Option Explicit
Sub zeilen_sortieren()
Dim r As Integer
For r = 2 To Range("A65536").End(xlUp).Row
Range("A" & r, "G" & r).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A" & r), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Next r
End Sub

Code eingefügt mit: Excel Code Jeanie

So sieht das dann aus:

Tabelle1
 ABCDEFG
1UNSORTIERT
2Wert1Wert2Wert3Wert4Wert5Wert6Wert7
355127614705561
420836494541787
527888269302381
64680564528946
734356063351347
8       
9SORTIERT
10Wert1Wert2Wert3Wert4Wert5Wert6Wert7
1112145555617076
1217205464838794
1323273069818288
142454646568089
1513343535476063
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

  

Ohne Select ;-)
von: Klaus-Dieter
Geschrieben am: 21.04.2003 - 20:41:50

Hallo Josef,

ehe ich "Mecker" bekomme, geht natürlich auch ohne Select:

Option Explicit
Sub zeilen_sortieren()
Dim r As Integer
For r = 2 To Range("A65536").End(xlUp).Row
Range("A" & r, "G" & r).Sort Key1:=Range("A" & r), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Application.CutCopyMode = False
Next r
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

  

funktioniert super. danke !!!
von: josef
Geschrieben am: 21.04.2003 - 20:43:24



 

Beiträge aus den Excel-Beispielen zum Thema "sortieren mehrerer werte einer zeile"