ich habe eine Tabelle, die ich mit VBA sortiere. Nachdem ich in der aktiven Zelle bin und das Modul aktiv wird, springe ich in die nächste zelle, eine Zeile tiefer. Ich möchte aber in der Zeile bleiben, also mit dem sortieren, springe ich auch an die entsprechende Zeile, wo auch immer sie gerade hinsortiert wird. Ich habe keine Idee wie ich das machen soll.
aktuell heisst es:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vCAdrRow As Integer
Dim vCAdrCol As Integer
vCAdrRow = ActiveCell.Row
vCAdrCol = ActiveCell.Column
'Beschränken der Makroausführung auf den Bereich A1 bis A100
If Not Application.Intersect(Target, Range("A1:G100")) Is Nothing Then
'Bereich, auf den sich die Sortierung auswirken soll
Range("A1:G100").Select
'Sortierkriterien
Selection.Sort Key1:=Range("D1"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
'Zelle A1 auswählen
'Range("d15").Select
ActiveCell.Offset(1, 1).Activate
Cells(vCAdrRow, vCAdrCol).Offset(0, 0).Select
End If
End Sub
Wer hat hier eine Idee, wie ich das einbauen kann. Danke schon mal im Vorraus