Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter vergleichen +

Tabellenblätter vergleichen +
11.08.2005 17:31:17
Oli
https://www.herber.de/bbs/user/25554.xls
HAllo,
ich möchte das Excel das Tabellenblatt FG mit dem Tabellenblatt AR vergleicht. sollte ein WErt in beiden DAteien sein, so soll nichts passieren, wenn der wert aber nur in einer von beiden steht soll in Tabellenblatt 3 dieser Wert eingefügt werden. Beispiel:
AR FG Tabelle 3
Wert= 1234/04 nicht Vorhanden 1234/04
Und das für jeweils das Gesamtetabellenblatt.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter vergleichen +
12.08.2005 09:14:49
Beni
Hallo Oli,
dieser Code sollte das Ergebnis bringen.
Gruss Beni

Sub Oli()
Dim Wert As Variant
Dim lz As Long
With Sheets("FG")
For i = 1 To .Cells(65536, 2).End(xlUp).Row
Wert = .Cells(i, 2)
Set c = Sheets("AR").Columns(2).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in FB vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 1).End(xlUp).Row
Wert = .Cells(i, 1)
Set c = Sheets("Fg").Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp1 vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 3).End(xlUp).Row
Wert = .Cells(i, 3)
Set c = Sheets("FG").Columns(3).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp3 vorhanden"
End With
End If
Next i
End With
End Sub

Anzeige
AW: Tabellenblätter vergleichen +
12.08.2005 15:25:49
Oli
Hi, leider klappt es nicht so wie gewollt. WEnn man nach dem Makro in Tabelle 3 guckt wird angezeigt das 05249/04 nur in FG(FB)-tabelle vorhanden wäre, das ist aber falsch. Die Zahl ist in beiden Tabellen und soll deshalb in tabelle 3 gar nicht vorkommen! Nur die, die lediglich in einer von beiden Tabellen vorkommen sollen in das Tabellenblatt 3.
AW: Tabellenblätter vergleichen +
12.08.2005 16:02:49
Beni
Hallo Oli,
jetzt sollte es funktionieren.
Gruss Beni

Sub Oli()
Dim Wert As Variant
Dim lz As Long
With Sheets("FG")
For i = 1 To .Cells(65536, 2).End(xlUp).Row
Wert = .Cells(i, 2)
Set c = Sheets("AR").Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in FB vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 1).End(xlUp).Row
Wert = .Cells(i, 1)
Set c = Sheets("Fg").Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp1 vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 3).End(xlUp).Row
Wert = .Cells(i, 3)
Set c = Sheets("FG").Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp3 vorhanden"
End With
End If
Next i
End With
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Große Tabellen vergleichen
gerwas

Hallo Weite Welt - mal wieder
Habe schon mal im Archiv rumgeforstet aber ohne rechten Erfolg.
Mein Problem:
Zwei große Exceltabellen (Tabelle a und Tabelle b mit gefüllten 65536 Zeilen) haben in Spalte x Textinformationen. Ich will wissen, wie oft ein Text aus Tabelle a in Tabelle...
07.10.2008 16:55:00
Thread-ID: 1014771
8 Beiträge
Anzeige
Tabellenblätter vergleichen
Jockel

Hi,
ich habe ein Tabellenblatt (Tabelle1) mit ca. 150 bis 200 Spalten. Alle Spalten haben in Zeile1 einen Spaltenüberschrift.
Damit ich informiert bin, wenn jemand einen zusätzliche Spalte einfügt, wollte ich dieses Tabellenblatt mit einem Muster (Tabellenblatt2) vergleichen. In diesem...
12.11.2008 08:49:52
Thread-ID: 1023706
13 Beiträge
Spalten vergleichen, löschen und zählen
Micky

Hallo Ihr Excel Ritter,
ich habe folgendes Problem, in 2 Spalten stehen Nummern teilweise doppelt,
nun darf jede NR. nur 1x auftauchen entwerder in Spalte a oder b.
Pro Nr. soll in einer 3. Spalte dann der Wert 1 ausgebeben werden oder 0 für
keine Nummer. Zeilen dürfen nicht g...
10.12.2008 10:17:50
Thread-ID: 1031594
11 Beiträge
Anzeige
Spalten vergleichen und kopieren
edie

Hallo zusammen,
mit dem nachfolgenden Code wird die Spalte C mit der Spalte J verglichen, wobei in
der Spalte C der String nur einmal vorkommt in der Spalte J aber mehrfach.
Bei Übereinstimmung werden die Werte der Spalten K, L und M in die Spalten S, T und U
übernommen.
...
22.01.2009 20:43:26
Thread-ID: 1042727
3 Beiträge
2 Tabellen vergleichen und Pärchen bilden
Universal

Guten Abend Excel-Profis,
ich hoffe, dass ihr mir helfen könnt. Ich habe hier und auch in anderen Foren gesucht - natürlich auch was gefunden - aber ich konnte es nie in meine gewünschte Form umwandeln.
Ich habe 2 riesige Tabellen mit mehreren tausend Datensätzen und mehreren Spalten. L...
25.01.2009 21:52:00
Thread-ID: 1043691
6 Beiträge
Spalten vergleichen und Nummern ausgeben ?
Günther

Hallo zusammen,
kann mir bitte jemand hierbei helfen:
in Spalte E geb ich Nummern ein, diese sollen mit denen aus Spalte AA verglichen werden.
Bei Übereinstimmung soll die Nummer aus AB in L ausgegeben werden.
E---- L--- AA-- AB
15-- 2--- 10-- 1
30-- 5--- 15-- 2
1...
12.03.2009 15:49:14
Thread-ID: 1059522
5 Beiträge
Spalten vergleichen und Ausgabe in neues Worksheet
Bolo

Hallo liebe Community,
ich habe hier eine Tabelle in der in Zeile 4 verschiedene Daten (von Datum) stehen.
Bsp.:
C4+D4=01.01.2009 / E4+F4=02.01.2009 / G4+H4=03.01.2009 usw.
So in C5 und D5 (...) stehen Werte. Es gibt immer für jeden Tag 2 Werte.
Nun soll das Makro die beiden...
01.04.2009 15:21:36
Thread-ID: 1066031
3 Beiträge
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

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
7
15
12
10
3
2
5
4
2
12
13
1
3
4
1
5
7
6
4
1
1
8
4
1
4