Hallo zusammen,
habe in A1:A200 Werte ungeordnet stehen.
Nun möchte ich in B1:B200 diese Werte vom größten Wert bis zum kleinsten Wert sortiert haben.
geht das?
gruß
petra
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
geht aber nur für zahlen.
Formel mit strg+shift+enter abschliessen.
sonst wirds nix.
ransi
Anzeige
Danke dir. Funktioniert. o.t.
17.01.2006 17:11:32
petra
AW: Werte automatisch ordnen
17.01.2006 16:33:11
petra
Hi thomas,
vielen dank für deinen vorschlag, aber im grunde soll das automatisch passieren. also per makro oder formel.
gruß
petra
AW: Werte automatisch ordnen
17.01.2006 16:44:29
th.heinrich
hallo Petra,
entweder makro, hier aufgezeichnet
Sub sortieren()
Selection.CurrentRegion.Select
Selection.Copy
Range("F22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("F22"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
oder die formel von Ransi.
gruss thomas
AW: Werte automatisch ordnen
17.01.2006 16:41:14
Peter
Hallo Petra,
so könnte es gehen:
Sub Umsortieren()
Dim lZeile As Long
Dim lLetzte As Long
lLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = 1 To lLetzte
Range("B" & lZeile).Value = Range("A" & lZeile).Value
Next lZeile
Range("B1:B" & lLetzte).Sort _
Key1:=Range("B1"), _
Order1:=xlDescending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Werte automatisch ordnen
17.01.2006 17:13:22
Peter
Hallo Petra,
weil VBA nein: Kopier deine Spalte A in die beigefügte Mappe und klick den Button. https://www.herber.de/bbs/user/30133.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.