Vergleich zweier Datenblätter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lars,
es ginge auch ohne VBA. (Weil du nach VBA gefragt hast, lasse ich die Frage offen.)
Die Hilfsspalten E und F kannst du ja ausblenden, wenn sie stören:

	A	B	C	D	E	F
1	Leistungsart	qm/h	Preis		qm/h(Tab1)	Preis(Tab1)
2	Befeuchtung	100	0,70		100	0,77
3	Aufstellung	15	1,00		#NV	#NV
4	Lüftung	12	0,50		13	0,5
5	Trocknung	10	0,30		10	0,3

Formeln der Tabelle

E2 : =SVERWEIS($A2;Tabelle1!$A$2:$C$30;2;FALSCH)
F2 : =SVERWEIS($A2;Tabelle1!$A$2:$C$30;3;FALSCH)
E3 : =SVERWEIS($A3;Tabelle1!$A$2:$C$30;2;FALSCH)
F3 : =SVERWEIS($A3;Tabelle1!$A$2:$C$30;3;FALSCH)
E4 : =SVERWEIS($A4;Tabelle1!$A$2:$C$30;2;FALSCH)
F4 : =SVERWEIS($A4;Tabelle1!$A$2:$C$30;3;FALSCH)
E5 : =SVERWEIS($A5;Tabelle1!$A$2:$C$30;2;FALSCH)
F5 : =SVERWEIS($A5;Tabelle1!$A$2:$C$30;3;FALSCH)

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
B2	1. / Formel ist =(B2<>E2)	Abc
C2	1. / Formel ist =(C2<>F2)	Abc
B3	1. / Formel ist =(B3<>E3)	Abc
C3	1. / Formel ist =(C3<>F3)	Abc
B4	1. / Formel ist =(B4<>E4)	Abc
C4	1. / Formel ist =(C4<>F4)	Abc
B5	1. / Formel ist =(B5<>E5)	Abc
C5	1. / Formel ist =(C5<>F5)	Abc

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Tabelle1 sieht so aus:

	A	B	C
1	Leistungsart	qm/h	Preis
2	Trocknung	10	0,30
3	Lüftung	13	0,50
4	Befeuchtung	100	0,77
5	Erhitzung	1	0,05

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Lars,
wenn du eine VBA-Lösung besser verwenden kannst:
Private Sub CommandButton1_Click() Dim zz1 As Long, zz2 As Long, vgl As Double With Sheets("Tabelle1") zz1 = .Cells(Rows.Count, 1).End(xlUp).Row For zz2 = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Not IsEmpty(Cells(zz2, 1)) Then vgl = -1 On Error Resume Next vgl = Application.WorksheetFunction.VLookup(Cells(zz2, 1), _ .Range(.Cells(2, 1), .Cells(zz1, 3)), 2, False) On Error GoTo 0 If vgl > -1 Then If vgl <> Cells(zz2, 2) Then Cells(zz2, 2).Interior.ColorIndex = 6 End If vgl = -1 On Error Resume Next vgl = Application.WorksheetFunction.VLookup(Cells(zz2, 1), _ .Range(.Cells(2, 1), .Cells(zz1, 3)), 3, False) On Error GoTo 0 If vgl > -1 Then If vgl <> Cells(zz2, 3) Then Cells(zz2, 3).Interior.ColorIndex = 6 End If End If Next zz2 End With End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleich zweier Datenblätter

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread