Zoek nieuwe namen in data dump tabblad

[gjanus]

Hallo excel Guru's,

Is het mogelijk via VBA dit probleem op te lossen:
Blad2 word een lijst gedumpt met medewerkers hier kunnen nieuwe medewerkers tussenzitten.
Blad1 worden medewerkers aan een project gehangen en in de tijd uitgezet (planning)

Ik zou graag zien dat de nieuwe medewerkers in de lijst op blad2 gezocht worden, en als waarde op de eerst volgende lege cel in kolom a (als waarde) geplakt worden.

Voorbeeldbestand toegevoegd.
Personeelsnummer is uniek.

Alvast bedankt.

 

[emields]

bedoel je zoiets?

 

[gjanus]

Dankje Emields,

Dat is inderdaad hoe ik het ongeveerd bedoelde! top.

 

[VenA]

Iets sneller en dynamischer.

Sub VenA()
  ar1 = Sheets("Blad2").ListObjects(1).DataBodyRange
  Set d = CreateObject("Scripting.Dictionary")
  With Sheets("Blad1").ListObjects(1)
    ar = .DataBodyRange
    .DataBodyRange.Delete
    For j = 1 To UBound(ar)
      d(ar(j, 1)) = Array(ar(j, 1), ar(j, 2))
    Next j
    For j = 1 To UBound(ar1)
      d(ar1(j, 1)) = Array(ar1(j, 1), ar1(j, 2))
    Next j
    .ListRows.Add.Range.Resize(d.Count, 2) = Application.Index(d.items, 0, 0)
  End With
End Sub

 

[gjanus]

Werkt ook top! Dankje emields en VenA!