Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Sheets vergleichen & Unstimmigkeiten markieren ?

Forumthread: 2 Sheets vergleichen & Unstimmigkeiten markieren ?

2 Sheets vergleichen & Unstimmigkeiten markieren ?
Daniel
Haaallo,
ich bräuchte hilfe bei einer Vergleichs-Story in Excel.
Und zwar habe ich als Beispiel mal folgende Datei:
https://www.herber.de/bbs/user/72459.xls
Über den Sinn des Inhalts reden wir mal nicht, die Daten die normalerweise drin stehen sind confidential, darf ich hier nicht preisgeben.
Jedenfalls brauche ich folgendes, entweder ein VBA Code oder eine Formel, egal wie.
Es soll ZEILE für ZEILE von Tabelle1 mit Tabelle2 verglichen werden, sprich A2 aus Tab1 mit A2 aus Tab2. Hat sich in der Tabelle2 nichts verändert, sprich alles in A2 ist gleich Tab1=Tab2, dann soll nichts passieren.
Wenn der Vergleich jedoch auch nur eine einzige Zahl oder ein Buchstabe erkennt, der anders ist als in Tab1, dann soll in einer dahinter liegenden Spalte ein X angezeigt werden, damit man erkennt dass ein Unterschied besteht.
Am allerfeinsten wäre dann dabei eine farbige Markierung der jeweiligen Fehlerquelle (sprich wo ist der Unterschied).
Ich habe bereits das hier mal ausprobiert, was ja eig. genau das ist, was ich suche - aber ich kriege es partout nicht zum laufen:
https://www.herber.de/mailing/136001h.htm
Ständig kommt die Fehlermeldung "Außerhalb einer Prozedur ungültig" ...
ich muss dazu sagen - ich kann mit Excel umgehen, sofern es nicht um irgendwelche krassen Formelbefehle geht und solang ich kein VBA machen muss. Denn VBA hab ich bisher noch nie gemacht. Ist natürlich dann Supi wenn von meinem Chef (ich= Werksstudent) dann kommt "machense mal, das ist wichtig".
Wer eine Idee hat, wie ich das mit VBA hinbekomme, oder diesen vll. doch recht einfacher Vergleich mit ner großen Formel für jede Zeile einzeln lösen kann, bitte melden ! Wäre sehr sehr dankbar.
btw: hier daheim hab ich Excel 2007, in der Firma nur 2003 - hoffe nicht dass der Fehler daran liegen könnte.
Anzeige

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

Betreff
Benutzer
Anzeige
AW: 2 Sheets vergleichen & Unstimmigkeiten markieren ?
24.11.2010 19:04:33
wolfgang
Hallo Daniel
am einfachsten gehts mit der Formel identisch
Wenn die Tabelle nicht zu groß ist macht sich das auch ganz gut.
=IDENTISCH(Tabelle1!B3;Tabelle2!B3)
gruß wolfgang
AW: 2 Sheets vergleichen & Unstimmigkeiten markieren ?
24.11.2010 19:18:00
Daniel
Naja, es sind am Ende schon so 300 Einträge (Zeilen) ... von Spalte A bis N
Beispieldatei mit VBA
24.11.2010 19:18:24
robert
Hi,
hier ein beispiel, wobei zeilen und spalten nicht autonmatisiert sind,
ev. noch zu machen, oder du gibst zeilen und spalten
wie im beispiel ein.
VBA-profis-bitte nicht lachen ;-)
https://www.herber.de/bbs/user/72462.xls
gruß
robert
Anzeige
Lust auf VBA?
24.11.2010 19:26:32
Erich
Hi Daniel,
vielleicht interessiert dich VBA ja doch noch?
Hier die Prozedur (in ein normales Modul): 

Option Explicit
Sub meinVergleich()
Dim rngT1 As Range, blnDif As Boolean
Dim lngR As Long, lngC As Long, zz As Long, cc As Long
With Worksheets("Tabelle1")
lngR = .Cells(.Rows.Count, 1).End(xlUp).Row
lngC = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rngT1 = .Range(.Cells(3, 1), .Cells(lngR, lngC))
End With
With Worksheets("Tabelle2")
For zz = 3 To lngR
blnDif = False
For cc = 1 To lngC
If .Cells(zz, cc)  rngT1(zz - 2, cc) Then
.Cells(zz, cc).Font.ColorIndex = 3
' oder auch
.Cells(zz, cc).Interior.ColorIndex = 6
blnDif = True
End If
Next cc
If blnDif Then .Cells(zz, lngC + 2) = "x"
Next zz
If lngR
Und hier eine BeiSpielMappe: https://www.herber.de/bbs/user/72464.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Lust auf VBA?
24.11.2010 20:30:43
wolfgang
Hier noch ein VBA Beispiel 
Sub vergleich()
Dim x As Object, y As Object
Set x = Worksheets("Tabelle1")
Set y = Worksheets("Tabelle2")
Dim Zeile As Long, LetzteSpalte As Long
LetzteSpalte = y.Range("A1").SpecialCells(xlCellTypeLastCell).Column
Dim RC
For Each zelle In y.UsedRange
RC = zelle.Address
Zeile = zelle.Row
If x.Range(RC).Value  y.Range(RC).Value Then
y.Range(RC).Interior.ColorIndex = 3
y.Cells(Zeile, LetzteSpalte) = "x"
End If
Next
End Sub

Anzeige
AW: Lust auf VBA?
24.11.2010 20:45:59
Daniel
Cool :)
Danke euch beiden ! beide Versionen machen das was sie sollen !
Ja, werde mich mal einarbeiten... denke ich brauch vll. nun noch öfters -.-
Es macht jedenfalls exakt das was es soll. Ok, zwei Mankos, aber die sind nicht so von Bedeutung. Beim Code von Erich G. kann man das ganze nur ein mal laufen lassen. Sprich wenn einmal die Zellen gefärbt sind und ein "x" da steht, bleibt es da, auch wenn ich den Zellinhalt wieder korrekt tab1=tab2 eintrage. Aber das ist denke ich nicht so wild.
Das Beispiel von Robert habe ich ein wenig abgeändert, damit es in die eigentliche Tabelle passt (Spalten A bis N). Funktioniert auch :)
Werde es meinem Chef mal schicken ... hab gestern 5 Stunden dran rumgemacht und heute 4 ... irgendwie nervig wenn man ständig googlet, versucht irgendwas zusammenzustümpern :( Naja
VIIIIIIIIIIIIIIELEN DANK erstmal ! :)
Anzeige
Prozedur um Löschen ergänzt
25.11.2010 08:13:31
Erich
Hi Daniel,
dein Wunsch (oder der deines Chefs ;-)) kann natürlich erfüllt werden: 

Option Explicit
Sub meinVergleich2()
Dim rngT1 As Range, blnDif As Boolean
Dim lngR As Long, lngC As Long, zz As Long, cc As Long
With Worksheets("Tabelle1")
lngR = .Cells(.Rows.Count, 1).End(xlUp).Row
lngC = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rngT1 = .Range(.Cells(3, 1), .Cells(lngR, lngC))
End With
With Worksheets("Tabelle2")
zz = .Cells(.Rows.Count, 1).End(xlUp).Row
If zz  rngT1(zz - 2, cc) Then
.Cells(zz, cc).Font.ColorIndex = 3
' oder auch
.Cells(zz, cc).Interior.ColorIndex = 6
blnDif = True
End If
Next cc
If blnDif Then .Cells(zz, lngC + 2) = "x"
Next zz
zz = .Cells(.Rows.Count, 1).End(xlUp).Row
If lngR
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
;

Forumthreads zu verwandten Themen

Zeichenfolgen vergleichen und markieren
mehmet

Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
Anzeige
2 TabellenBlätter vergleichen - gleiche markieren
Andy

Hallo,
ich habe 2 unterschiedliche Tabellen in denen ein Mitgliederabgleich durch geführt werden soll.
In der Tabelle1 sind die Namen der Mitglieder einer Gruppe zusammen in einer Zelle hinter einander geschrieben; in der der Tabelle2 sind alle Mitglieder unter einander (jeweils neue Ze...
16.04.2009 11:44:02
Thread-ID: 1069028
13 Beiträge
Anzeige
Zwei Tabellen je Zelle vergleichen + markieren | Herbers Excel-Forum
Constantin
Hallo,
ich möchte zwei Tabellen (Tabelle1 und Tabelle2) in einer Arbeitsmappe (ab Zeile 2) miteinander vergleichen und die Unterschiede durch farbliche Markierung der jeweiligen Zelle in Tabelle1 sichtbar machen.
Ich versuche, die angedachte Logik einigermaßen präzise zu beschreiben und hof...
11.01.2010 14:19:47
Thread-ID: 1128880
5 Beiträge
Anzeige
Zellentext mit Liste vergleichen und Eigenschaft
Ingo

Hallo Zusammen,
vielleicht kann hier jemand helfen - ich bekomme es einfach nicht hin!
Ich habe zwei Excel-Tabellen in der einen habe ich Zellen mit Text.
Pro Zelle will ich nun wissen ob Sie einen Begriff aus der Liste in der zweiten Tabelle enthält,
wenn ja dann soll die Eige...
05.02.2012 03:10:35
Thread-ID: 1249351
12 Beiträge
Daten vergleichen und markieren
Captain

Moin @all,
ich habe ein kleines Problem.
Ich möchte Daten (Datum) aus der Spalte AJ (AJ1:AJ25) mit Daten (Datum) aus den Spalten B6:X41 vergleichen. Bei Übereinstimung eines Datums hätte ich dieses in dem Bereich B6:X41 markiert. Wie muss ich das angehen?
Als Formel über eine beding...
04.07.2012 08:29:40
Thread-ID: 1269825
6 Beiträge
Zeilen Vergleichen und kopieren/markieren
Benni

Hallo,
ich habe folgendes Problem und freue mich über jede Unterstützung.
Ich habe zwei Tabellenblätter: Gerätschaften und Inventar.
Bitte s. auch folgendes File: https://www.herber.de/bbs/user/85547.xlsx
Im Tabellenblatt Inventar habe ich verschiedene Gegenstände, die in der...
27.05.2013 19:11:41
Thread-ID: 1315134
14 Beiträge
Anzeige
Tabellen vergleichen und markieren
Thomas

Was einfaches, aber ich bin zu blöd.
Egal ob Formel oder VBA, was immer geht, helft mir.
Ich habe 2 Tabellen.
1 Tabelle
A B C E
ID11111 Name Vorname Ort
ID25432 Name Vorname Ort
ID26712 Name Vorname Ort
.
.
Tabelle 2
...
26.07.2013 16:13:42
Thread-ID: 1324395
8 Beiträge
Spalten vergleichen und Unterschiede ohne Lücke
Alex

Hallo
ich habe 2Spalten, die ich gerne vergleichen möchte. Dabei sollen die Werte aus Spalte A mit den Werten aus Spalte C überprüft werden und die Unterschiede (in A aber nicht in C enthalten) in Spalte E ohne Lücken (also alle fehlenden Werte untereinander) angezeigt werden.
Kann mir...
18.06.2014 16:10:37
Thread-ID: 1366404
2 Beiträge
Liste vergleichen und in anderer Liste aufnehmen
Dietmar

Hallo Experten,
ich habe ein kompaktes Problem und ich weiß gar nicht ob dieses so mir nichts dir nichts zu lösen ist. Ich hoffe es zumindest.
Also, ich leg mal los und hoffe ich drücke mich deutlich aus :
Ich habe ein Tabellenblatt "Artikelliste", auf diesem sind hunderte von Artik...
26.07.2014 12:31:43
Thread-ID: 1372447
5 Beiträge
Werte in einer Liste vergleichen und ändern
Jan

Hallo,
ich habe eine Telefonliste in diesem Format ( Die Datei https://www.herber.de/bbs/user/95856.xlsx wurde aus Datenschutzgründen gelöscht ) vorliegen. Die echte Telefonliste hat über 30000 Einträge, ist aber ansonsten vergleichbar mit dieser hier.
Wie man sieht sind die Einzelkoste...
19.02.2015 04:18:03
Thread-ID: 1410242
3 Beiträge
Tabelle: Zeilen vergleichen-Unterschiede markieren
DAEMAN

Leider ist der bisherige Verlauf verloren gegangen/deaktiviert worden, daher hier die Historie: Hallo Leute, ich habe mir eine Excel-VBA-Abfrage erstellt mit deren Hilfe Word-Formulare ausgelesen (XML- _ Verknüpfung) und in eine Excel-Tabelle geschrieben werden. Die Formulare haben verschiedene...
16.06.2015 09:13:12
Thread-ID: 1431117
2 Beiträge
Zwei Listen vergleichen und fehl. Einträge finden
Alex

Hallo Forum,
ich hoffe ihr könnt mir helfen :) Vor mir sind zwei Listen mit mehr als 5000 Einträgen, dabei ist eine Liste vollständig und die andere ist nicht vollständig. Jetzt muss ich möglichst schnell erfahren welche Einträge in Liste A fehlen. Mit welcher Funktion geht das am besten? G...
21.07.2015 15:44:54
Thread-ID: 1437677
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel Sheets vergleichen und Unstimmigkeiten markieren

Schritt-für-Schritt-Anleitung

  1. Vorbereitung: Stelle sicher, dass beide Tabellen, die Du vergleichen möchtest, in Deinem Excel-Dokument vorhanden sind. In diesem Beispiel verwenden wir Tabelle1 und Tabelle2.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Modul einfügen: Klicke mit der rechten Maustaste auf VBAProject (DeineDatei.xlsx), gehe zu Einfügen und wähle Modul.

  4. VBA-Code einfügen: Kopiere den folgenden Code in das Modul:

    Option Explicit
Sub meinVergleich()
   Dim rngT1 As Range, blnDif As Boolean
   Dim lngR As Long, lngC As Long, zz As Long, cc As Long

   With Worksheets("Tabelle1")
       lngR = .Cells(.Rows.Count, 1).End(xlUp).Row
       lngC = .Cells(1, .Columns.Count).End(xlToLeft).Column
       Set rngT1 = .Range(.Cells(1, 1), .Cells(lngR, lngC))
   End With

   With Worksheets("Tabelle2")
       For zz = 1 To lngR
           blnDif = False
           For cc = 1 To lngC
               If .Cells(zz, cc) <> rngT1(zz, cc) Then
                   .Cells(zz, cc).Interior.ColorIndex = 6 ' Gelbe Markierung
                   blnDif = True
               End If
           Next cc
           If blnDif Then .Cells(zz, lngC + 1) = "X" ' Unterschied markieren
       Next zz
   End With
End Sub

  5. Code ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle meinVergleich und klicke auf Ausführen.

  6. Ergebnis überprüfen: In Tabelle2 sollten nun alle Zellen, die von Tabelle1 abweichen, farblich markiert sein und in der letzten Spalte ein "X" anzeigen.

Häufige Fehler und Lösungen

  • Fehlermeldung "Außerhalb einer Prozedur ungültig": Dies kann passieren, wenn der Code nicht korrekt in ein Modul eingefügt wurde. Stelle sicher, dass Du den Code in ein Standardmodul und nicht in ein Klassenmodul oder ein Arbeitsblattmodul einfügst.

  • Keine Markierungen sichtbar: Überprüfe, ob die Zellinhalte tatsächlich unterschiedlich sind. Es kann auch hilfreich sein, die Zellen zu formatieren (z.B. als Text), um sicherzustellen, dass keine versteckten Unterschiede bestehen.

  • Verwenden von Excel 2003 oder 2007: Achte darauf, dass der VBA-Code mit der verwendeten Excel-Version kompatibel ist. Ältere Versionen haben möglicherweise geringfügige Unterschiede in der Funktionalität.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die Funktion IDENTISCH verwenden, um zwei Excel-Tabellen zu vergleichen:

  1. In Tabelle3, z.B. in Zelle A1, schreibe:

    =IDENTISCH(Tabelle1!A1; Tabelle2!A1)

  2. Ziehe die Formel nach unten, um sie auf andere Zellen anzuwenden.

  3. Diese Methode ist einfach, hat jedoch ihre Grenzen, wenn Du Abweichungen markieren möchtest.

Praktische Beispiele

  • Beispiel 1: Du hast zwei Listen von Produkten in Tabelle1 und Tabelle2. Nach dem Vergleich kannst Du Abweichungen schnell erkennen und die fehlerhaften Einträge korrigieren.

  • Beispiel 2: Wenn Du finanziellen Daten in beiden Tabellen vergleichen möchtest, kannst Du mit dem oben genannten VBA-Code Unterschiede bei den Beträgen schnell identifizieren und markieren.

Tipps für Profis

  • Zellen formatieren: Du kannst den Code anpassen, um verschiedene Farben für unterschiedliche Abweichungen zu verwenden. Zum Beispiel, wenn Du nur bestimmte Spalten vergleichen möchtest.

  • Automatisierung: Lege eine Schaltfläche in Excel an, um die VBA-Prozedur mit einem Klick auszuführen.

  • Backup der Daten: Mach immer ein Backup Deiner Daten, bevor Du mit VBA arbeitest, um unerwünschte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich mehrere Spalten gleichzeitig vergleichen?
Ja, der bereitgestellte VBA-Code vergleicht alle Zellen in den angegebenen Spalten. Du kannst den Code entsprechend anpassen, um bestimmte Spalten auszuschließen.

2. Wie kann ich den Vergleich rückgängig machen?
Um die Markierungen zu entfernen, kannst Du die Zellen einfach wieder in den ursprünglichen Zustand zurücksetzen oder einen neuen VBA-Code schreiben, der die Formatierung löscht.

3. Funktioniert das auch mit Excel Online?
Der VBA-Ansatz funktioniert nicht in Excel Online. Du kannst jedoch die IDENTISCH-Funktion dort verwenden.

4. Wie oft kann ich den Vergleich durchführen?
Du kannst den VBA-Code so oft ausführen, wie Du möchtest. Wenn Du die Daten änderst, führe einfach die Prozedur erneut aus.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige