Spalten vergleichen: neue Zellen markieren

Forumthread: Spalten vergleichen: neue Zellen markieren

04.11.2007 19:49:07

Burghard

Hallo,
brauche mal Hilfe. Ich möchte im Tabellenblatt "02" in der Spalte A die Zellen in Spalte A farbig markieren lassen, die nicht im Tabellenblatt "01" vorhanden sind, also im Tabellenblatt "02" in der Spalte A neu hinzugekommen sind.
Das untere Makro (aus dem Internet) markiert nur die gleichen Datensätze. Ich brauche aber die Markierung nicht für die gleichen Datensätze nach Spalte A, sondern die Markierung für die neu hinzugekommen Datensätze nach der Spalte A im Tabellenblatt "02".
Sub Spalten_vergleichen() Dim wks1 As Worksheet Dim wks2 As Worksheet Set wks1 = Worksheets("01") Set wks2 = Worksheets("02") i = 1 j = 1 Do Until wks1.Range("A" & i).Value = "" Do Until wks2.Range("A" & j).Value = "" If wks1.Range("A" & i).Value = wks2.Range("A" & j).Value Then wks2.Range("A" & j).Interior.ColorIndex = 19 Exit Do End If j = j + 1 Loop i = i + 1 j = 1 Loop End Sub

Über Hilfe würde ich mich freuen. Vielen Dank im voraus.
Schönen Gruß
Burghard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten vergleichen: neue Zellen markieren

04.11.2007 20:03:10

jockel

hi Burghard, wenn's auch ohne makro sein darf, guckst du hier: http://www.online-excel.de/excel/singsel.php?f=76#s36 unter "Zellvergleich blattübergreifend mit der Funktion INDIREKT" - ich denke das passt...
cu jockel
ein feedback wär ganz reizend

AW: Spalten vergleichen: neue Zellen markieren

04.11.2007 20:12:05

Burghard

Hallo Jockel,
vielen Dank für die schnelle Antwort. Ich gucke mir die Sache einmal an. Aber ich brauche das Ganze wirklich als VBA Code.
Schönen Gruß
Burghard

AW: Spalten vergleichen: neue Zellen markieren

04.11.2007 20:40:00

Daniel

Hi
naja, wenns als VBA-Code sein muß, kannst du ja auch den Recorder mitlaufen lassen und als Code das Setzen der Bedingten Formatierung verwenden.
wenn die Bedingte Formatierung nicht geeignet ist und die neune Datensätze richtig gefärbt werden sollen, solltest du die dieses Makro hier verwenden:
Sub NeueDatensätzeMakieren() Dim shAlt As Worksheet Dim shNeu As Worksheet Set shAlt = Sheets("01") Set shNeu = Sheets("02") shNeu.Columns(1).Interior.ColorIndex = xlNone shNeu.Columns(1).Insert With shNeu.Range(shNeu.Cells(1, 1), shNeu.Cells(65536, 2).End(xlUp).Offset(0, -1)) .FormulaR1C1Local = "=WENN(ZÄHLENWENN('" & shAlt.Name & "'!S1;ZS(1))=0;WAHR;"""")" .Formula = .Value .SpecialCells(xlCellTypeConstants, 4).Offset(0, 1).Interior.ColorIndex = 8 .EntireColumn.Delete End With End Sub

den Schleifenquatsch von deinem Beispielmakro programmier ich nicht nach.
Gruß, Daniel

AW: Spalten vergleichen: neue Zellen markieren

05.11.2007 11:35:00

Burghard

Hallo Daniel,
Klappt super! Vielen Dank!
Gruß Burghard

hier mal ein beispiel:

04.11.2007 20:14:00

jockel

hi Burghard, guckst du; es funzt:

Tabelle1

	A	B	C
1	1	1
2	2	2
3		3	3
4	4		4
5	5		5
6	6	6	6
7	7	7
8		8	8
9	9		9
10	10		10
11	11		11
12	12	12	12
13	13	13
14		14	14

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Tabelle2

	A	B	C
1	1	1	1
2	2	2	2
3	3	3	3
4	4	4	4
5	5	5	5
6	6	6	6
7	7	7	7
8	8	8	8
9	9	9	9
10	10	10	10
11	11	11	11
12	12	12	12
13	13	13	13
14	14	14	14

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
A1	1. / Formel ist =A1<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B1	1. / Formel ist =B1<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C1	1. / Formel ist =C1<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A2	1. / Formel ist =A2<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B2	1. / Formel ist =B2<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C2	1. / Formel ist =C2<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A3	1. / Formel ist =A3<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B3	1. / Formel ist =B3<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C3	1. / Formel ist =C3<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A4	1. / Formel ist =A4<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B4	1. / Formel ist =B4<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C4	1. / Formel ist =C4<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A5	1. / Formel ist =A5<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B5	1. / Formel ist =B5<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C5	1. / Formel ist =C5<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A6	1. / Formel ist =A6<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B6	1. / Formel ist =B6<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C6	1. / Formel ist =C6<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A7	1. / Formel ist =A7<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B7	1. / Formel ist =B7<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C7	1. / Formel ist =C7<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A8	1. / Formel ist =A8<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B8	1. / Formel ist =B8<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C8	1. / Formel ist =C8<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A9	1. / Formel ist =A9<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B9	1. / Formel ist =B9<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C9	1. / Formel ist =C9<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A10	1. / Formel ist =A10<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B10	1. / Formel ist =B10<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C10	1. / Formel ist =C10<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A11	1. / Formel ist =A11<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B11	1. / Formel ist =B11<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C11	1. / Formel ist =C11<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A12	1. / Formel ist =A12<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B12	1. / Formel ist =B12<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C12	1. / Formel ist =C12<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A13	1. / Formel ist =A13<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B13	1. / Formel ist =B13<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C13	1. / Formel ist =C13<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
A14	1. / Formel ist =A14<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
B14	1. / Formel ist =B14<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc
C14	1. / Formel ist =C14<>INDIREKT(ADRESSE(ZEILE();SPALTE();4;1;"Tabelle1"))	Abc

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
cu jörg
ein feedback wär ganz reizend

AW: hier mal ein beispiel:

05.11.2007 11:36:19

Burghard

Hallo Jockel,
vielen Dank für Dein Beispiel. Habe mir das mal ins Archiv gelegt.
Die beiden Lösungen per VBA sind eigentlich das was ich gesucht habe. Vielen Dank für Deine Hilfe und Bemühungen!
Schönen Gruß
Burghard

AW: Spalten vergleichen: neue Zellen markieren

04.11.2007 20:19:41

Josef

Hallo Burghard,
Sub vergleich()
Dim rng As Range, rngM As Range, rngA As Range

Set rng = Sheets("01").Range("A1:A" & Sheets("01").Cells(Rows.Count, 1).End(xlUp).Row)
Set rngM = Sheets("02").Range("A1:A" & Sheets("02").Cells(Rows.Count, 1).End(xlUp).Row)

With rngM
    .Parent.Columns(1).Insert

    rngM.Offset(0, -1).Formula = "=MATCH(RC[1]," & rng.Parent.Name & "!" & _
        rng.Address(ReferenceStyle:=xlR1C1) & ",0)"

    On Error Resume Next
    Set rngA = rngM.Offset(0, -1).SpecialCells(xlCellTypeFormulas, 16)
    On Error GoTo 0

    If Not rngA Is Nothing Then
        rngA.Offset(0, 1).Interior.ColorIndex = 19
        'Optional Zeilen ausblenden
        rngM.EntireRow.Hidden = True
        rngA.EntireRow.Hidden = False
    End If

    .Parent.Columns(1).Delete
End With

Set rng = Nothing
Set rngM = Nothing
Set rngA = Nothing
End Sub

Gruß Sepp

AW: Spalten vergleichen: neue Zellen markieren

05.11.2007 11:37:00

Burghard

Hallo Josef,
klappt prima! Schönen Dank!
Gruß Burghard

Beliebteste Forumthreads (12 Monate)

Spalten vergleichen: neue Zellen markieren

Forumthread: Spalten vergleichen: neue Zellen markieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Spalten vergleichen: neue Zellen markieren

Forumthread: Spalten vergleichen: neue Zellen markieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread