AW: Sortieren
07.10.2003 17:36:27
Kevin
hy
so, wie ich oben ja geshrieben hat funktioniert es.
ich hätet da aber noch was!!!
der grund für mein anliegen war folgender:
ich bin am organisieren eines kleinen fussball-turniers und möchte gerne die ergebnis-verwaltung auf PC machen. ich habe 4 gruppen und das makro so aufgezeichnet, sobald sich ein spielstand ändert wird die jeweilige tabelle geändert.
wie schon gesagt, das macht es auch wunderbar, nur ist es etwas störend, das nach eingabe des ergebnissen er cursor ans ende des blatt springt.
ich poste mal mein makro, vielleicht weißt du wieder rat!!
Private Sub Worksheet_Change(ByVal Target As Range)
' GruppeAlle Makro
' Tastenkombination: Strg+q
Range("T11:W16").Select
Selection.sort Key1:=Range("V12"), Order1:=xlDescending, Key2:=Range( _
"W12"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("T24:W29").Select
Selection.sort Key1:=Range("V25"), Order1:=xlDescending, Key2:=Range( _
"W25"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
ActiveWindow.SmallScroll Down:=9
Range("T37:W42").Select
Selection.sort Key1:=Range("V38"), Order1:=xlDescending, Key2:=Range( _
"W38"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
ActiveWindow.SmallScroll Down:=6
Range("T50:W55").Select
Selection.sort Key1:=Range("V51"), Order1:=xlDescending, Key2:=Range( _
"W51"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub
ich sag schon mal vielen dank
gruß
kevin