Vergleich Spalten mit Markierung

Forumthread: Vergleich Spalten mit Markierung

20.06.2008 12:37:24

Andreas

Hallo,
ich benötige für folgendes Problem ein Makro:
Es sollen alle Zellen in der Spalte C (Format: Text) ab der zweiten Zeile mit allen Zellen in der Spalte H (Format: Text) ab der zweiten Zeile verglichen werden.
1. Wenn die Zelle aus Spalte C nicht identisch mit dem Zellinhalt der Spalte H ist, soll die entsprechende Zelle in Spalte C markiert werden.
2. Desweiteren muß die zweite Bedingung geprüft werden:
Wenn die Inhalte identisch sind (z.B. C3 = H16), soll die zur Spalte C gehörige Zelle in Spalte E (dann E3 mit der entsprechenden Zelle in Spalte J (dann J16) verglichen werden. Die Spalten E und J haben das Format Datum.
Wenn die Zellen der Spalte E (hier E3) und Spalte J (hier J16) nicht identisch sind, soll die zugehörige Zelle in Spalte C (hier C3) markiert werden.
Ich hoffe die Erklärung ist nachvollziehbar.
Gruß Andreas

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Bahnhof?

20.06.2008 17:59:46

Klaus
AW: Bahnhof?

20.06.2008 19:28:26

Andreas
AW: Bahnhof?

20.06.2008 20:35:00

jockel
AW: Bahnhof?

21.06.2008 19:48:00

Andreas
AW: Bahnhof?

23.06.2008 17:09:00

Andreas
AW: Vergleich Spalten mit Markierung

26.06.2008 22:55:20

Gerd
AW: Vergleich Spalten mit Markierung

27.06.2008 12:41:00

Andreas

Bahnhof?

20.06.2008 17:59:46

Klaus

Ich hoffe die Erklärung ist nachvollziehbar.

Nein, leider nicht. Beispieldatei?
Grüße,
Klaus M.vdT.

AW: Bahnhof?

20.06.2008 19:28:26

Andreas

Hallo,
ein Beispiel befindet sich in der Anlage.
https://www.herber.de/bbs/user/53227.xls
Gruß Andreas

AW: Bahnhof?

20.06.2008 20:35:00

jockel

hi Andreas, meinst du vielleicht so:
Tabelle1

	A	B	C	D	E	F	G	H	I	J
1	Vorname	Nachname	Kundennr.	Anfang	Ende			Kundennr.	Anfang	Ende
2	N.N	N.N.	P999123456	01.10.2008	31.10.2008			P999123465	10.10.2008	09.11.2008
3	N.N	N.N.	P999123457	02.10.2008	01.11.2008			P999123466	11.10.2008	10.11.2008
4	N.N	N.N.	P999123458	03.10.2008	02.11.2008			P999123467	12.10.2008	11.11.2008
5	N.N	N.N.	P999123459	04.10.2008	03.11.2008			P999123468	13.10.2008	12.11.2008
6	N.N	N.N.	P999123460	05.10.2008	04.11.2008			P999123469	14.10.2008	13.11.2008
7	N.N	N.N.	P999123461	06.10.2008	05.11.2008			P999123470	15.10.2008	14.11.2008
8	N.N	N.N.	P999123462	07.10.2008	06.11.2008			P999123471	16.10.2008	15.11.2008
9	N.N	N.N.	P999123463	08.10.2008	07.11.2008			P999123472	17.10.2008	16.11.2008
10	N.N	N.N.	P999123464	09.10.2008	08.11.2008			P999123473	18.10.2008	17.11.2008
11	N.N	N.N.	P999123465	10.10.2008	09.11.2008			P999123474	19.10.2008	18.11.2008
12	N.N	N.N.	P999123466	11.10.2008	10.11.2008			P999123475	20.10.2008	19.11.2008
13	N.N	N.N.	P999123467	12.10.2008	11.11.2008			P999123476	21.10.2008	20.11.2008
14	N.N	N.N.	P999123468	13.10.2008	12.11.2008			P999123477	22.10.2008	21.11.2008
15	N.N	N.N.	P999123469	14.10.2008	13.11.2008			P999123456	01.10.2008	31.10.2008
16	N.N	N.N.	P999123470	15.10.2008	14.11.2008			P999123457	01.12.2008	31.12.2008
17	N.N	N.N.	P999123471	16.10.2008	15.11.2008			P999123458	03.10.2008	02.11.2008
18	N.N	N.N.	P999123472	17.10.2008	16.11.2008			P999123459	04.10.2008	03.11.2008
19	N.N	N.N.	P999123473	18.10.2008	17.11.2008			P999123460	05.10.2008	04.11.2008
20
21
22
23		Kundennummer markiert, da Datensätze im rechten Bereich fehlen
24
25		Kundennummer markiert, da bei gleicher Kundennumer Endedatum unterschiedlich

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
C2	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C2)=0	Abc
C2	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C2)*($J$2:$J$19<>E2))	Abc
C3	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C3)=0	Abc
C3	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C3)*($J$2:$J$19<>E3))	Abc
C4	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C4)=0	Abc
C4	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C4)*($J$2:$J$19<>E4))	Abc
C5	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C5)=0	Abc
C5	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C5)*($J$2:$J$19<>E5))	Abc
C6	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C6)=0	Abc
C6	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C6)*($J$2:$J$19<>E6))	Abc
C7	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C7)=0	Abc
C7	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C7)*($J$2:$J$19<>E7))	Abc
C8	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C8)=0	Abc
C8	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C8)*($J$2:$J$19<>E8))	Abc
C9	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C9)=0	Abc
C9	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C9)*($J$2:$J$19<>E9))	Abc
C10	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C10)=0	Abc
C10	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C10)*($J$2:$J$19<>E10))	Abc
C11	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C11)=0	Abc
C11	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C11)*($J$2:$J$19<>E11))	Abc
C12	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C12)=0	Abc
C12	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C12)*($J$2:$J$19<>E12))	Abc
C13	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C13)=0	Abc
C13	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C13)*($J$2:$J$19<>E13))	Abc
C14	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C14)=0	Abc
C14	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C14)*($J$2:$J$19<>E14))	Abc
C15	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C15)=0	Abc
C15	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C15)*($J$2:$J$19<>E15))	Abc
C16	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C16)=0	Abc
C16	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C16)*($J$2:$J$19<>E16))	Abc
C17	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C17)=0	Abc
C17	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C17)*($J$2:$J$19<>E17))	Abc
C18	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C18)=0	Abc
C18	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C18)*($J$2:$J$19<>E18))	Abc
C19	1. / Formel ist =ZÄHLENWENN($H$2:$H$19;C19)=0	Abc
C19	2. / Formel ist =SUMMENPRODUKT(($H$2:$H$19=C19)*($J$2:$J$19<>E19))	Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
cu jörg
ein feedback wär ganz reizend

AW: Bahnhof?

21.06.2008 19:48:00

Andreas

Hallo Jörg,
danke für Deine Hilfe, aber ich benötige ein Makro in VBA, da das Beispiel nur ein Muster war.
Hier habe ich nur das Hauptproblem beschrieben.
Das Makro wird auch noch um andere Aktionen ergänzt.
Gruß Andreas

AW: Bahnhof?

23.06.2008 17:09:00

Andreas

Hallo,
habe mittlwerweile die erste Abfrage als Makro umgesetzt.
Sub Zellen_vergleichen() Dim lngI As Long Dim intWert1 As Integer Application.ScreenUpdating = False For lngI = 2 To Cells(Rows.Count, 3).End(xlUp).Row intWert1 = Application.WorksheetFunction.CountIf(Worksheets("Tabelle1").Range("H2:H10000"), _ Cells(lngI, 3).Value) If intWert1 = 0 Then Cells(lngI, 3).Interior.ColorIndex = 3 End If Next lngI Application.ScreenUpdating = True End Sub

Es fehlt jetzt nur die Abfrage, wenn die Kundennummer gleich ist, aber das Endedatum ungleich ist => dann soll die Kundenummer in Spalte C ebenfalls markiert werden.
Gruß Andreas

AW: Vergleich Spalten mit Markierung

26.06.2008 22:55:20

Gerd

Hallo Andreas!


Sub Zellen_vergleichen()
Dim Ws As Worksheet
Dim Suchbereich As Range
Dim lngI As Long
Application.ScreenUpdating = False
Set Ws = ThisWorkbook.Worksheets("Tabelle1")
With Ws
Set Suchbereich = .Range(.Cells(1, 8), .Cells(Rows.Count, 8).End(xlUp))
For lngI = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Suchbereich, .Cells(lngI, 3).Value) = 0 Then
.Cells(lngI, 3).Interior.Color = vbYellow
ElseIf Ws.Cells(Application.Match(Ws.Cells(lngI, 3).Value, Suchbereich, 0), 10).Value  _
Ws.Cells(lngI, 5).Value Then .Cells(lngI, 3).Interior.Color = vbBlue
End If
Next lngI
End With
Application.ScreenUpdating = True
End Sub

Gruß Gerd

AW: Vergleich Spalten mit Markierung

27.06.2008 12:41:00

Andreas

Hallo Gerd,
besten Dank für Deine Hilfe.
Gruß Andreas

Forumthread: Vergleich Spalten mit Markierung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread