Re: Range Bereich verschieben
10.10.2002 14:54:31
Malexander
Gut.
Ich schlage Dir mal einen etwas anderen Weg vor.Zunächst kannst Du folgende Routine verwenden:
Dies spart etwas Schreibkram.
Bei anderen Sortierungen kannst Du Dir ja noch die eine oder andere dazubasteln oder die o.g. modifizieren.
Ich habe mir im Laufe der Zeit angewöhnt, jede Spalte mit einer Überschrift zu versehen und dieser Überschriftszelle einen Namen zu geben, der in dem Programmen dann zugeordnet wird:
Dim Zelle1 as range
Dim Zelle2 as range
Dim Zelle3 as range
Set Zelle1 = range("NameDerErstenZelle")
Set Zelle2 = range("NameDerZweitenZelle")
Set Zelle3 = range("NameDerDrittenZelle")
Ferner gilt bei mir strengstens: keine 2 Datenblöcke untereinander in der gleichen Spalte.
Jetzt kannst Du sortieren, bis Du schwarz wirst:
xSort Zelle
xSort Zelle1,Zelle2
xSort Zelle2, Zelle3, Zelle1
MAlexander