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

Makro: Sortieren von aktivierten Zellen

Makro: Sortieren von aktivierten Zellen
06.09.2005 08:00:07
aktivierten
Hallo!
Ich habe folgendes Problem:
In meiner Exceltabelle stehen in einer Spalte mehrere berechnete Formelwerte untereinander. Nun möchte ich in den Zellen nur die Werte stehen haben (damit es keine Probleme bei sort. gibt) und sie danach absteigend sortieren. Dazu habe ich ein Makro geschrieben, aber das funktionierte nur für feste Zellnamen. Ich brauche aber eins, dass mir die Werte nur für den aktivierten Zellbereich sortiert, weil die zu sortierten Zellbereiche nicht zusammenhängen und sich die Zellnamen sich ändern. Mein Makro sieht aktuell so aus:
ActiveCell.Select
Selection.Copy
ActiveCell.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range(ActiveCell.Address()), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Richtet aber ziemliches Chaos in der Tabelle an.
Wer kann mir helfen? Danke im voraus
Gruss Sebastian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: Sortieren von aktivierten Zellen
06.09.2005 11:35:48
aktivierten
Hab das Problem inzwischen selber gelöst mit diesem Code:
With Selection
.Cells.Value = .Cells.Value
.Sort Key1:=.Cells(1), Order1:=xlDescending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub
Danke an alle die sich über mein Problem Gedanken gemacht haben.
Gruss Sebastian
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige