PDA

Vollständige Version anzeigen : Excel97 Code


FlowBerlin
21.04.2009, 14:07
Hi @ all,

Ich habe einen Code, welcher in einer Excel Tabelle die Spalte "I" sortieren soll.
Mein Problem ist jetzt leider nur, wenn ich eine Eingabe bei bspw. Spalte 1500 mache ,dass der Cursor automatisch in Zeile 2000 springt. Könnt ihr mir den Code so umschreiben , dass der Cursor nach dem Sortieren in die nächste Zeile springt???

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("I:I")) Is Nothing Then ' anpassen Spalte wo die Datum's reinkommen
Columns("A:I").Select 'welche Spalten mitsortiert werden sollen
Selection.Sort Key1:=Range("1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J2000").Select
End If
End Sub




MfG
FlowBerlin

EarlFred
21.04.2009, 14:25
Hallo FlowBerlin,

funktioniert der Code überhaupt so, wie er von Dir gepostet wurde?

Ich vermute mal, eher so:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("I:I")) Is Nothing Then ' anpassen Spalte wo die Datum's reinkommen
Columns("A:I").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Target.Offset(1, 0).Select
End If
End Sub

Grüße
EarlFred

FlowBerlin
21.04.2009, 14:27
eigentlich hat er funktioniert .....ich werde mal deinen ausprobrieren :)

FlowBerlin
21.04.2009, 14:29
-.-" nee also sortieren tut er mit dem gleichem Effekt. Der Cursor spring immer noch in Zeile 2000 nach dem Sortieren

jinx
21.04.2009, 14:31
Moin, FlowBerlin,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("I:I")) Is Nothing Then ' anpassen Spalte wo die Datum's reinkommen
Columns("A:I").Sort _
Key1:=Range("I1"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
Application.Goto reference:=Target.Offset(1, 0)
End If
End Sub

EarlFred
21.04.2009, 14:32
Hallo FlwoBerlin,

das glaube ich Dir nicht....Es sei denn, die Änderung findet in Zeile 1999 statt...

Grüße
EarlFred

FlowBerlin
21.04.2009, 14:37
ok klappt. Super!! :D

THX @ all