Probleme mit sort
08.04.2009 00:02:40
thomas
Leider komme ich mal wieder nicht weiter und brauch eure Hilfe.
Folgender Code:
With Worksheets(sheetname)
.Range(Cells(1, SpalteEnde), Cells(ZeileEnde, SpalteEnde)).Sort _
Key1:=.Range(Cells(1, sortieren1)), Order1:=xlAscending, _
Key2:=.Range(Cells(1, sortieren2)), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End With
und z.B.
sortieren1=Cells(1,4).row
sortieren2=Cells(1,7).row
ZeileEnde = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
SpalteEnde = Sheets("Tabelle1").Cells(1, Columns.Count).End(xlToLeft).Column
kann mir jemand weiterhelfen wie ich die sort methode richtig ansprechen kann?
Mir würde auch erst mal Key1 reichen.
Vielen Dank für eure Hilfe. Muss jetzt ins Bett.... Morgen gehts weiter !
gruß
Thomas