Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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?
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 10:26:30
Armin
Hallo Martin,
so müsste es gehen.
https://www.herber.de/bbs/user/135767.xlsm
Gruß Armin
Anzeige
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...

309 Forumthreads zu ähnlichen 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
Anzeige
Vergleich von zwei Tabellenblättern (zeilenweise)
zwei

Hallo zusammen,
Leider habe ich keine Ahnung von VBA und soll 2 Tabllenblätter zeilenweise miteinander vergleichen.
Wenn der Inhalt der Zeile 1 A1-P1 (Tabelle1) mit dem Inhalt der 1. Zeile A1-P1 (Tabelle 2) übereinstimmen, soll mit der Prüfung der 2. Zeile fortgefahren werden. Ansonsten...
14.10.2008 17:24:38
Thread-ID: 1016410
5 Beiträge
Vergleich in zwei Tabellenblättern
tuska

Hallo,
ich habe die Forumssuche schon benutzt bitte aber trotzdem um Hilfe bei folgendem Problem, uzw.
Tabellenblatt 1: in Spalte X habe ich den Zellinhalt von Spalten C5&S5 verbunden (Text u. Zahlen)
Tabellenblatt 2: in Spalte AQ habe ich die Zellen B2&AP2 verbunden (Text u...
20.10.2008 00:22:04
Thread-ID: 1017550
9 Beiträge
Anzeige
zwei tabellen vergleichen
kalle

hallo leute,
ich hoffe mir kann jemand helfen den ich kann kein vba.
ich habe folgende situation:
1.) ich habe zwei tabellen und möchte das zeilen (außer spalte E) die in tabelle1 aber nicht in tabelle2 vorhanden sind in tabelle3 eingetragen werden
2.) möchte ich zeilen die in t...
04.01.2009 13:48:46
Thread-ID: 1036719
4 Beiträge
Inhalt von zwei Tabellen zusammenführen
zwei

Hallo,
ich habe zwei Tabellenblätter.
Tabelle1 mit den Spalten "Kundennummer" und "Geburtstag"
Tabelle2 mit den Spalten "Kundennummer" und "Umsatz".
Die "Umsatz"-Spalte der Tabelle2 sollten in der Tabelle1 hinter der korrekten "Kundennummer" und hinter dem "Geburtstag" in einer...
05.01.2009 17:11:00
Thread-ID: 1037041
8 Beiträge
Vergleich zweier Tabellen mit zwei Abfragekriterie
nina

Hallo, ihr Lieben,
ich versuche schon seit einigen Stunden eine geeignete Formel zu kreieren, leider erfolglos.
...und nun bin ich hier und ich hoffe ihr könnt mir helfen....
ich habe zwei verschiedene Excel Tabellen an unterschiedlichen Speicherorten.
In der 1. Tabelle stehen...
12.02.2009 15:25:00
Thread-ID: 1050116
9 Beiträge
Zwei Tabellen je Zelle vergleichen + markieren | Herbers Excel-Forum
Constantin
Hallo,
ich möchte zwei Tabellen (Tabelle1 und Tabelle2) in einer Arbeitsmappe (ab Zeile 2) miteinander vergleichen und die Unterschiede durch farbliche Markierung der jeweiligen Zelle in Tabelle1 sichtbar machen.
Ich versuche, die angedachte Logik einigermaßen präzise zu beschreiben und hof...
11.01.2010 14:19:47
Thread-ID: 1128880
5 Beiträge
Spalteninhalte vergleichen über zwei Tabellen
Constantin

Hallo,
ich möchte bzw. muss zwei Tabellen (Tabelle1 und Tabelle2) in einer Arbeitsmappe zeilenweise und dann Spalte für Spalte vergleichen. Spalte 3 enthält jeweils einen eindeutigen Schlüssel (Nr.).
Mir wäre schon sehr geholfen, wenn ich wüsste, wie man eine größere Anzahl von Spalten...
14.01.2010 23:03:17
Thread-ID: 1130094
5 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
2
1
4
8
15
3
7
8
4
4
2
2
2
2
2
5
2
1
1
2
5
4
6
2
4