Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA vergleich zwei Tabellen und kopieren

Forumthread: VBA vergleich zwei Tabellen und kopieren

VBA vergleich zwei Tabellen und kopieren
11.03.2020 09:52:43
Martin
Hallo zusammen,
ich stehe vor einem problem.
bin dran an einer Datei mit zwei Tabellenblätter. (Tabelle 1 und Tabelle 2)
Ich möchte bei Tabelle 1, Spalte A einen Wert eingeben und dieser sollte
dann in Tabelle 2 Spalte A gesucht werden. (Gleich nach der Eingabe des Wertes, mit Enter bestätigt)
Bei Übereinstimmung soll die Zeile kopiert werden
und in Tabelle 1 beim gesuchten Wert ab Spalte B (nach rechts) eingefügt werden.
(Ja mit Sverweis könnte es auch funktionieren sind aber zuviele Datenabfragen)
Die Tabelle 1, Spalte A, können unterschiedliche Anzahl Zeilenwerte haben. (einmal sollen 3 Werte abgefragt werden und dann wieder 5 Werte)
Ich hoffe es kann mir jemand dabei helfen.
Vielen Dank schon im Voraus.
https://www.herber.de/bbs/user/135762.xlsx
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA vergleich zwei Tabellen und kopieren
11.03.2020 10:24:08
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter von Tabelle1
- Code anzeigen
- Code rechts reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo Fehler
    Dim Tb2 As Worksheet, ZE As Integer, Z
    Const APPNAME = "Worksheet_Change"

    Set Tb2 = Sheets("Tabelle2")
    ZE = 4 ' Erste Datenzeile 

    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        If Target.Row >= ZE Then
            For Each Z In Intersect(Range("A:A"), Target)
                With Z.Offset(0, 1).Resize(1, 3)
                    Application.EnableEvents = False
                    .FormulaR1C1 = "=IFERROR(VLOOKUP(RC1," & Tb2.Name & "!C1:C4,COLUMN(),0),"""")"
                    .Value = .Value
                    Application.EnableEvents = True
                End With
            Next
        End If
    End If

    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: VBA vergleich zwei Tabellen und kopieren
11.03.2020 13:06:30
Martin
Hallo UweD
Ich danke dir für dein Code. Der funktioniert hervorragend.
Jetzt hätte ich noch eine weitere Frage:
Welchen Wert muss ich ändern wenn in Tabelle2 weitere Spalten dazukommen?
Ist es möglich eine Abfrage zu starten, wenn in Tabelle1 Zelle M1 den Wert "Morgen" hat dann die
Suche auf das Tabellenblatt "Morgen" zu beziehen?
Und wenn in Tabelle1 Zelle M1 den Wert "Abend" hat dann die Suche auf das Tabellenblatt "Abend" zu beziehen?
Anzeige
AW: VBA vergleich zwei Tabellen und kopieren
12.03.2020 07:43:50
Martin
zuätzliche Frage...
AW: VBA vergleich zwei Tabellen und kopieren
11.03.2020 12:14:42
Martin
Danke für eure schnelle Antwort. werde dies nächstens so versuchen und mich gegebenfalls nochmals melden...
Anzeige
;

Forumthreads zu verwandten Themen

Vergleich zweier Tabellen mit Isolierung von Daten
Daten

Hallo,
ich habe zwei Tabellen.
Die erste Tabelle ist eine Liste mit ca. 20.000 Datensätzen, die Daten nach Ortsschlüssel, Produktnummer und Vertriebsweg enthalten.
Die zweite Tabelle ist eine Kreuztabelle mit Referenzwerten nach Produktnummer und Vertriebsweg. Die Produktnummern ste...
18.09.2008 14:30:00
Thread-ID: 1010741
3 Beiträge
Vergleich zweier Tabellen
V-B-aybee

(Ich weis ganz genau,dass zu diesem Thema einiges im Archiv steht-aber als absoluter Krabbelkistenanfänger ist sogar,dass zusammenfügen dieses schon vorhandenen Quellcodes ziemlich schwer.Bitte entschuldigt nicht so präzise Formulierungen.Bin für alles dankbar!!!!)Also ich möchte zwei Tabellen...
25.04.2002 11:45:09
Thread-ID: 116224
3 Beiträge
Anzeige
Vergleich zweier Tabellen
Coßmann

Ich möchte zwei Tabellen vergleichen und zwar jeweils die Vornamen und Namen. Finden sich in beiden Tabellen die gleichen Vor- und Zunamen, soll in einem "Selektionsfeld" der Hinweis "ja" erscheinen. Fehlt in der zu überprüfenden Tabelle (Tab.2) der Vor- u. Zuname, soll in der Grundtabelle (Tab...
13.10.2012 22:12:58
Thread-ID: 1281882
5 Beiträge
Komplexer Vergleich zweier Tabellen
Rainer

Hallo Forum,
ich habe ein Problem, bei dem ich fast nicht glaube, dass die Lösung ohne VBA möglich ist:
Ich habe eine Tabelle A mit Verantwortlichen (Nachname, Vorname, Abteilung). Für die Erstellung eines Mail-Verteilers benötige ich zu jedem Verantwortlichen dessen Führungskraft. Hier...
25.03.2015 12:17:35
Thread-ID: 1417043
13 Beiträge
Tabellennamen zweier Arbeitsmappen vergleichen
Anton

Hallo liebe VBA-Profis,
folgendes Szenario:
Arbeitsmappe1 mit Tabellenblattnamen xyz
Arbeitsmappe2 mit unterschiedlichen Tabellenblattnamen abc, def, xyz
Beide Arbeitsmappen sind geöffnet
Nun soll geprüft werden ob der Blattname xyz von Mappe1 in Mappe2 vorkommt. Wenn ja,...
10.06.2016 00:14:28
Thread-ID: 1498092
5 Beiträge
Vergleich zweier Tabellen und Differnez der Zeiten
Daniel

Hallo Zusammen,
hänge schon seit einigen Tagen an dem Thema dran, aber komme nicht so wirklich zu einem Ergebnis.
Ich habe zwei Arbeitsblätter in einer Tabelle, welche identisch aufgebaut sind.
Spalte A = Personalnr
Spalte B = Gültig bis Datum
Spalte C = Lohnart
Spalte...
27.03.2018 14:42:10
Thread-ID: 1616651
9 Beiträge
Vergleich zweier Spalten in 2 Tabellen / PQ
Marcus

Hallo,
ich habe Patientendaten in mehreren Tabellen (Jahren) und ca. 100000 Zeilen. Nach Vereinigung in einer Tabelle Basis_OP (je Jahr ein Arbeitsblatt oder wenn das besser ist in einem Sheet) möchte ich nun Patienten durch Kombination aus Vornamen (oder ggf Nachname (Cave: Änderung durch...
02.08.2019 00:08:56
Thread-ID: 1705484
4 Beiträge
Anzeige
Vergleichen zweier Tabellen
Heiko Hofmann
Hallo,

ich habe zwei Tabellen, die miteinander verglichen werden sollen.
Die erste Tabelle ist eine Mustertabelle/Vorlage, in die bestimmte Werte der zweiten Tabelle, welche sich monatlich ändert, aufgenommen werden sollen.

Bsp.:

Tabelle 1 (Statisch)

SC ABT JA...
03.09.2003 09:36:44
Thread-ID: 303956
2 Beiträge
Anzeige
vergleichen zweier Tabellen nach wertx
Florian

Hallo!
Ich habe eine Tabelle, wo in Tabelle1 die Spalten B und C mit dr Tabelle2 Spalte B und C verglichen werden sollen und wenn es den eintrag in Tabelle2 gibt, dann soll mir das Makro den Wert von Tabelle2 (Spalte D) nach Tabelle1 in Spalte D kopieren.
Danke
12.07.2004 18:46:27
Thread-ID: 454012
3 Beiträge
Vergleich zweier Tabellen
Cirrus

Hi!
folgendes Problem:
Ich hab auf einem Arbeitsblatt zwei Tabellen, die beide einen Bereich enthalten, der identisch sein soll. Ausfüllen tu ich die beiden Tabellen von einem externen Programm (SAS) automatisch und will nun eine Kontrolle einfügen, ob die Teile auch wirklich identisch si...
14.10.2004 09:09:06
Thread-ID: 500419
3 Beiträge
Vergleichen von Inhalten zweier Tabellen...
Inhalten

Hallo Excel Profis!
Ich habe folgendes Problem: Ich habe in einer Tabelle eine Spalte R wo Nummern eingetragen werden (z.B.:011101A); und wenn diese Nummer vorkommt soll in der Spalte S ein bestimmter, jedoch bei dieser Nummer immer gleicher Text eingefügt werden! Jetzt habe ich aber schon v...
19.10.2004 09:51:09
Thread-ID: 502846
4 Beiträge
Vergleich zweier Tabellenblätter
Flo

Guten Morgen zusammen,
ich habe folgendes Problem zu lösen:
ich habe zwei identische Excel-Arbeitsmappen. Eine hat 3700 Zeilen, die andere 1700 Zeilen. In jeder Zeile dieser beiden Dateien steht jeweils eine Adresse mit kompletter Anschrift, Telefonnummern, email, .....
Nun möchte i...
27.10.2004 07:46:06
Thread-ID: 507260
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA zur Automatisierung des Excel Vergleichs zweier Tabellen

Schritt-für-Schritt-Anleitung

Um den Excel Vergleich zweier Tabellen mithilfe von VBA zu automatisieren, folge diesen Schritten:

  1. Öffne deine Excel-Datei und gehe zu dem Tabellenblatt, das du verwenden möchtest (z.B. Tabelle1).

  2. Rechtsklicke auf den Tabellenblattreiter von Tabelle1 und wähle „Code anzeigen“.

  3. Kopiere den folgenden VBA-Code in das Code-Fenster:

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Dim Tb2 As Worksheet, ZE As Integer, Z
    Const APPNAME = "Worksheet_Change"

    Set Tb2 = Sheets("Tabelle2")
    ZE = 4 ' Erste Datenzeile 

    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        If Target.Row >= ZE Then
            For Each Z In Intersect(Range("A:A"), Target)
                With Z.Offset(0, 1).Resize(1, 3)
                    Application.EnableEvents = False
                    .FormulaR1C1 = "=IFERROR(VLOOKUP(RC1," & Tb2.Name & "!C1:C4,COLUMN(),0),"""")"
                    .Value = .Value
                    Application.EnableEvents = True
                End With
            Next
        End If
    End If

    ' Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """ Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

  4. Schließe den VBA-Editor und teste die Funktion, indem du in Tabelle1 einen Wert in Spalte A eingibst und mit Enter bestätigst. Der Code sucht in Tabelle2 nach dem eingegebenen Wert und kopiert die entsprechende Zeile.

Häufige Fehler und Lösungen

  • Fehler: „Fehler in Sub“

    • Lösung: Überprüfe, ob die Tabellenblätter korrekt benannt sind. Achte darauf, dass die Namen „Tabelle1“ und „Tabelle2“ übereinstimmen.

  • Keine Übereinstimmung gefunden.

    • Lösung: Stelle sicher, dass die Werte in Spalte A von Tabelle2 vorhanden sind und dass keine Leerzeichen oder Tippfehler vorliegen.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch die SVERWEIS-Funktion ausprobieren. Dabei gilt:

  1. In Tabelle1, Spalte B könntest du die Formel verwenden: 
    =SVERWEIS(A1;Tabelle2!A:C;2;FALSCH)
  2. Diese Formel sucht den Wert in A1 von Tabelle1 in der ersten Spalte von Tabelle2 und gibt den Wert aus der zweiten Spalte zurück.

Praktische Beispiele

  • Beispiel für den Vergleich zweier Tabellen:

    • Wenn in Tabelle1, Spalte A „ABC“ steht und in Tabelle2, Spalte A „ABC“ auch vorhanden ist, wird die entsprechende Zeile aus Tabelle2 nach Tabelle1 in die Spalten B, C usw. kopiert.

  • Dynamische Abfrage:

    • Wenn du möchtest, dass die Suche von dem Wert in Zelle M1 abhängt, kannst du den Code entsprechend anpassen, um die Daten aus dem Blatt „Morgen“ oder „Abend“ zu beziehen.

Tipps für Profis

  • Verwende Datenüberprüfung in Tabelle1, um sicherzustellen, dass nur gültige Werte eingegeben werden.
  • Optimierung der Formel zur Minimierung der Berechnungszeit, indem du nur die benötigten Bereiche in der VLOOKUP-Funktion angibst.
  • Verwende Error Handling, um unerwartete Fehler abzufangen und zu beheben.

FAQ: Häufige Fragen

1. Wie kann ich den Bereich für die VLOOKUP-Funktion anpassen? Du kannst den Bereich anpassen, indem du die C1:C4-Angabe in der Formel im VBA-Code zu deinem gewünschten Bereich änderst.

2. Ist es möglich, mehrere Tabellen für die Suche zu nutzen? Ja, du kannst die Logik im VBA-Code anpassen, um mehrere Tabellenblätter abzufragen, basierend auf dem Wert in einer bestimmten Zelle.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige