Schleife erstellen

Hallo EXCEL-Freunde,
folgende Schleife soll laufen:
Sub vergleichen() Dim i As Integer, j As Integer, k As Integer, l As Integer i = 2 j = 2 k = 16 l = 30 For i = 2 To 10 For j = 2 To 14 For k = 16 To 28 If Cells(i, j + 1) = Cells(i, k + 1) Then Cells(i, l + 1).Value = "J" End If Next k Next j Next i End Sub

Dabei geht es darum, dass zwei Zellen verglichen werden und wenn die Inhalte übereinstimmen
soll ein J in eine Spalte eingetragen werden. In der ersten Schleife wird die Spalte B (=2) mit der Spalte
P (=16) verglichen und die Spalte AD (=30) befüllt.
Dann sollen mit der Schleife die nächsten drei Spalten bearbeitet werden.
Nachstehend das Muster nur mit dem Ergebnis der Spalte AD:

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD
1	Nr	1	2	3	4	5	6	7	8	9	10	11	12	13		1	2	3	4	5	6	7	8	9	10	11	12	13		1
2	1	1	0	1	0	0	1	2	1	0	0	0	0	2		1	0	1	0	0	1	2	1	0	0	0	0	2		J
3	2	1	1	2	0	0	1	2	2	0	0	0	0	2		1	1	2	0	0	1	2	2	0	0	0	0	2		J
4	3	1	2	0	1	0	1	2	0	0	0	0	0	2		0	2	0	1	0	1	2	0	0	0	0	0	2
5	4	1	0	1	1	0	1	2	1	0	2	1	0	2		1	0	1	1	0	1	2	1	0	2	1	0	2		J
6	5	1	1	2	1	0	1	2	2	0	2	1	0	2		0	1	2	1	0	1	2	2	0	2	1	0	2
7	6	1	2	2	0	0	1	2	0	0	2	1	0	2		1	2	2	0	0	1	2	0	0	2	1	0	2		J
8	7	1	0	1	0	0	1	2	1	0	2	1	1	2		0	0	1	0	0	1	2	1	0	2	1	1	2
9	8	1	1	2	0	0	1	2	2	0	0	1	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J
10	9	1	2	0	1	0	1	2	0	0	1	2	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Besten Dank!
mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub vergleichen() Dim Loi As Long Dim LoJ As Long Dim LoLetzte As Long For Loi = 2 To 14 LoLetzte = IIf(IsEmpty(Cells(Rows.Count, Loi)), Cells(Rows.Count, Loi).End(xlUp).Row, _ Rows.Count) For LoJ = 2 To LoLetzte ' Spalte B=2 und P = 16, Ad =30 If Cells(LoJ, Loi) = Cells(LoJ, Loi + 14) Then Cells(LoJ, Loi + 28) = "J" Next LoJ Next Loi End Sub

Hallo Erich,
warum per VBA?
Tabelle1

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL
1	Nr	1	2	3	4	5	6	7	8	9	10	11	12	13		1	2	3	4	5	6	7	8	9	10	11	12	13		gleich in Zeile		Vergleich als Matrix
2	1	1	0	1	0	0	1	2	1	0	0	0	0	2		1	0	1	0	0	1	2	1	0	0	0	0	2		13		1	1	1	1	1	1	1
3	2	1	1	2	0	0	1	2	2	0	0	0	0	2		1	1	2	0	0	1	2	2	0	0	0	0	2		13		1	1	1	1	1	1	1
4	3	1	2	0	1	0	1	2	0	0	0	0	0	2		0	2	0	1	0	1	2	0	0	0	0	0	2		12		0	1	1	1	1	1	1
5	4	1	0	1	1	0	1	2	1	0	2	1	0	2		1	0	1	1	0	1	2	1	0	2	1	0	2		13		1	1	1	1	1	1	1
6	5	1	1	2	1	0	1	2	2	0	2	1	0	2		0	1	2	1	0	1	2	2	0	2	1	0	2		12		0	1	1	1	1	1	1
7	6	1	2	2	0	0	1	2	0	0	2	1	0	2		1	2	2	0	0	1	2	0	0	2	1	0	2		13		1	1	1	1	1	1	1
8	7	1	0	1	0	0	1	2	1	0	2	1	1	2		0	0	1	0	0	1	2	1	0	2	1	1	2		12		0	1	1	1	1	1	1
9	8	1	1	2	0	0	1	2	2	0	0	1	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		13		1	1	1	1	1	1	1
10	9	1	2	0	1	0	1	2	0	0	1	2	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		7		1	0	0	0	1	1	1
11
12	gleich in Spalte	6	8	8	8	9	9	9	8	9	8	8	9	9

Formeln der Tabelle

Zelle	Formel
AD2	=SUMMENPRODUKT(--($B2:$N2=$P2:$AB2))
AF2	=(B2=P2)*1
B12	=SUMMENPRODUKT(--(B$2:B$10=P$2:P$10))

Excel Tabellen im Web darstellen Excel Jeanie HTML

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD
1	Nr	1	2	3	4	5	6	7	8	9	10	11	12	13		1	2	3	4	5	6	7	8	9	10	11	12	13		1
2	1	1	0	1	0	0	1	2	1	0	0	0	0	2		1	0	1	0	0	1	2	1	0	0	0	0	2		J
3	2	1	1	2	0	0	1	2	2	0	0	0	0	2		1	1	2	0	0	1	2	2	0	0	0	0	2		J
4	3	1	2	0	1	0	1	2	0	0	0	0	0	2		0	2	0	1	0	1	2	0	0	0	0	0	2
5	4	1	0	1	1	0	1	2	1	0	2	1	0	2		1	0	1	1	0	1	2	1	0	2	1	0	2		J
6	5	1	1	2	1	0	1	2	2	0	2	1	0	2		0	1	2	1	0	1	2	2	0	2	1	0	2
7	6	1	2	2	0	0	1	2	0	0	2	1	0	2		1	2	2	0	0	1	2	0	0	2	1	0	2		J
8	7	1	0	1	0	0	1	2	1	0	2	1	1	2		0	0	1	0	0	1	2	1	0	2	1	1	2
9	8	1	1	2	0	0	1	2	2	0	0	1	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J
10	9	1	2	0	1	0	1	2	0	0	1	2	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD
1	Nr	1	2	3	4	5	6	7	8	9	10	11	12	13		1	2	3	4	5	6	7	8	9	10	11	12	13		1
2	1	1	0	1	0	0	1	2	1	0	0	0	0	2		1	0	1	0	0	1	2	1	0	0	0	0	2		J
3	2	1	1	2	0	0	1	2	2	0	0	0	0	2		1	1	2	0	0	1	2	2	0	0	0	0	2		J
4	3	1	2	0	1	0	1	2	0	0	0	0	0	2		0	2	0	1	0	1	2	0	0	0	0	0	2
5	4	1	0	1	1	0	1	2	1	0	2	1	0	2		1	0	1	1	0	1	2	1	0	2	1	0	2		J
6	5	1	1	2	1	0	1	2	2	0	2	1	0	2		0	1	2	1	0	1	2	2	0	2	1	0	2
7	6	1	2	2	0	0	1	2	0	0	2	1	0	2		1	2	2	0	0	1	2	0	0	2	1	0	2		J
8	7	1	0	1	0	0	1	2	1	0	2	1	1	2		0	0	1	0	0	1	2	1	0	2	1	1	2
9	8	1	1	2	0	0	1	2	2	0	0	1	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J
10	9	1	2	0	1	0	1	2	0	0	1	2	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD
1	Nr	1	2	3	4	5	6	7	8	9	10	11	12	13		1	2	3	4	5	6	7	8	9	10	11	12	13		1
2	1	1	0	1	0	0	1	2	1	0	0	0	0	2		1	0	1	0	0	1	2	1	0	0	0	0	2		J
3	2	1	1	2	0	0	1	2	2	0	0	0	0	2		1	1	2	0	0	1	2	2	0	0	0	0	2		J
4	3	1	2	0	1	0	1	2	0	0	0	0	0	2		0	2	0	1	0	1	2	0	0	0	0	0	2
5	4	1	0	1	1	0	1	2	1	0	2	1	0	2		1	0	1	1	0	1	2	1	0	2	1	0	2		J
6	5	1	1	2	1	0	1	2	2	0	2	1	0	2		0	1	2	1	0	1	2	2	0	2	1	0	2
7	6	1	2	2	0	0	1	2	0	0	2	1	0	2		1	2	2	0	0	1	2	0	0	2	1	0	2		J
8	7	1	0	1	0	0	1	2	1	0	2	1	1	2		0	0	1	0	0	1	2	1	0	2	1	1	2
9	8	1	1	2	0	0	1	2	2	0	0	1	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J
10	9	1	2	0	1	0	1	2	0	0	1	2	1	2		1	1	2	0	0	1	2	2	0	0	1	1	2		J