Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1688to1692
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

Daten vergleichen und Unterschiede zusammenfügen

Daten vergleichen und Unterschiede zusammenfügen
08.05.2019 20:11:29
Jun
Hallo Zusammen,
ich habe eine Frage zu dem Datenvergleichen.
Wie in der Beispieldatei gezeigt, in Arbeitsblatt "Info" Spalte A steht alle Cost Code.
Die alle vorher zugewiesene "Cost Code" in "DB" sollten mit den vollständige "Cost Code" in "Info" Spalt A verglichen werden und die alle übrig bleibende "Cost Code" in Spalte B in "Info" zusammenstellen (In diesem Beispiel habe ich die übrige Codes in blau markiert). Weiß jemand wie man mit VBA Code die Funktion erreichen kann? Vielen Dank!
https://www.herber.de/bbs/user/129674.xlsm
VG
Jun

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten vergleichen und Unterschiede zusammenfügen
08.05.2019 21:16:31
Werner
Hallo,
z.B. so:
Public Sub Test()
Dim i As Long, z As Long, raFund As Range
Application.ScreenUpdating = False
With Worksheets("Info")
z = 2
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
Set raFund = Worksheets("DB").Cells.Find(what:=.Cells(i, "A"), _
LookIn:=xlValues, lookat:=xlWhole)
If raFund Is Nothing Then
.Cells(z, "B") = .Cells(i, "A")
z = z + 1
End If
Next i
End With
Set raFund = Nothing
End Sub
Gruß Werner
AW: Daten vergleichen und Unterschiede zusammenfügen
09.05.2019 21:59:06
Jun
Hallo Werner,
vielen vielen Dank! Das funktioniert super!
LG
Jun
Gerne u. Danke für die Rückmeldung. o.w.T.
09.05.2019 22:13:58
Werner
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige