nicht verlassen der Zelle beim Makro

Ich habe folgendes Problem:
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sorttab() Application.ScreenUpdating = False With Sheets("GruppeA") .[B46:M49].Copy .[B38:M41] .[B38:M41].Sort Key1:=.[J38], Order1:=xlDescending, Key2:=.[i38], _ Order2:=xlDescending, Key3:=.[F38], Order3:=xlDescending, Header:=xlGuess End With Application.ScreenUpdating = True End Sub

Danke erstmal für die schnelle Antwort. Leider klappt es nicht, die Tabelle wird bei Zelländerung nicht sortiert wie vorhin.
Jetzt sieht mein Code so aus.
Wo soll das Option Explicit eigentlich stehen ??


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("b46:m41").Columns(9)) Is Nothing) Then
Call sorttab
End If
End Sub

Sub sorttab()
Application.ScreenUpdating = False
With Sheets("GruppeA")
.[B46:M49].Copy .[B38:M41]
.[B38:M41].Sort Key1:=.[J38], Order1:=xlDescending, Key2:=.[i38], _
Order2:=xlDescending, Key3:=.[F38], Order3:=xlDescending, Header:=xlGuess
End With
Application.ScreenUpdating = True
End Sub

Wenn ich ein Textfeld mit diesem Code verknüpfe, dann Sortiert er mir die Tabelle.
Bitte um weitere Hilfe, hab echt kein Plan mit VBA.

Beliebteste Forumthreads (12 Monate)

nicht verlassen der Zelle beim Makro

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread