Details s. in der Beispielsdatei.
Danke im Voraus
Peter
https://www.herber.de/bbs/user/154770.xlsx
Sub Unit()
Dim Wsh As Worksheet
Dim Zeile As Long
For Each Wsh In ThisWorkbook.Worksheets
If Wsh.Name "Master" Then
For Zeile = 2 To Worksheets("Master").Cells(Worksheets("Master").Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("Master").Rows(Zeile), Wsh.Range("A1").Value) > 0 Then
Worksheets("Master").Rows(Zeile).Copy Destination:=Wsh.Cells(Wsh.Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next Zeile
End If
Next Wsh
End Sub
Gruß Gerd