VBA werkblad kiezen op basis van celinhoud

[jesper1]

Hallo,

In mijn Excel bestand moeten de gegevens van werkblad [Transacties eigen rekening] gekopieerd worden naar een commissie.
De commissies staan in aparte werkbladen, namelijk [Feestco] en [Jubileumco].
In cel D2 moet aangegeven worden voor welke commissie de gegevens gelden, dus wanneer er "Feestco" staat, moeten de gegevens naar het werkblad [Feestco] gekopieerd worden, staat er "Jubileumco", dan moeten de gegevens naar het werkblad [Jubileumco] gekopieerd worden.

Tot nu toe heb ik de volgende VBA-code geschreven:

Sub WekenSchrijven()
    Range("C3:J6").Copy
    Sheets("Feestco").Select
    Range("C10000").End(xlUp).Offset(2, 0).Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Nu weet ik dat het probleem zit in de zin

    Sheets("Feestco").Select

Het woord ("Feestco") moet een variabele worden op basis van cel D2.
Weet iemand hoe dit mogelijk is?

Groeten,

Bekijk bijlage variabel werkblad.xlsm

 

[Haije]

probeer deze eens:

    Sheets(Range("D2").value).Select

 

[jesper1]

Deze code werkt, bedankt!

Ik had zelf toevallig net via een kleine omweg de oplossing, die was als volgt:

Sub WekenSchrijven()
    Range("C3:J6").Copy
    Variabel = Range("D2")
    Sheets(Variabel).Select
    Range("C10000").End(xlUp).Offset(2, 0).Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

 

[Cobbe]

Of zo zonder selecteren:

Sub WekenSchrijven()
    Range("C3:J6").Copy Sheets(Range("D2").Value).Range("C10000").End(xlUp).Offset(2, 0)
End Sub