Ich mache eine automatische Sortierung und möchte den Cuser bei der neuen Zeile in Spalte 3 setzen. Wie ist das möglich?
If Target.Column = 1 And Target.Row >= 9 Then
intLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Set Bereich = Range(Cells(9, 1), Cells(intLastRow, 34))
If Not Intersect(Target, Bereich) Is Nothing Then ' Zelle ist im Bereich
Bereich.Sort key1:=Range("A9"), order1:=xlAscending, _
header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom ', DataOption1:=xlSortNormal
End If
End If
Danke und Gruss
Gregor