Sortieren verschiedener Spalten

Forumthread: Sortieren verschiedener Spalten

12.09.2013 12:23:30

Volker

Hallo,
ich möchte noch einmal einen ungelösten Thread von gestern aufgreifen.
Im Beispiel sollen in Blatt 1 die Inhalte dem Alphabet nach sortiert werden. Das Ergebnis ist auf Blatt 2 zu sehen.
Angeblich soll es mit Daten - Sortieren... gehen, wo ich aber keine Möglichkeit sehe.
Mit dieser Methode wird nicht ein Wort von eine Spalte in die nächste sortiert. Ich denke, es geht nur mit VBA. In Spalte A betrifft es die Zeilen 3- 24, in Spalten C und D betrifft es die Zeilen 1:24
Kann mir evt. jemand weiterhelfen?
https://www.herber.de/bbs/user/87266.xls
Danke
Gruß Volker

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sortieren verschiedener Spalten

12.09.2013 13:10:35

Marc
AW: Sortieren verschiedener Spalten

12.09.2013 20:36:38

Volker
AW: Sortieren verschiedener Spalten

12.09.2013 13:15:50

Rudi
AW: Sortieren verschiedener Spalten

12.09.2013 20:38:49

Volker

AW: Sortieren verschiedener Spalten

12.09.2013 13:10:35

Marc

Mahlzeit!
Versuch das:

Sub sortieren()
lz_B = Cells(Rows.Count, "A").End(xlUp).Row
Range("C1:C100").SpecialCells(xlCellTypeConstants).Cut Cells(lz_B + 1, "A")
lz_B = Cells(Rows.Count, "A").End(xlUp).Row
Range("D1:D100").SpecialCells(xlCellTypeConstants).Cut Cells(lz_B + 1, "A")
Range("A3:A500").Sort Range("A3"), xlAscending
Range(Cells(25, "A"), Cells(25 + 24, "A")).Cut Range("C1")
Range(Cells(25 + 24 + 1, "A"), Cells(25 + 24 + 1 + 24, "A")).Cut Range("D1")
End Sub

Gruß, MCO

AW: Sortieren verschiedener Spalten

12.09.2013 20:36:38

Volker

Hallo Marc,
danke funktioniert, bei der Methode bleiben die Formatierungen erhalten.
Gruß Volker

AW: Sortieren verschiedener Spalten

12.09.2013 13:15:50

Rudi

Hallo,
ich würde alles in einer Spalte (z.B.Tabelle1!A:A) untereinander schreiben, sortieren und dann per Formel in anderes Blatt holen.

	A	B	C	D	E
1			HOW HIGH THE MOON	SATIN DOLL
2			I CAN'T GIVE YOU	SAVING ALL MY LOVE
3	ALMOST LIKE BEING IN LOVE*		I JUST CALL I LOVE YOU	SO DANSO SAMBA
4	AMERICAN PETROL-PENSYLVANIA 6-5000		JENSEITS VON EDEN	SOLO - SUNNY
5	ANNEMARIE		JOKER	SOME OF THESE DAYS
6	AS TIME GOES BY		KILLING MY SOFTLY	STRANGER IN THE NIGHT*
7	AT LAST		LA PALOMA	SUNNY
8	BEI MIR BIST DU SCHÖN*		LADY BY GOOD	SWEET GEORGIA BROWN
9	BEYOND THE SEA		LEMON THREE	SWING-MEDLEY mit Rock A'round the Clock
10	BLUE BOSSA (Klarinette)		LET IT BE	TAKE THE A TRAIN
11	BLUEBERRY HILL		LOVE IS BLUE	THE WAY YOU LOOK TONIGHT
12	CANT'T TAKE MY EYES OF OFF YOU		LULLABY OF BIRDLAND	TULPEN AUS AMSTERDAM
13	CHATANOOGA CHOO CHOO		MERCY MERCY MERCY (Tenorsaxophon)	WAVE*
14	CHEECK TO CHEECK		MISTY	WESTERN LOVERS
15	CUBANA		MOONLIGHTSERENADE	WIEN BLEIBT WIEN
16	DAYS OF WINE AND ROSES*		NASHVILLE	WILD CAT BLUES (Klarinette)
17	DESAFINADO		OH WHEN THE SAINTS	YAKETY SAX
18	DOWN BY THE RIVERSIDE		OLSENBANDE (Klarinette)	YARDBIRD-SUITE
19	EIN FREMDER KAM AN LAND (Klarinette)		ON GREEN DOLPHIN STREET	YELLOW RIVER
20	FLY MY TO THE MOON*		ON THE SUNNYSIDE OF THE STREET	YESTERDAY
21	FÜR VICTORIA UND THERESA		PETITE FLEUR (Klarinette)
22	GARTENPARTY		PINK PANTHER
23	HAPPY BIRTHDAY*		RAINDROPS
24	HELLO, MARY LOU		SAMBA DE UNA NOTA

Zelle	Formel
A3:A24	=INDEX(Tabelle1!A:A;ZEILE(A3))
C1:C24	=WENN(SPALTE(A$1)24+ZEILE()>ANZAHL2(Tabelle1!$A:$A);"";INDEX(Tabelle1!$A:$A;SPALTE(A$1)24+ZEILE()))
D1:D24	=WENN(SPALTE(B$1)24+ZEILE()>ANZAHL2(Tabelle1!$A:$A);"";INDEX(Tabelle1!$A:$A;SPALTE(B$1)24+ZEILE()))
E1:E24	=WENN(SPALTE(C$1)24+ZEILE()>ANZAHL2(Tabelle1!$A:$A);"";INDEX(Tabelle1!$A:$A;SPALTE(C$1)24+ZEILE()))
F1:F24	=WENN(SPALTE(D$1)24+ZEILE()>ANZAHL2(Tabelle1!$A:$A);"";INDEX(Tabelle1!$A:$A;SPALTE(D$1)24+ZEILE()))

Gruß
Rudi

AW: Sortieren verschiedener Spalten

12.09.2013 20:38:49

Volker

Hallo Rudi,
danke, aber Marc's Methode ist für meine Zwecke geeigneter. Ich brauche Schriftformatirungen.
Gruß Volker

Beliebteste Forumthreads (12 Monate)

Forumthread: Sortieren verschiedener Spalten

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread