Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA Excel 2 Tabellen vergleichen

Forumthread: VBA Excel 2 Tabellen vergleichen

VBA Excel 2 Tabellen vergleichen
10.08.2017 17:21:04
abuelito
Hallo an Alle,
ich habe 2 Tabellen (TAB1 = Mastertabelle und TAB2 = neue Daten für TAB1), die ich miteinander vergleichen muss.
Beide Tabellen haben eine Kundennummer.
Ich muss jetzt prüfen, ob die Kundennummer aus TAB2 Saplte "C" schon in TAB1 Spalte "E" existiert,
A) wenn nicht, dann letzte beschriebene Zeile in TAB1 ermitteln und folgende Werte aus TAB2 nach TAB1 in neue Zeile kopieren:
1. Wert (ohne Formatierung und sonstiges) aus TAB2 Spalte "D" nach TAB1 Spalte "A" und
2. Wert (ohne Formatierung und sonstiges) aus TAB2 Spalte "A" nach TAB1 Spalte "F" und
3. Wert (ohne Formatierung und sonstiges) aus TAB2 Spalte "C" nach TAB1 Spalte "E"
B) wenn ja, dann schauen, ob in gefundener Zeile TAB1 Spalte "F" leer ist:
B1) wenn ja, dann folgende Werte aus TAB2 nach TAB1 in neue Zeile kopieren:
1. Wert (ohne Formatierung und sonstiges) aus TAB2 Spalte "D" nach TAB1 Spalte "A" und
2. Wert (ohne Formatierung und sonstiges) aus TAB2 Spalte "A" nach TAB1 Spalte "F"
B2) wenn nicht, dann das gleiche Vorgehen wie bei A)
Wäre super, wenn ihr mir helfen könntet.
Vielen Dank und viele Grüße
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Excel 2 Tabellen vergleichen
11.08.2017 10:46:33
ChrisL
Hi
Sub tt()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim lngZeile As Long, lngLast As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For lngZeile = 1 To WS2.Cells(Rows.Count, 3).End(xlUp).Row
If WorksheetFunction.CountIf(WS1.Columns(5), WS2.Cells(lngZeile, 3)) = 0 Then
lngLast = WS1.Cells(Rows.Count, 5).End(xlUp).Row + 1
Else
lngLast = Application.Match(WS2.Cells(lngZeile, 3), WS1.Columns(5), 0)
If Not WS1.Cells(lngLast, 6) = "" Then _
lngLast = WS1.Cells(Rows.Count, 5).End(xlUp).Row + 1
End If
WS1.Cells(lngLast, 1) = WS2.Cells(lngZeile, 4)
WS1.Cells(lngLast, 6) = WS2.Cells(lngZeile, 1)
WS1.Cells(lngLast, 5) = WS2.Cells(lngZeile, 3)
Next lngZeile
End Sub
cu
Chris
Anzeige
AW: VBA Excel 2 Tabellen vergleichen
11.08.2017 14:00:56
abuelito
Hi Chris,
Suuuuper, funktioniert wunderbar.
Vielen lieben Dank.
Grüße

Forumthreads zu verwandten Themen

Soll-Ist-Vergleich zweier Tabellen mit Diagramm
Michelle_____
Hallo zusammen,

ich sitze grade an einer recht kniffeligen Aufgabe und komme nicht weiter.

Ich möchte einen Soll-Ist-Vergleich zwischen geplanten Stunden und den gebuchten Stunden erstellen. Die Tabellen bestehen beide jeweils aus den Überschriften Person, KW, Projekt, Projekteleme...
11.10.2024 13:38:50
Thread-ID: 1993491
1 Beitrag
Diagramme färben
Thomas

Hallo Zusammen,
ich habe folgendes Problem:
Ich habe zwei Tortendiagramme aus zwei Pivot Tabellen erstellt. Das eine Diagramm zeigt mir die Top 5 Produkte nach Verkaufszahlen an und das zweite Diagramm zeigt mir die Top 5 Produkte nach Einnahmen an. Nun wäre es schön, wenn ein Produkt...
31.01.2008 15:03:00
Thread-ID: 947298
3 Beiträge
pivot-Tabelle , Problem mit Datenbereich
Ulrich
Hallo zusammen,
ich habe eine Frage.
In der Beispieldatei habe ich eine Datentabelle "Übersicht" für mehrere Pivot-Tabellen genutzt.
Wenn ich jetzt über den Button "Neuer Unfall" eine neue Zeile unter die Überschriftenzeile einfüge, ich dann Daten eingebe und die Pivot-Tabellen aktualisi...
19.03.2021 14:45:44
Thread-ID: 1821401
1 Beitrag
Dynamisches Diagramm will einfach nicht.
Jochen

Hallo zusammen,
ich sitze schon den ganzen Tag an dem Problem mein Auswahlbereich für ein Diagramm dynamisch zu gestalten. Ich habe dieses Forum sowie andere schon zig mal durchsucht, aber nichts konnte ich auf mein Problem anwenden. Es geht um folgendes:
Ich habe einen dynamischen Piv...
29.01.2019 16:38:26
Thread-ID: 1671915
12 Beiträge
Anzeige
Pivotauswahl auf meherer Üüertragen
Christian

Hallo Ihr lieben,
ich habe mehrere Pivot-Tabellen und möchte diese alle als Diagramm anzeigen lassen. Dies ist soweit auch nicht das Problem.
Aber wie bekomme ich es nun hin dass ich nicht in jeder Pivot-Tabelle das Datum auswählen muss? (Datenschnitt geht leider nur wenn die Rohdaten i...
15.01.2013 11:39:07
Thread-ID: 1294323
10 Beiträge
Anzeige
Datum aus mehrern Pivot auswählen
Christian

Hallo Ihr lieben,
ich habe mehrere Pivot-Tabellen und möchte diese alle Diagramm anzeigen lassen. Dies ist soweit auch nicht das Problem.
Aber wie bekomme ich es nun hin dass ich nicht in jeder Pivot-Tabelle das Datum auswählen muss?
Ich hätte gern ein „Dropdown“ ähnlich das der Piv...
11.01.2013 15:08:31
Thread-ID: 1293853
3 Beiträge
Anzeige
4 Tabellen in eine Pivot
Pa

Hallo,
ich komme bei einem Problem einfach nicht weiter und hoffe, dass Ihr mir hier weiterhelfen könnt.
Ich habe 4 Tabellen, die jeweils bei einem anderen Mitarbeiter liegen.
Jede Tabelle steht für eine Phase eines Projekts, der Aufbau der Tabelle ist aber immer gleich.
Zeile 1...
19.06.2020 16:25:33
Thread-ID: 1766661
3 Beiträge
Anzeige
Verschiedene Tabellenblätter ansprechen
Jakob

Moin Leute,
Ich habe ein kleines Dashboard zur Auswertung einer Anlage(VB97) erstellt. Jetzt sind nach der Zeit immer mehr Anlagen dazu gekommen. Jetzt möchte ich nicht für jede Anlage ein Dashboard erstellen, sondern alle in einem Dashboard auswerten.
Fragestellungen/Prblemstellungen :...
11.12.2017 10:53:18
Thread-ID: 1596482
1 Beitrag
Pivot Tabellen Verküpfung
Becker

Hallo Liebes Forum,
Habe ein paar Fragen an die Formel Verknüpfungen von Pivot Tabellen. Hofentlich kennt sich jemand aus und kann mir dabei helfen.
In eine Excel Mappe habe ich 2 Tabellen Blätter die ich auswerten möchte. In Beispiel Mappe sind nur ca. 50 Zeilen und in Original Mappen...
13.05.2015 17:44:36
Thread-ID: 1426210
4 Beiträge
Pivotdiagramme: EXCEL 2003 vs. 2011
UweN

Hallo zusammen,
nun bin ich dann doch tatsächlich von EXCEL 2003 (für Windows) umgestiegen auf Excel 2011 (für MacOs)
Bei den Pivot-Tabellen hab ich nun das Problem, daß die dazugehörign Pivot-Diagramme nicht mehr funktionieren; und wenn ich sie neu kreiern will, komme ich zu keinen "si...
26.03.2015 01:06:27
Thread-ID: 1417193
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum