Office: VBA nach sortieren zur ursprünglichen Zelle zurück

Hallo liebe leute auch ich will dazu lernen habe folgendes problem.

ich habe mittels Makrorekorder eine sortierfunktion erstellt, welche automatisch nach änderung einer zelle eine Tabelle auf dem selben Tabellen Blatt sortiertz. Habe das natürlich etwas modifizirt, damit es automatisch funzt. ;-)

Nun möchte ich
1.: das ich wieder in die gleiche zelle zurückspringe als zuvor das autosortieren begann.
2.: das das blat so geschützt ist das nur "nicht gesperte"zellen wählbar sind.

Danke schon mal im voraus
Holger

Meien VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Range("AD6:AE25").Select
Selection.Sort Key1:=Range("AE6"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

habe einen Teil gefunden

ich habe das ganze um eine zeile erwitert, die da lautet:

ActiveSheet.EnableSelection = xlUnlockedCells


somit wäre ein Prob schon gelößt.

 

Hallo,

Select brauchst du nicht.


......Range("AD6:AE25").Sort Key1:=Range("AE6"), Order1:=xlDescending.....

Gruß

 

Vielen dank

danke für die schnelle Lösung, wenn ich drüber Nachdenke ist das Logisch, anfänger halt, werde es mal ausprobieren, aber müsste wohl klappen, und danke nochmals

 

du bist der beste

;-) Danke gut gemacht, schnell Promt gut und funzt
Gruß Holger