Sortieren
26.01.2004 23:56:01
Werner
ich habe ein Problem mit sortieren.Habe eine Liste erstellt die ich nach verschiedenen Kriterien sortieren kann.
Funktioniert bei mir einwandfrei.
Diese Liste habe ich einem Kollegen gegeben,der lediglich die Daten meiner Mannschaft löschte und die seiner eigenen eingab.
Nun wird bei ihm ständig die Überschriftenzeile mitsortiert.Woran kann das liegen,wie kann man das vermeiden,was ist zu tun?
Hier vorsichtshalber der Code:(aber bei mir gehts ja)
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Range("Start:Ziel").Select
Selection.Sort Key1:=Range("AA50"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("H13").Select
Application.ScreenUpdating = True
'Name
End Sub
Bedanke mich vorab für eure antwort.
Gruß Werner