Sortieren verschiedener Spalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread