AW: bestimten bereich sortieren
21.04.2006 11:42:44
ingoG
Hallo moritz,
folgendes Macro sollte es tun...
es wird einfach eine Kopie des aktuellen Blattes erzeugt, der gesamte bereich im original sortiert und anschließend die Spalten p-R aus der unsortierten kopie wieder ins original kopiert.
zum schluß wird die kopie gelöscht. Fertig
Gruß Ingo
PS eine Rückmeldung wäre nett...
Sub bereich_sortieren()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Copy Before:=Sheets(1)
ws.Select
ws.Range("A1:AD" & ws.Range("C65536").End(xlUp).Row).Sort _
Key1:=Range("c1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets(1).Range("P:R").Copy
ws.Paste Destination:=ws.Range("P:R")
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
ws.Select
End Sub