Cellenbereik dmv naam kopieren in een MACRO

[MHamersma]

kun je mij dan ook nog inbouwen dat hij met een POP UP schermpje komt, "naam bestaat niet" ??

is steeds leuker zo !

 

[snb]

Dat is overbodig, want in de validatielijst van A2 staan alleen maar geldige naambereiken; je kunt m.a.w. geen foute keuze maken.

 

[Warme bakkertje]

@snb 't Was niet mijn knop maar die van TS z'n bijlage

 

[snb]

@Rudi

Ik had hem toch echt uit jouw bijlage !

 

[MHamersma]

toch snap ik niet wat ik met de VB code van de namen moet, moet ik deze code verwerken in de andere macro ??

helaas nog ff hulp nodig hiermee !

 

[snb]

Zet

Private Sub Workbook_Open()
  For Each nm In ThisWorkbook.Names
    c0 = c0 & nm.Name & ","
  Next
  With [Blad1!A2].Validation
    .Delete
    .Add 3, 1, 1, c0
  End With
End Sub

In de module Thisworkbook

Zet

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" Then ThisWorkbook.Names(Target.Value).RefersToRange.Copy [Blad3!B13]
End Sub

in de module Blad1