Doppelte über zwei Spalten - vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wolfgang,
vieleicht mit Formel und Hyperlink.#
Tabelle1

	A	B	C	D	E	F	G
1	A	B	C	D	E
2	bmu	xvb	msj	hfp	aie
3	nnh	gjq	lrd	xxf	asy
4	qms	hrb	dtf	abc	123		Doppelt in Tabelle2 Zeile 11
5	hog	gkl	ehu	whp	aow
6	eve	ect	dge	oaf	uxi
7	ikv	bqn	wjo	vcp	dsb
8	lhv	niu	hgp	yvg	mgr
9	mwl	qim	cfw	okq	ftx
10	dqh	kuv	gnk	eyp	slc
11	rif	wbp	fuw	mav	akm
12	lxw	yzv	fwq	xyz	uvw		Doppelt in Tabelle2 Zeile 5
13	cfo	ybl	mof	oxc	mwl

Formeln der Tabelle

Zelle	Formel
G2	{=WENN(ISTZAHL(VERGLEICH(D2&E2;Tabelle2!$D$1:$D$13&Tabelle2!$E$1:$E$13;0)); HYPERLINK("#Tabelle2!E"&VERGLEICH(D2&E2;Tabelle2!$D$1:$D$13&Tabelle2!$E$1:$E$13;0); "Doppelt in Tabelle2 Zeile "&VERGLEICH(D2&E2;Tabelle2!$D$1:$D$13&Tabelle2!$E$1:$E$13;0)); "")}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Tabelle2

	A	B	C	D	E
1	A	B	C	D	E
2	nnh	uwh	zcx	ibc	lhw
3	ibq	qgs	kio	ymz	mtm
4	stm	tmt	wiu	imu	nyt
5	asb	wlr	cwl	xyz	uvw
6	pls	kty	hwb	qxl	rmv
7	bhn	tnl	oeb	vmk	apt
8	uin	ysz	xfn	dpb	bmw
9	lpy	dye	lac	ixu	dfx
10	uaw	ggb	csh	ioq	zxw
11	jzt	voy	dcg	abc	123
12	hyh	fcb	xfx	fta	dex
13	upm	sau	xwz	imj	xjh

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Gruß Sepp

Hallo Wolfgang,
per VBA geht das zB. so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub compareRanges()
    Dim objWsA As Worksheet, objWsB As Worksheet
    Dim rngA As Range, rngB As Range
    Dim strA As String, strB As String
    Dim lngRow As Long, lngIndex As Long
    Dim varRes As Variant

    Set objWsA = Sheets("Tabelle1") 'Anpassen
    Set objWsB = Sheets("Tabelle2") 'Anpassen
    Set rngA = objWsA.Range("D2:E" & Application.Max(objWsA.Cells(Rows.Count, 5).End(xlUp).Row, 2))
    Set rngB = objWsB.Range("D2:E" & Application.Max(objWsB.Cells(Rows.Count, 5).End(xlUp).Row, 2))

    For lngIndex = 1 To rngB.Columns.Count
        strB = strB + rngB.Parent.Name & "!" & rngB.Columns(lngIndex).Address & "&"
    Next

    strB = Left(strB, Len(strB) - 1)

    For lngRow = 1 To rngA.Rows.Count
        strA = ""
        For lngIndex = 1 To rngA.Columns.Count
            strA = strA + rngA.Parent.Name & "!" & rngA.Cells(lngRow, lngIndex).Address & "&"
        Next
        strA = Left(strA, Len(strA) - 1)

        varRes = Evaluate("MATCH(" & strA & "," & strB & ",0)")

        If IsNumeric(varRes) Then
            rngA.Parent.Hyperlinks.Add _
                Anchor:=rngA.Cells(lngRow, rngA.Columns.Count).Offset(0, 2), _
                Address:="", _
                SubAddress:=rngB.Parent.Name & "!" & rngB.Rows(varRes).Address, _
                TextToDisplay:="Doppelt!"
        End If
    Next

    Set objWsA = Nothing
    Set objWsB = Nothing
    Set rngA = Nothing
    Set rngB = Nothing
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Doppelte über zwei Spalten - vergleichen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E
1	A	B	C	D	E
2	nnh	uwh	zcx	ibc	lhw
3	ibq	qgs	kio	ymz	mtm
4	stm	tmt	wiu	imu	nyt
5	asb	wlr	cwl	xyz	uvw
6	pls	kty	hwb	qxl	rmv
7	bhn	tnl	oeb	vmk	apt
8	uin	ysz	xfn	dpb	bmw
9	lpy	dye	lac	ixu	dfx
10	uaw	ggb	csh	ioq	zxw
11	jzt	voy	dcg	abc	123
12	hyh	fcb	xfx	fta	dex
13	upm	sau	xwz	imj	xjh

	A	B	C	D	E
1	A	B	C	D	E
2	nnh	uwh	zcx	ibc	lhw
3	ibq	qgs	kio	ymz	mtm
4	stm	tmt	wiu	imu	nyt
5	asb	wlr	cwl	xyz	uvw
6	pls	kty	hwb	qxl	rmv
7	bhn	tnl	oeb	vmk	apt
8	uin	ysz	xfn	dpb	bmw
9	lpy	dye	lac	ixu	dfx
10	uaw	ggb	csh	ioq	zxw
11	jzt	voy	dcg	abc	123
12	hyh	fcb	xfx	fta	dex
13	upm	sau	xwz	imj	xjh

Doppelte über zwei Spalten - vergleichen

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

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B	C	D	E
1	A	B	C	D	E
2	nnh	uwh	zcx	ibc	lhw
3	ibq	qgs	kio	ymz	mtm
4	stm	tmt	wiu	imu	nyt
5	asb	wlr	cwl	xyz	uvw
6	pls	kty	hwb	qxl	rmv
7	bhn	tnl	oeb	vmk	apt
8	uin	ysz	xfn	dpb	bmw
9	lpy	dye	lac	ixu	dfx
10	uaw	ggb	csh	ioq	zxw
11	jzt	voy	dcg	abc	123
12	hyh	fcb	xfx	fta	dex
13	upm	sau	xwz	imj	xjh