Makro sortiert nicht richtig !
08.08.2005 12:40:30
Josef
möchte mit unten stehendem Makro ab der Zeile A10, alle neu eingegebenen Zeilen sofort sortieren. Von Zeile A1 bis K8, steht die Firmenanschrift, Datum, usw. In Zeile 9, steht die Überschrift.
Wenn ich einen neuen Datensatz in Zeile 10 eingebe, wird dieser in Zeile 8 geschrieben. Was mache ich denn falsch?
Es wäre nett, wenn mir jemand helfen würde.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Range("A10").CurrentRegion.Sort Key1:=Range("A11"), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Danke im voraus
Gruß Josef