Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bestimten bereich sortieren

bestimten bereich sortieren
21.04.2006 10:00:25
moritz
hallo an alle
habe da mal eine frage
ist es mittels vba irgendwie möglich in einer tabelle nach der spalte c beginnend ab c2 absteigend zu sortieren(Hier stehen Datumswerte), jedoch nur den Bereich von spalte a bis o und s bis ad, also der Bereich p bis r soll nicht mitsortiert werden?
wie müßte dies dann aussehen?
mfg
moritz

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige