Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1760to1764
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
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenvergleich über 2 Tabellenblätter

Spaltenvergleich über 2 Tabellenblätter
27.05.2020 10:11:09
Nime
Liebe Excel-Anwender,
ich habe eine Excel-Datei, die aus 3 Arbeitsblättern besteht. In meiner angehängten Excel-Datei habe ich drei Arbeitsblätter.
Einmal das Arbeitsblatt "Datenquelle", dann das Arbeitsblatt "Datenunterschied" und das Arbeitsblatt "Daten".
Alle drei Arbeitsblätter enthalten identische Spaltenbeschriftungen und -inhalte. Mein Ziel ist es, die Unterschiede zwischen Arbeitsblatt "Datenquelle" und "Daten" in das Arbeitsblatt "Datenunterschied" via ein VBA Makro zu übertragen.
Ausgangspunkt ist die Spalte Identifier - die Identifikationsnummer - der Daten.
In meinem Beispiel sieht man, dass im Arbeitsblatt "Daten" 4 Datensätze mit folgenden Identifikationsnummern aufgelistet sind:
6257 - 6258 - 6259 - 6260
Im Arbeitsblatt "Datenquelle" sind 6 Datensätze mit folgenden Identifikationsnummern aufgelistet:
6257 - 6258 - 6259 - 6260 - 6261 - 6268
Das Ziel wäre jetzt, falls im Arbeitsblatt "Daten" ein Datensatz nicht in der Datenquelle vorkommt, soll dies in das Arbeitsblatt "Datenunterschied" mit einem Makro geschrieben werden. In diesem Beispiel wären das die Datensätze "6261" & "6268". Hierbei sollen dann die ganze Zeile von Datensatz 6261 & 6268 in das Tabellenblatt "Datenunterschied" übertragen werden.
Hierfür hatte ich folgende Code ausprobiert, der aber nicht das gewünschte Ergebnis lieferte:
Sub Unterschied()
Dim CompareRange As Object, x As Object, y As Object
Dim lastRow As Integer
Set CompareRange = Sheets("Datenquelle").Range("H2:H" & Sheets("Datenquelle").Cells(Rows.Count,  _
9).End(xlUp).Row)
For Each x In Sheets("Daten").Range("H2:H" & Sheets("Daten").Cells(Rows.Count, 9).End(xlUp). _
Row)
For Each y In CompareRange
If y  x Then
lastRow = Sheets("Datenunterschied").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Datenunterschied").Cells(lastRow, 9).Value = x.Value
Sheets("Datenunterschied").Cells(lastRow, 10).Value = x.Offset(0, 1).Value
Sheets("Datenunterschied").Cells(lastRow, 11).Value = x.Offset(0, 2).Value
Sheets("Datenunterschied").Cells(lastRow, 8).Value = x.Offset(0, -1).Value
Sheets("Datenunterschied").Cells(lastRow, 7).Value = x.Offset(0, -2).Value
Sheets("Datenunterschied").Cells(lastRow, 6).Value = x.Offset(0, -3).Value
Sheets("Datenunterschied").Cells(lastRow, 5).Value = x.Offset(0, -4).Value
Sheets("Datenunterschied").Cells(lastRow, 4).Value = x.Offset(0, -5).Value
Sheets("Datenunterschied").Cells(lastRow, 3).Value = x.Offset(0, -6).Value
Sheets("Datenunterschied").Cells(lastRow, 2).Value = x.Offset(0, -7).Value
Sheets("Datenunterschied").Cells(lastRow, 1).Value = x.Offset(0, -8).Value
End If
Next y
Next x
End Sub
Zum besseren Verständnis finden Sie die Excel-Datei unter folgendem Link:
https://www.herber.de/bbs/user/137783.xlsm
Gruß
Nime

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenvergleich über 2 Tabellenblätter
29.05.2020 21:55:13
fcs
Hallo Nime,
das folgende Makro vergleicht die beiden Tabellen.
Außer den IDs (Datensätzen), die in Quelle neu vorhanden sind werden auch IDs (Datensätze) mit unterschiedlichen Werten in einzelnen Spalten erfasst und IDs, die in Quelle fehlen.
LG
Franz
Sub automated_VBA()
Dim wksQ As Worksheet
Dim wksD As Worksheet
Dim wksU As Worksheet
Dim arrQ, arrD
Dim zeiU As Long, zeiD As Long, zeiQ As Long
Dim zeiDL As Long, zeiQL As Long
Dim spaID As Long, spa As Long
Dim varID
Dim bolTreffer As Boolean, bolUnterschied As Boolean
Set wksD = ActiveWorkbook.Worksheets("Daten")
Set wksQ = ActiveWorkbook.Worksheets("Datenquelle")
Set wksU = ActiveWorkbook.Worksheets("Datenunterschied")
spaID = 9 'Spalte I
'Daten in Arrays laden, beschleunigt die Makro-Ausführung
With wksD
zeiDL = .Cells(.Rows.Count, spaID).End(xlUp).Row
arrD = .Range(.Cells(1, 1), .Cells(zeiDL, 11))
End With
With wksQ
zeiQL = .Cells(.Rows.Count, spaID).End(xlUp).Row
arrQ = .Range(.Cells(1, 1), .Cells(zeiQL, 11))
End With
zeiU = 1
'vergleichen Datensätze in Datenquelle und Daten
For zeiQ = 2 To zeiQL
bolTreffer = False
varID = arrQ(zeiQ, spaID)
For zeiD = 2 To zeiDL
If varID = arrD(zeiD, spaID) Then
bolTreffer = True
bolUnterschied = False
'prüfen, ob unterschiedliche Daten in Spalten
For spa = 1 To 11
If arrQ(zeiQ, spa)  arrD(zeiD, spa) Then
If bolUnterschied = False Then
zeiU = zeiU + 1
wksU.Cells(zeiU, spaID) = varID
bolUnterschied = True
End If
wksU.Cells(zeiU, spa) = arrQ(zeiQ, spa)
End If
Next
End If
Next zeiD
If bolTreffer = False Then
'Datensatz in Daten nicht vorhanden
zeiU = zeiU + 1
wksQ.Rows(zeiQ).Copy wksU.Rows(zeiU)
End If
Next zeiQ
'prüfen ob Datensätze in "Daten" in "Datenquelle" fehlen
For zeiD = 2 To zeiDL
bolTreffer = False
varID = arrD(zeiD, spaID)
For zeiQ = 2 To zeiQL
If varID = arrQ(zeiQ, spaID) Then
bolTreffer = True
Exit For
End If
Next zeiQ
If bolTreffer = False Then
'Datensatz in Datenquelle nicht mehr vorhanden
zeiU = zeiU + 1
wksU.Cells(zeiU, spaID) = varID
wksU.Cells(zeiU, spaID + 1) = "Datensatz fehlt in Quelle"
End If
Next zeiD
Erase arrQ, arrD
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Anzeige
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
Verknüpfung mit vorigem Tabellenblatt
reiner

Hallo Leute
einer Datei wird jeden Monat ein neues dem dann aktuellen Monat entsprechendes Tabellenblatt hinzugefügt. Zelle Q3 des aktuellen Tabellenblattes soll den in Zelle A3 enthaltenen Wert des Vormonats (voriges Tabellenblatt) als Verknüpfung übernehmen.
Die hierfür erforderliche...
30.09.2008 09:20:35
Thread-ID: 1013261
5 Beiträge
Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Tabelle mittels eingebundenem Java jar-file füllen
Arthur

Ein fröhliches Hallo zusammen.
Ich habe ein Java jar-file, eingebunden in eine Excel-Datei. Die darin enthaltene Funktion soll per Knopfdruck aufgerufen werden, Daten aus einer anderen Anwendung abholen und das Ergebnis in einem Worksheet eintragen.
Der Knopfdruck samt Aufruf der Funkti...
27.11.2008 15:46:00
Thread-ID: 1028425
2 Beiträge
Tabellenbereich mit Array o.ä. füllen
dennis

Hallo zusammen,
weiss jemand eine Möglichkeit wie man mehrere Werte gleichzeitig in ein Exceltabellenblatt bekommt?
Mein Problem ist folgendes:
Ich berechne mir über eine Schleife die x,y Werte für ein Diagramm.
Diese würde ich gerne vorher speichern (z.B. in einem Array, bzw. M...
09.01.2009 15:02:04
Thread-ID: 1038249
10 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 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
3
9
3
1
1
4
4
1
9
1
5
4
5
6
8
6
2
12
2
2
1
11
8
4
3