mit VBA 2 Blätter vergleichen

[atilla]

Hallo,

wenn Du an einer Lösung interessiert bist, dann stell bitte eine Beispielmappe mit Dummy-Daten aber erkennbarer tatsächlicher Struktur Deiner Tabellen.

[schauan]

Hallöchen,

im Grunde kann Excel von sich aus erst mal nicht entscheiden, ob ein Termin geändert wurde, neu oder entfallen ist. Du könntest die Daten beider Wochen vergleichen und z.B. mit ZÄHLENWENN prüfen, ob ein Termin, der in KW03 geplant wurde, noch im Plan der KW04 enthalten ist und umgedreht.

Hier mal das Prinzip. In Spalte C bzw. F wird Dir mit 1 angezeigt, dass es einen identischen Eintrag in der jeweils anderen Woche gibt, und 0 hat keinen Treffer ergeben ...

Tabellenblattname: Tabelle1

	A	B	C	D	E	F
1	Meier liest	12.01.2017	1	Meier liest	12.01.2017	1
2	Schulze quasselt	13.01.2017	0	Schulze quasselt	14.01.2017	0
3	Schmidt schweigt	14.01.2017	0	Kohl pennt	13.01.2017	0

Benutzte Formeln:
C1:  =ZÄHLENWENNS($D$1:$D$3;A1;$E$1:$E$3;B1)
F1:  =ZÄHLENWENNS($A$1:$A$3;D1;$B$1:$B$3;E1)
C2:  =ZÄHLENWENNS($D$1:$D$3;A2;$E$1:$E$3;B2)
F2:  =ZÄHLENWENNS($A$1:$A$3;D2;$B$1:$B$3;E2)
C3:  =ZÄHLENWENNS($D$1:$D$3;A3;$E$1:$E$3;B3)
F3:  =ZÄHLENWENNS($A$1:$A$3;D3;$B$1:$B$3;E3)
© schauan

Man könnte das jetzt noch erweitern, indem man nur die Terminthemen vergleicht und dadurch sieht, dass der Termin von Schulze quasselt eventuell nur verschoben wurde. Könnte aber auch sein, dass der Schulze zwei Termine hatte und einer ausfällt, oder er quasselt über was anderes, was aus dem Betreff nicht hervorgeht. Oder er quasselt erst in KW05, die hier noch nicht vor liegt.

[snb]

© schauan

:19:

[RPP63]

Moin snb!
Ist ein Tool von Andrés Website.
Aus dem Quellcode:

Code:

 strTab = strTab & strFormeln & "<br>© schauan"

Finde gerade nicht den Link, aber den wird André sicherlich nachreichen.

Gruß Ralf

[RPP63]

Here it is:
http://www.xltips.de/ftxt/lnk-dow/table2www.htm

[snb]

@RPP

Danke, aber wenn © ernst ist, sollte man das nicht veröffentlchen in einem öffentliche Forum.

'©' und 'Forum' scheinen mir widersprüchlich zu sein.

[schauan]

Hallöchen,

© ist mir eigentlich egal und ist mir an der Stelle auch nicht wichtig.
programed by schauan hätte es vielleicht besser getroffen - oder programmed, für die Engländer - für eventuelle Nachfragen der Nutzer, wie oder womit die geposteten Tabellen eigentlich erzeugt wurden. Siehe dazu auch die "Fußnoten" bei den anderen Tabellentools.

[svenham]

Sorry das ich mich jetzt erst melde.

Hier ist die Test mappe.

Also wenn ich Blatt ( Vergleich neu ) was ändere soll die Zelle gefärbt werden.

Aber es klappt nicht.

[Rabe]

Hi Sven,

Aber es klappt nicht.

Abgesehen davon, daß das Makro auf den Change-Event reagieren sollte, sieht man sehr schön, wie notwendig es ist, daß ein Anfänger Option Explicit verwendet, dann wären schon 3 Fehler aufgefallen! Es fehlt END WITH, es fehlt NEXT und das Const Farbe sitzt in der falschen Zeile.

hier per bed. Formatierung:

Vergleich neu

	A	B	C	D	E	F	G
1	50376	42875	9167	100			0
2	51208	43008	9167	4			1
3	51762	43003	9167	7			1
4	52227	43001	9167	3			1
5	52300	42875	9167	187			1
6	52595	43001	9167	66			1
7	52473	42875	9167	34			1
8	52594	43008	9167	20			1
9	52593	43003	9167	8			1

verwendete Formeln
Zelle	Formel	Bereich	N/A
G1:G9	=ZÄHLENWENNS('Vergleich alt'!$A$1:$A$9;A1;'Vergleich alt'!$B$1:$B$9;B1;'Vergleich alt'!$C$1:$C$9;C1;'Vergleich alt'!$D$1:$D$9;D1)

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

Hier das funktionierende Makro, mit einem zum Zurücksetzen der Einfärbung:

Option Explicit

Const Farbe = 15   'Innenfarbe Hellgrau 

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim AC As Object
   Worksheets("Vergleich neu").Select
   'Schleife zum vergleichen und markieren 
   For Each AC In Range("A1:SD500")
      With Worksheets("Vergleich alt")
         If .Cells(AC.Row, AC.Column) <> AC.Value Then
            AC.Interior.ColorIndex = Farbe
         End If
      End With
   Next AC
End Sub

Sub entfärben()
   
   Range("A1:SD500").Interior.ColorIndex = xlNone
   
End Sub

[svenham]

Es klappt !!!!
Vielen Dank !!!!

Kann man eigentlich die Schrift im Feld dann auch Fett und Rot machen ?