Codeänderung, aber wie?
01.06.2006 10:20:04
Gabi
ich habe unten angeführt einen Code der mir die Spalten sortiert und am Ende der sortierung in die unterste erste freie Zelle markiert. Die funktioniert beim Office 2003 ausgezeichnet aber leider geht dieser Code mit dem Office 2000 nicht.
Deshalb meine Frage bzw. Bitte: Wie muss der Code geändert werden damit dieser auch beim Office 2000 funktioniert? Ich wäre über jede Hilfe sehr dankbar.
Hier der Code:
Sub Sortiereung()
' Sortiereung Makro
' Makro am 09.06.2005 von Gabi aufgezeichnet
Range("A2:C" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
LG Gabi