1 x zoeken, meerdere benoemen... VBA

[rvt1982]

Beste mensen,

Ik zou graag het volgende willen, maar helaas weet ik niet of dit mogelijk is en of het moet.

En ja Ik weet dat de volgende script niet werkt, maar dit gaat om het idee....

Sheets("Data").Columns(1).Find(ThisWorkbook.Sheets("Blad 2").Range("N10"), , xlValues, xlWhole) _
                  VoorNaam = .Offset(0, 1).Value
                  AchterNaam = .Offset(0, 2).Value
                  Adres = .Offset(0, 3).Value
                  Postcode = .Offset(0, 4).Value
                  Plaats = .Offset(0, 5).Value

    Sheets("Home").Range("A1").Value = VoorNaam 
    Sheets("Home").Range("A2").Value = AchterNaam 
    Sheets("Home").Range("A3").Value = Adres

enz enz enz

Alvast bedankt.

 

[wampier]

En wat is de vraag? je kunt de range toch gewoon opslaan en daar offsets van nemen? Zoals je nu doet maar dan met een "WITH" statement

 

[spaarie]

Dus zoiets...

    With Sheets("Data").Columns(1).Find(ThisWorkbook.Sheets("Blad 2").Range("N10"), , xlValues, xlWhole)
        VoorNaam = .Offset(0, 1).Value
        AchterNaam = .Offset(0, 2).Value
        Adres = .Offset(0, 3).Value
        Postcode = .Offset(0, 4).Value
        Plaats = .Offset(0, 5).Value
    End With
    
    With Sheets("Home")
        .Range("A1") = VoorNaam.Value
        .Range("A2") = AchterNaam.Value
        .Range("A3") = Adres.Value
        'etc, etc...
    End With

 

[rvt1982]

Sorry, ik had even iets duidelijker moeten zijn.
Het gaat om dit gedeelte:

                  VoorNaam = .Offset(0, 1).Value
                  AchterNaam = .Offset(0, 2).Value
                  Adres = .Offset(0, 3).Value
                  Postcode = .Offset(0, 4).Value
                  Plaats = .Offset(0, 5).Value

 

[spaarie]

Sorry, ik ook

    With Sheets("Data").Columns(1).Find(ThisWorkbook.Sheets("Blad 2").Range("N10"), , xlValues, xlWhole)
        VoorNaam = .Offset(0, 1).Value
        AchterNaam = .Offset(0, 2).Value
        Adres = .Offset(0, 3).Value
        Postcode = .Offset(0, 4).Value
        Plaats = .Offset(0, 5).Value
    End With

 

[rvt1982]

Thanks mannen, :thumb: