Werte automatisch ordnen

Forumthread: Werte automatisch ordnen

17.01.2006 16:10:21

petra

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

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte automatisch ordnen

17.01.2006 16:29:08

th.heinrich
Tippe ich auch.

ransi
Danke dir. Funktioniert. o.t.

17.01.2006 17:11:32

petra
AW: Werte automatisch ordnen

17.01.2006 16:33:11

petra
AW: Werte automatisch ordnen

17.01.2006 16:44:29

th.heinrich
AW: Werte automatisch ordnen

17.01.2006 16:41:14

Peter
AW: Werte automatisch ordnen

17.01.2006 17:13:22

Peter

AW: Werte automatisch ordnen

17.01.2006 16:29:08

th.heinrich

hi Petra,
kopiere A1:A200 nach B1:B200 und sortiere nach spalte B. tippe aber, dass dies zu einfach ist;-)
gruss thomas

Tippe ich auch.

ransi

hallo
thomas's tipp schliesse ich mich an.
darum mal was mit formel:

Tabelle1

	A	B
1	8	10
2	4	10
3	4	10
4	10	9
5	8	9
6	4	9
7	3	8
8	8	8
9	1	8
10	7	8
11	10	8
12	2	8
13	6	8
14	1	8
15	8	8
16	9	8
17	9	7
18	3	6
19	5	5
20	8	5
21	8	4
22	8	4
23	9	4
24	8	4
25	3	3
26	5	3
27	8	3
28	8	2
29	10	1
30	4	1

Formeln der Tabelle

B1 : {=INDEX($A$1:$A$200;VERGLEICH(KGRÖSSTE($A$1:$A$200+ZEILE($A$1:$A$200)%%;ZEILE(A1));$A$1:$A$200+ZEILE($A$1:$A$200)%%;0))}
B2 : {=INDEX($A$1:$A$200;VERGLEICH(KGRÖSSTE($A$1:$A$200+ZEILE($A$1:$A$200)%%;ZEILE(A2));$A$1:$A$200+ZEILE($A$1:$A$200)%%;0))}

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

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.

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.

Beliebteste Forumthreads (12 Monate)

Forumthread: Werte automatisch ordnen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread