VBA - zoek tabblad met zelfde naam en plak waarde.

[gjanus]

Hallo ik zit vaak nogal wat te kopieeren en plakken en vroeg me of dit binnen excel/vba mogelijk is.


Bestand 1 = Werkbestand.
Bestand 2 = Dump uit systeem.

Beide bestanden hebben (onder andere) dezelfde tabbladnamen.

Bestand 1 en twee hebben dus bijvoorbeeld allebei tabbladen met de namen: 1,2,3,4 enz

Nu zou ik graag willen dat met een code die je start vanuit bestand 1 Vba zoekt:
* in de tabbladen van bestand 2. Komt hij een tabblad tegen met dezelfde naam dan moet hij de waarde uit dit tabblad kopieeren en de waarde in het tabblad met dezelfde naam van bestand 1 overschrijven.
* Komt hij (nog) niet het tabblad tegen dan gelieve het hele tabblad plakken in bestand 1

Iemand een suggestie?

alvast bedankt.

 

[VenA]

Een suggestie

Met de code in bestand1 en beide bestanden in dezelfde map

Sub VenA()
  Set b = GetObject(ThisWorkbook.Path & "\Bestand2.xlsx")
  For Each sh In b.Sheets
    If IsError(Evaluate("'" & sh.Name & "'!A1")) Then
      sh.Copy after:=Sheets(Sheets.Count)
     Else
     Sheets(sh.Name).Cells.Clear
     sh.UsedRange.Copy Sheets(sh.Name).Cells(1)
    End If
  Next sh
End Sub

 

[gjanus]

Dankje VenA probeer het as maandag gelijk evne.

 

[gjanus]

Beste VenA werkt prima. Dankjewel.

Gelijk een vraag uit nieuwsgierigheid ben jij ook betrokken bij het bedrijf Vena Solutions?