Gegevens ophalen uit een ander tabblad

[r3000]

Waarschijnlijk is de oplossing heel simpel maar ik ben helaas een leek.

Bedoeling is door op "invoeren" te klikken, eenmalig de waarden uit Blad2 in te voeren in de betreffende cellen. (Dus geen formule in de cellen maar harde waarden)

Voorbeeld in bijlage spreekt voor zich hoop ik. Bekijk bijlage SAMPLE.xls

Bij voorbaat dank!

Groeten,

Remco.

 

[Warme bakkertje]

Sub Invoeren()
Dim data(3)
With Sheets("Blad2")
    data(0) = .Range("D9")
    data(1) = .Range("E11")
    data(2) = .Range("F12")
    End With
Sheets("Blad1").Range("B10").End(xlUp).Offset(1).Resize(, 3) = data
End Sub