Aus Range Zelle ableiten - Einfacher?
14.05.2008 12:50:02
Peter
Ich muss den Datenbereich "v_Daten" sortieren. Sortierkriterium ist Zelle F5. Diese leite ich ab von einer benannten Zelle in der gleichen Spalte (F3).
Mit untenstehender Zuweisung an strAdresse komme ich zwar ans Ziel, habe mich jedoch gefragt, ob es auch einfacher ginge ... (wenn ja, wie). Da der Sortierbereich einmal mit zusätzlichen Spalten erweitert werden könnte, möchte ich das Sortierkriterium von der benannten Zelle ableiten und nicht als Zelladresse eingeben.
Gruss, Peter
Sub Sortieren()
Dim strAdresse As String
strAdresse = Left(Range("_02").Address, Len(Range("_01").Address) - 1) & "5"
With Range("v_Daten")
.Sort Key1:=.Range(strAdresse), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub
Anzeige