title image


Smiley Re: Sortieren nach aktueller Spalte
Hi!



Damit solltest Du klarkommen:







Sub test()



    

    ' z.B. Dein Bereich hat den Namen <Sortbereich>

    a = ActiveWorkbook.Names("Sortbereich").RefersTo

    s = ActiveCell.Address



    Range(a).Sort Key1:=Range(s), Order1:=xlAscending, Header:=xlYes, _

    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom



    'oder alternativ manuell

    s = ActiveCell.Address

    Range("B2:G7").Sort Key1:=Range(s), Order1:=xlAscending, Header:=xlYes, _

    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom



    'in beiden Fällen_

    ' Falls die Überschrift im Bereich ist:

    ' Header:=xlYes

    '

    ' sonst

    '

    ' Header:=xlno

    

    

End Sub





Code eingefügt mit Syntaxhighlighter 2.5







Schöne Grüße

Norbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: