Macro tussen 2 bestanden

[Excelamateur1]

Documentnummer en documentnaam zijn altijd uniek, deze komen maar 1 keer voor. Alleen het versienummer niet, aangezien er van alle documenten een versie 1 2 of 3 kan zijn

 

[HSV]

Bij deze.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sv, sq, j As Long, x As Long
If Not Intersect(Union(Columns(1), Columns(4)), Target) Is Nothing Then
  With GetObject(ThisWorkbook.Path & "\Testbestand1.xlsm").Sheets(1)
    If Target.Column = 1 And Target = "WI" Then
      .Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Resize(3) = Application.Transpose(Target.Offset(, 1).Resize(, 3).Value)
     ElseIf Target.Column = 4 And Target.Offset(, -3) = "WI" Then
       sq = Application.Index(Cells(Target.Row, 2).Resize(, 2).Value, 1, 0)
       sv = .Range("c1", .Cells(1, Columns.Count).End(xlToLeft)).Resize(2)
          For j = 1 To UBound(sv)
            If sq(1) = sv(1, j) And sq(2) = sv(2, j) Then x = j: Exit For
          Next j
      .Cells(3, x + 2) = Target.Value
   End If
    .Range("c1", .Cells(1, Columns.Count).End(xlToLeft)).Resize(3).Sort .Cells(3, 2), Header:=xlNo, Orientation:=xlSortRows
    .Parent.Windows(1).Visible = True
    .Parent.Close True
 End With
End If
End Sub

 

[Excelamateur1]

Dankjewel, werkt perfect!