Microsoft Excel

Herbers Excel/VBA-Archiv

Sortieren einer Tabelle mit VBA

Betrifft: Sortieren einer Tabelle mit VBA von: Ralf
Geschrieben am: 11.07.2008 14:24:26

Hallo Excel - Experten,

ich habe eine Excel - Tabelle ( von A11 bis G500 )
Nun möchte ich diese Tabelle nach der Spalte G
aufsteigend sortieren ( mittels VBA ), wobei - und jetzt
kommt mein Problem - wobei die Tabelle auch länger
werden kann :-) d. h. nach unten offen.
Hat hierzu vielleicht jemand eine Idee ?

Viele Grüße
Ralf

  

Betrifft: AW: Sortieren einer Tabelle mit VBA von: Hajo_Zi
Geschrieben am: 11.07.2008 14:27:16

Hallo Ralf,

benutze den Makrorecorder, entferne Select und schreibe nur Range("A11").....

GrußformelHomepage


  

Betrifft: AW: Sortieren einer Tabelle mit VBA von: Ralf
Geschrieben am: 11.07.2008 14:44:47

Hallo Hajo,

in der ersten Zeile ( s.u. ) habe ich es so gemacht wie Du sagtest,
aber dann sagte mir Excel : Kompilierfehler :-( ???????


'

Sub Sorten()
'
' Sorten Makro
' Makro am 11.07.2008 von Hollmann aufgezeichnet
'
'    Range("A12:G20").Select
'    Selection.Sort Key1:=Range("G12"), Order1:=xlAscending, Header:=xlNo, _
'        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'        DataOption1:=xlSortNormal
'End Sub



Viele Grüße
Ralf


  

Betrifft: AW: Sortieren einer Tabelle mit VBA von: Hajo_Zi
Geschrieben am: 11.07.2008 14:48:16

Hallo Ralf,

Sub Sorten()
'
' Sorten Makro
' Makro am 11.07.2008 von Hollmann aufgezeichnet
'
'    Range("A12").Sort Key1:=Range("G12"), Order1:=xlAscending, Header:=xlNo, _
'        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'        DataOption1:=xlSortNormal
'End Sub



Gruß Hajo


  

Betrifft: Danke Hajo Super :-) von: Ralf
Geschrieben am: 11.07.2008 14:54:26

....... oder Super - Hajo - Danke , paßt auch !!!
Klappt ganz toll !

Viele :-) Grüße
Ralf


  

Betrifft: AW: Danke Hajo Super :-) von: Kürzer
Geschrieben am: 11.07.2008 14:57:37

Sub Sorten()
 '
 ' Sorten Makro
 ' Makro am 11.07.2008 von Hollmann aufgezeichnet
 '
 '    Range("A12").Sort Key1:=Range("G12"), Order1:=xlAscending, Header:=xlNo
  'End Sub




 

Beiträge aus den Excel-Beispielen zum Thema "Sortieren einer Tabelle mit VBA"