Verschieben_Schleife_Unter_Bedingung

Hallo Zusammen,
ich verzweifele an einer wahrscheinlich einfachen Aufgabe.
Ich habe eine Tabelle die über mehre Spalten geht.
Ich möchte nun Werte von der einen Spalte in die Nachbarspalte (rechts) verschieben. Das soll aber nun dann passieren, wenn die Spalte (das ist die erste Zeile der Spalte) "Aktuelle Werte" heißt. Die Nachbarspalte heißt: "Werte Vorjahr". Diese soll mit den aktuellen Werten überschrieben werden.
Nun habe ich mehre aufeinander folgende Spalten, abwechselnd "Aktuelle Werte" und "Werte Vorjahr". Wie kriege ich das am besten hin? Am besten so, dass mir die "Werte Vorjahr" nicht automatisch nach rechts verschoben werden - die würden dann ja wieder Werte in einer Spalte "Aktuelle Werte" überschreiben.
Vielen Dank im Voraus!!
https://www.herber.de/bbs/user/141518.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

mit Step ...

13.11.2020 03:12:08

Matthias

AW: mit Step ...

13.11.2020 11:00:28

Perm

For y = 8 To 9

13.11.2020 11:11:55

Matthias

AW: mit Step ...

13.11.2020 11:59:32

Perm

For x = 7 To 17 Step 2 ... owT

13.11.2020 15:49:09

Matthias

Hallo
Ausgangssituation:
Tabelle1

	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
6	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr
7	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16
8	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16
9	16	15	14	13	12	11	10	9	8	7	6	5	4	3	2	1
10	16	15	14	13	12	11	10	9	8	7	6	5	4	3	2	1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Das heißt das Ergebnis soll so aussehen?
Tabelle1

	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
6	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr
7	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16
8		1		3		5		7		9		11		13		15
9		16		14		12		10		8		6		4		2
10	16	15	14	13	12	11	10	9	8	7	6	5	4	3	2	1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
oder so?
Tabelle1

	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
6	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr	Aktuelles Jahr	Vorjahr
7		1		3		5		7		9		11		13		15
8		1		3		5		7		9		11		13		15
9		16		14		12		10		8		6		4		2
10		16		14		12		10		8		6		4		2

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
so hab ichs gemacht, wobei ich mich nicht an Farben orientiere:
Option Explicit Sub schleife() Dim x&, y& For y = 7 To 10 For x = 3 To 17 Step 2 If Cells(y, x) "" Then Cells(y, x).Cut Destination:=Cells(y, x + 1) End If Next Next End Sub
Gruß Matthias

Sub schleife() Dim x&, y& For y = 7 To 10 For x = 3 To 17 Step 2 If Cells(y, x).Interior.Color RGB(0, 176, 80) Then ElseIf Cells(y, x) "" Then Cells(y, x).Offset(, 1) = Cells(y, x) Cells(y, x).ClearContents ' Cells(y, x).Cut Destination:=Cells(y, x + 1) End If Next Next End Sub

Beliebteste Forumthreads (12 Monate)

Verschieben_Schleife_Unter_Bedingung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread