Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1540to1544
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 - 2 Spalten vergleichen, neue Werte hinzufügen

VBA - 2 Spalten vergleichen, neue Werte hinzufügen
16.02.2017 13:47:43
Pascal
Hallo zusammen,
Zu Beginn meines Makros bin ich bereits vor folgendes Problem gestellt:
Ich habe in 2 getrennten Tabellenblättern jeweils eine Tabelle mit Informationen über Projekte. Identifiziert werden können diese über eine Nummer. Das eine Tabellenblatt zeigt einen aktuellen Auszug aller Projekte, das andere eine kommentierte Vergangenheitsliste.
Ich möchte nun über Makro herausfinden, welche Projekte neu dazugekommen sind und die Vergangenheitsliste um alle "neuen" Identifikationsnummern erweitern. Logisch bedeutet dies:
Ich vergleiche Spalte in Tabellenblatt A mit Spalte in Tabellenblatt B. Alle Werte, die in Tabellenblatt A vorkommen und in Registerkarte B nicht sollen am Ende der Spalte in Tabellenblatt B hinzugefügt werden. Weiter schaffe ich es danach denke ich selbst.
Vielen Dank bereits im Voraus für eure Hilfe! :)

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - 2 Spalten vergleichen, neue Werte hinzufügen
16.02.2017 14:15:25
ChrisL
Hi Pascal
Sehr theoretisch die Frage, aber hier mal ein mögliches Grundgerüst:
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For iZeile = 2 To WS1.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(WS2.Columns(1), WS1.Cells(iZeile, 1)) = 0 Then
'noch nicht vorhanden
WS2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = WS1.Cells(iZeile, 1)
Else
'bereits vorhanden
End If
Next iZeile
End Sub

cu
Chris
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige