Hvordan får jeg 2 lister med mange navne til at blive gengivet 1 gang?

Hvis du højreklikker på hvert af de første 6 faneblad og under Vis Koder indsætter nedenstående makro (indsæt samme makro 6 gange), vil du hver gang du skriver et navn ind i kolonne A på disse ark få navnet overført til samlearket (her benævnt "All"), hvis navnet ikke eksisterer der i forvejen.
Hvis du sletter et navn fjernes den dog ikke fra "All".

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
LastRow = Sheets("All").Cells(65356, 1).End(xlUp).Row
If Application.CountIf(Sheets("All").Range("A:A"), Target) = 0 Then
Target.Copy Destination:=Sheets("All").Range("A" & LastRow + 1)
End If
End If
End Sub

Hej Jens

Tak for det. Det virker nogenlunde - dog overskriver det samme felt hver gang jeg skriver noget nyt i et af de 6 ark. Dvs. jeg vil aldrig få andet en det nyeste navn i mit samleark.

Kan du løse den problematik?

Michael

En lidt anderledes løsning findes her:

http://gratisupload.dk/f/8sbr17qf29/

Er ikke afhængig af hvor mange ark, der oprettes med navne, idet den leder alle ark igennem undtagen et overbliksark, hvor de unikke navne fra kolonne A samles.

Løsningen kan forfines med såvel autosortering mv.

Makroen virker her på min model. Den eneste måde jeg kan få den til at virke som du siger den gør er ved at skrive l (som i Lars) i stedet for 1 (en) i linie 6 ("A" & LastRow + 1)
Men det er vel for banalt.

Ellers ser Natkattens forslag ud til at virke Ok.