nicht verlassen der Zelle beim Makro
09.07.2004 20:49:44
poleposition
Ich würde bei meiner Bundesliga-Tabelle, die sich nach jeder Veränderung der Ergebnisse richtig sortiert, gerne in der Zelle bleiben, bzw. in die letzte Zelle die verändert wurde zurückkehren. Das heisst also, das Makro soll KOMPLETT im Hintergrund ablaufen oder das ich was merke.
Mein Code sieht bis jetzt so aus:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Call sorttab
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal target As Excel.Range)
If Not (Application.Intersect(target, Range("ag47:ao64").Columns(9)) Is Nothing) Then
Call sorttab
End If
End Sub
Sub sorttab()
Application.ScreenUpdating = False
Sheets("GruppeA").Select
ActiveWindow.SmallScroll Down:=27
Range("B46:M49").Select
Selection.Copy
Range("B38:M41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("J38"), Order1:=xlDescending, Key2:=Range( _
"I38"), Order2:=xlDescending, Key3:=Range("F38"), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Range("B34").Select
ActiveWindow.SmallScroll Down:=-39
Range("A1").Select
Application.ScreenUpdating = True
End Sub