Zelleninhalt verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
das ist ja auch eine Formellösung.

Arbeitsblatt 'Tabelle1'
	A	B	C	D	E
1	Valley of Desecration	2004
2	ALive in the Dark (Demo)	2002
3	Dark Season (Demo)	2002
4
5
6
7	Valley of Desecration	2004	1	Enter the Valley	00:44
8	Valley of Desecration	2004	2	Iced Hell	04:37
9	Valley of Desecration	2004	3	From the Ashes to a New Age	04:12
10	Valley of Desecration	2004	4	Blackstorm	04:30
11	Valley of Desecration	2004	5	Into My World	04:54
12	Valley of Desecration	2004	6	The Ritual	04:02
13	Valley of Desecration	2004	7	Wandering Souls	05:25
14	Valley of Desecration	2004	8	Unholy War	04:31
15	Valley of Desecration	2004	9	Inside Nightmare's Transcendental Melody	03:44
16	Valley of Desecration	2004	10	Cruel Human Blood	05:26
17	Valley of Desecration	2004	11	Evil Rise	02:11
18	ALive in the Dark (Demo)	2002	1	Iced Hell
19	ALive in the Dark (Demo)	2002	2	Evil Rise
20	ALive in the Dark (Demo)	2002	3	Her Bleeding Lips
21	ALive in the Dark (Demo)	2002	4	The Embrace
22	ALive in the Dark (Demo)	2002	5	Eternal Dark Winter
23	Dark Season (Demo)	2002	1	A Prelude to an Obscure Season (Intro)
24	Dark Season (Demo)	2002	2	Darkest Forever
25	Dark Season (Demo)	2002	3	Evil Rise
26	Dark Season (Demo)	2002	4	Under the Moon of Blood
27	Dark Season (Demo)	2002	5	Eternal Dark Winter
28	Dark Season (Demo)	2002	6	Iced Hell (Live)

Zelle	Formel
A7	=A1
B7	=SVERWEIS(A7;$A$1:$B$3;2;)
A8	=WENN(C8>C7;A7;INDEX($A$1:$A$3;VERGLEICH(A7;$A$1:$A$3;)+1))
B8	=SVERWEIS(A8;$A$1:$B$3;2;)

Gruß
Rudi

Hallo,
Es ist absolut nicht klar, wohin du was verschieben willst.
Die Forderung: bitte deshalb nur eine wirklich Lösung. ist jenseits von Gut und Böse, da die Randbedingungen und erwartetes Resultat nicht klar genug beschrieben sind:
Die Zellnummern werden aber immer verschieden sein... ah ja? und was sollen wir damit anfangen? Einfach mal alles durchprobieren? Selbst herausfinden wo nun was steht und wohin was verschoben werden soll?
Du hast 2 Datenbestände:
A) Eine mit Album Titeln und Erscheinungsjahr
B) Die Zweite mit Track# Tracktitel und Dauer
Deine einzige Bezugrelation zwischen A und B lautet:
Fang beim ersten Datensatz A an, suche die nächste 1 in B, die noch nicht 'zugeordnet' ist.
Wenn du keine 1 in B findest, dann gib eine Fehlermeldung in der Art "Mehr Titel als Track#1"
Ordne (oder verschiebe aber wohin zum Teufel?) den Datensatz A allen Datensätzen von B zu bis (aber ohne) wieder eine frei Track#1 auftaucht.
Wiederhole das Ganzen für den nächsten Datensatz A, bis keine Datensätze mehr übrig sind.
Excel ist nicht dazu gedacht, völlig strukturlos zu arbeiten!
Gruess Hansueli

Sub CD_Titel_to_Songs() Dim wks As Worksheet Dim Zeile_CD As Long, Zeile_S As Long Set wks = ActiveSheet With wks 'letzte Zeile mit CD-Titel in Spalte A If .Cells(2, 1) = "" Then Zeile_CD = 1 Else Zeile_CD = .Cells(1, 1).End(xlDown).Row End If 'letzte Zeile in Spalte C Zeile_S = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 Do Do Zeile_S = Zeile_S - 1 .Cells(Zeile_S, 1).Value = .Cells(Zeile_CD, 1).Value .Cells(Zeile_S, 2).Value = .Cells(Zeile_CD, 2).Value Loop Until .Cells(Zeile_S, 3) = 1 Or Not IsNumeric(.Cells(Zeile_S, 3)) If Not IsNumeric(.Cells(Zeile_S - 1, 3)) Or .Cells(Zeile_S - 1, 3) = "" Then Exit Do Zeile_CD = Zeile_CD - 1 Loop Until Zeile_CD

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread