Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter vergleichen, Datensätze markieren

Tabellenblätter vergleichen, Datensätze markieren
04.02.2005 09:43:18
Gunter
Hallo Zusammen,
ich habe Datei A mit 1000 Datensätzen, dann die Datei B mit 1050 Datensätzen. Wie kann ich diese beiden Dateien miteinander vergleichen, so das in Datei B z.B die in Datei A vorhandenen Datensätze Fett formatiert werden?
Vielen Dank im voraus.
Gunter

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter vergleichen, Datensätze markieren
Chris
Hi Gunter,
besitzen die Datensätze bestimmte kennzahlen z.B. Artikelnummer oder muss der jeweilige gesamte Datensatz verglichen werden?
Gruss
Chris
AW: Tabellenblätter vergleichen, Datensätze markieren
04.02.2005 09:56:03
Gunter
Hi Chris,
in Spalte A der jeweiligen Datei befindet sich eine Artikelnummer,die eindeutig ist.
Gruß Gunter
AW: Tabellenblätter vergleichen, Datensätze markieren
Chris
Hi Gunter,
wenn du keine Lust auf Markos hast kannst du wie folgt vorgehen (bischen mehr arbeit!):
1. extra Spalte in Tabellenblatt A einfügen
2. wenn(Istfehler(Sverweis("Atklno.";"Tabellenblatt B";1;Falsch))=wahr;"";"x")
3. Spezialfilter in Tabellenblatt A
4. Sortieren nach "x"
5. Sortierte Spalten makieren und fett machen
Längerer Weg aber ohne VBA!
Gruss
Chris
Anzeige
AW: Tabellenblätter vergleichen, Datensätze markie
04.02.2005 09:52:14
Josef
Hallo Gunter!
Dieser Code könnte dir helfen!
Die Datei und Tabellennamen, sowie den Bereich musst du anpassen!

Sub vergleichMatrix()
'by Josef Ehrensberger
Dim arr1 As Variant
Dim arr2 As Variant
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim strRange As String
Dim n As Long, m As Long
strRange = "A1:CV10000"   'Bereich der verglichen wird - anpassen
Set wks1 = Workbooks("A").Sheets("Tabelle1")
'Namen - anpassen
Set wks2 = Workbooks("B").Sheets("Tabelle1")
'Namen - anpassen, in dieser Tabelle wird gekennzeichnet!
arr1 = wks1.Range(strRange)
arr2 = wks2.Range(strRange)
For m = 1 To UBound(arr1, 2)
For n = 1 To UBound(arr1, 1)
If arr1(n, m) <> arr2(n, m) Then
wks2.Range(strRange).Cells(n, m).Font.Bold = True
End If
Next
Next
End Sub

Mit Alt+F11 den VBE öffnen &gt Einfügen &gt Modul &gt Namen anpassen und
mit F5 laufen lassen!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Tabellenblätter vergleichen, Datensätze markie
04.02.2005 10:14:55
Gunter
Hallo Sepp,
ich habe dein Makro an zwei Testdateien ausprobiert. In Datei B habe ich 3 Datensätze ab Zeile 2000 eingefügt. Ab Zeile 2004 sind die Dateien wieder identisch. Dein Makro erkennt den neuen Datensatz ab Zeile 2000, markiert aber dann den ganzen Rest des Bereiches, ohne zu erkennen, das ab Zeile 2004 die datensätze wieder identisch sind.
Kannst Du das beheben?
Gruß Gunter
AW: Tabellenblätter vergleichen, Datensätze markie
04.02.2005 10:27:14
Josef
Hallo Gunter!
Sorry, ich habe nicht beachtet, das die einträgen nicht in
den selben Zellen stehen müssen!
So sollte es gehn!


      
Sub vergleichMatrix()
'by Josef Ehrensberger
Dim arr2 As Variant
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim strRange As String
Dim n As Long, m As Long
strRange = "A1:A1500"   'Bereich der verglichen wird - anpassen
   
Set wks1 = Worksheets("A").Sheets("Tabelle1")
'Namen - anpassen
Set wks2 = Worksheets("B").Sheets("Tabelle2")
'Namen - anpassen, in dieser Tabelle wird gekennzeichnet!
   
arr2 = wks2.Range(strRange)
   For m = 1 To UBound(arr2, 2)
      For n = 1 To UBound(arr2, 1)
         If Application.CountIf(wks1.Range(strRange), arr2(n, m)) = 0 Then
         wks2.Range(strRange).Cells(n, m).Font.Bold = True
         End If
      Next
   Next
   
End Sub 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Tabellenblätter vergleichen, Datensätze markie
04.02.2005 11:47:05
Gunter
Danke Sepp,
das war die Lösung. Du hast mir damit sehr geholfen.
Gruß Gunter

302 Forumthreads zu ähnlichen Themen

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
Doppelte Einträge in mehreren Tabellenblättern
S.

Guten Morgen zusammen!
Ich habe eine Excel-Mappe mit mehreren Tabellenblättern, die alle nach dem gleichen Schema aufgebaut sind. Nun möchte ich diese Arbeitsblätter "konsolidieren" und alle Einträge anzeigen lassen, die in ALLEN Blättern gleichzeitig vorkommen. Der Vergleichswert steht in...
21.08.2009 11:18:00
Thread-ID: 1097664
2 Beiträge
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
Doppelte Werte in mehrere Spalten
urmila

Hallo zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich habe 4 Spalten (Bsp.)
SpalteA = Name
SpalteB = Vorname
SpalteC = Anschrift
SpalteD = Telefon
Über einer Userform, will ich dass (nach dem ich die TextBoxe-Felder ausgefüllt habe) zunächst prüft, ob die Person...
10.11.2010 15:05:20
Thread-ID: 1186104
3 Beiträge
2 Tabellen vergleichen,bei unter. Werte farblich
Sven

Hallo,ich habe ein, für mich, großes Problem.
Ich habe 2 Tabellen auf unterschiedlichen WorkSheets.
Jetzt wird die erste Tabelle nach einem Primärschlüssel
mit der zweiten verglichen und falls der Primärschlüssel identisch ist, wird der ganze Datensatz ersetzt.
Jetzt meine Frage: Is...
24.05.2002 07:59:32
Thread-ID: 123294
4 Beiträge
Doppelte Werte über mehrere Spalten ohne VBA
Wolfgang

Hallo Forum,
ich habe eine sehr große Tabelle und möchte doppelte Werte über 3 Spalten suchen/markieren.
Eine Lösung mit VBA habe ich, die läuft aber zu langsam.
Deshalb die Frage, gibt es eine andere Lösung (bedingte Formatierung o.ä.)?
BSP:
In Spalten A, B, C stehen Wer...
02.07.2011 22:00:57
Thread-ID: 1220677
5 Beiträge
Werte aus mehreren Tabellenblätter
Werner

Hallo Herber-Freunde
eine kurze Frage:
ich habe mehrere Tabellenblätter, die alle gleich aufgebaut sind.
Der Name der Tabelle ist numerisch
01 bis 20
In einer separaten Tabelle "hole" ich mir die Werte aus den einzelnen Tabs
mit einer Formel im Tabelleblatt "Alle"
i...
12.07.2012 20:13:58
Thread-ID: 1270835
3 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
6
1
4
9
2
3
4
2
7
2
6
1
5
2
6
1
1
4
3
3
1
11
4
5