Office: Tabellen per Makro vergleichen

Hallo Hajo,

Genau das soll nicht überprüft werden:

Tabelle1 Spalte A wird mit jedem Wert in Tabelle2 Spalte B verglichen.

Sondern:

Tabelle1 Spalte D wird mit jedem Wert in Tabelle2 Spalte D verglichen.

Es soll also Spalte D überprüft werden. Der Rest kann so bleiben.

Grüße
Richard

 

Hallo Richard,

den Code hast Du Dir schon angesehen?
If Worksheets("Tabelle1").Cells(LoI, 1) "" Then
If Worksheets("Tabelle1").Cells(LoI, 1) = _
Worksheets("Tabelle2").Cells(LoJ, 2) Then
' Zellen sind gleich, Zeile Kopieren

1 =Spalte A
2=Spalte B
D wäre dann Spalte 4

 

Aha...LoI, 1. Warte...ich teste und änderer LoI, 1 in LoI, D

 

Loi ist die Zeile, aber wenn Du meinst die Zeile soll auf D geändert werden Nur es gibt keine Zeile D in Excel.

 

Mir glüht grad der Kopf.

Ich meinte Spalte D soll überprüft werden.

 

siehe Beitrag #17, da steht nichts von Zeile ersetzen.

 

Ich dachte ich mach aus:

If Worksheets("Tabelle1").Cells(LoI, 1) "" Then
If Worksheets("Tabelle1").Cells(LoI, 1) = _
Worksheets("Tabelle2").Cells(LoJ, 2) Then
' Zellen sind gleich, Zeile Kopieren

If Worksheets("Tabelle1").Cells(LoI, 4) "" Then
If Worksheets("Tabelle1").Cells(LoI, 4) = _
Worksheets("Tabelle2").Cells(LoJ, 4) Then
' Zellen sind gleich, Zeile Kopieren

Das geht aber nicht....

 

ich hätte das auch so gemacht. Ich kann aber keine aussage zu den Tabellennamen machen.

 

Leider wird nur Zeile 1 in Tabelle3 in Zeile 70 kopiert.*confused.gif*

 

dazu kann ich nichts schreiben. Ich sehe die Datei nicht.

 

Ich habe es hinbekommen.
Das musste ich noch ändern:

Dim LoLetzte1 As Long ' Variable letzte Zeile in Spalte D
Dim LoLetzte2 As Long ' Variable letzte Zeile in Spalte D
Dim Loletzte3 As Long ' Variable letzte Zeile in Tabelle3

So...nach Stunden langem Testen stell ich fest...dass isses auch nicht was ich brauche. Zwar werden alle Doppelten aus Tab1 und Tab2 in Tab3 kopiert aber... ich brech hier mal ab und teste die anderen Makros.

Ich komme wieder....

Grüße
Richard

 

Hallo Richard,
ich muss hier was richtig stellen die Variablen waren korrekt definiert
Dim LoLetzte1 As Long ' Variable letzte Zeile in Spalte A
Dim LoLetzte2 As Long ' Variable letzte Zeile in Spalte B
Dim Loletzte3 As Long ' Variable letzte Zeile in Tabelle3

Der Kommtar ist für die Codeausführung nicht relevant.

 

So..bin weiter gekommen und dass ist für mich erfreulich.

Ich habe hinbekommen dass Tabelle1 mit Tabelle2 verglichen wird und alles Identische von Spalte D von Tabelle1 und Tabelle2 in Tabelle3 kopiert wird.

Code:

Nur...in Tabelle3 beginnt die Eintragung erst ab Zeile 2.

Ich habe nun 2 Tabellen:

In Tab.1 sind die Zellen befüllt bis Zeile 10 zum Beispiel.
In Tab.2 sind die Zellen befüllt bis Zeile 11 zum Beispiel.

Tab.2 ist also die neue und deshalb nicht immer Identisch mit Tab.1.
Das was in Tab.2 vorhanden ist und in Tab.1 nicht vorhanden ist soll auch in Tab.3 Übertragen werden sowie das Identische von Tab.1 und Tab.2.

Vielleicht erkläre ich es nochmal anders:

Alles was in Tab 1 + 2 identisch ( Spalte D ) ist, bitte in Tab.3 schreiben.
Was in Tab2 steht, aber nicht in Tab1, bitte auch in Tab.3 schreiben.

Oh Mann...mir wirds vor lauter Tabs ganz schwindelig.

Grüße
Richard

 

Hallo Richard,

ich baue keine Dateien nach. Die Zeit hat schon jemand investiert.

 

Hallo Hajo,

ok, verstehe ich. Dann gebe ich mich damit zufrieden was Du mir überlassen hast.

Danke nochmal.

Grüße
Richard