PDA

Vollständige Version anzeigen : Sortieren in benanntem Bereich


Rainer Simon
12.07.2006, 09:35
Hallo,

ich hole Daten und stelle diese in einem Blatt bereit. Für die Daten lege ich einen Namen fest. Nun möchte ich die Daten Sortieren, was aber nicht funktioniert, das irgendetwas mit den Bereichen nicht stimmig ist.

Set namName = Workbooks("xxx").Names.Add(Name:="yyy", RefersTo:="=Blatt!$A$2:$B$3")
Set ranZelle = namName.RefersToRange
MsgBox ranZelle.Address
ranZelle.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


Die MsgBox() gibt mir den korrekten Bereich an. Sortiert werden soll nach der Spalte B.

Definitionen:
Dim ranZelle As Range
Dim namName As Name

Muß ich wirklich mit select arbeiten? Das Arbeitsblatt soll später ausgeblendet (visible=xlVeryHidden) sein.

Gruß und Dank Rainer

Hajo_Zi
12.07.2006, 09:57
Hallo Rainer,

Set namName = Workbooks("xxx.xls").Names.Add(Name:="yyy", RefersTo:="=Blatt!$A$2:$B$3")
Set ranZelle = namName.RefersToRange
MsgBox ranZelle.Address
With Worksheets("Blatt")
ranZelle.Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlNo, MatchCase:=False, Orientation:=xlTopToBottom
End With

<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="30" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="30" alt="Homepage"></a>

Rainer Simon
12.07.2006, 10:09
Hallo Hajo,

vielen Dank für Deinen Hinweis, es funktioniert.

Gruß und Dank Rainer