Sortieren auf nicht selektiertem sheet
26.11.2003 11:18:04
Lupus
wie kann man per VBA ein Tabellenblatt sortieren, ohne das Tabellenblatt zu aktivieren oder zu selektieren.
Der untenaufgeführte Code funktioniert nur, wenn Worksheets(10) das aktive Worksheet ist, nicht jedoch, wenn ein anderes Worksheet aktiv ist.
Sub ordnen_Artikelnummer()
Dim Bereich As Range
Dim eSpalte As Integer, lSpalte As Integer
lZeile = Worksheets(10).Range("A1").CurrentRegion.Cells(Range("A1").CurrentRegion.Cells.Count).Row
lSpalte = Worksheets(10).Range("A1").CurrentRegion.Cells(Range("A1").CurrentRegion.Cells.Count).Column
Set Bereich = Worksheets(10).Range(Cells(1, 1), Cells(lZeile, lSpalte))
Bereich.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Gruß Lupus