Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1572to1576
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
Inhaltsverzeichnis

VBA Excel 2 Tabellen vergleichen

VBA Excel 2 Tabellen vergleichen
10.08.2017 15: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

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Excel 2 Tabellen vergleichen
11.08.2017 08: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 12:00:56
abuelito
Hi Chris,
Suuuuper, funktioniert wunderbar.
Vielen lieben Dank.
Grüße

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige