bereik naam cel inhoud

[W Bloemendal]

Ik wil een bepaald bereik ( invul veld ) Copieren en op een ander blad invoegen, Dmv een macro dit lukt me wel. Maar dan wil ik in de macro hebben dat het gecopieerde bereik de naam krijgt van wat er in cel a1 staat.

Is dit mogelijk.

wim

 

[Wigi]

Hoi

Sub Macro1()

    Dim rngTeKopieren As Range
    Dim rngWaarnaarGekopieerd As Range

'=================================================================
'verander hier:

    Set rngTeKopieren = Sheets("Sheet1").Range("A1")
    Set rngWaarnaarGekopieerd = Sheets("Sheet2").Range("B1")
'=================================================================

    With rngTeKopieren
    
        .Copy rngWaarnaarGekopieerd
        
        ThisWorkbook.Names.Add _
            Name:=.Value, _
            RefersTo:=rngWaarnaarGekopieerd
        
    End With
    
End Sub

Wigi

 

[W Bloemendal]

Hallo Wigi

De oplossing geeft niet wat ik bedoel.

Ik heb de volgende macro,

Sub Macro2()
    
    Range("A1:E7").Select
    Selection.Copy
    Sheets("Blad2").Select
    Range("A1:E7").Select
    Selection.Insert Shift:=xlDown
    [COLOR="Red"]Nu moet Het bereik blad2 range A1:E7 de naam krijgen van wat er in blad2 cel a1 staat.[/COLOR]

Wim

End Sub

 

[Wigi]

Dat kan je toch aanpassen aan de hand van mijn code? De syntax heb je nu al.