Opgelost gegevens ophalen uit een andere worksheet dmv een variabele string

[TonBo]

Goedenavond,
wellicht simpel, maar het lukt me niet:
ik wil in het voorbeeld hieronder in de Formula regel '202401'gewijzigd hebben in de stringnaam in 'sheetname' om
daarmee -automatisch variabel- te kunnen worden
Dat uitvoeren echter blijft mij maar errors geven, zal wellicht aan de " " en ! en ' zaken liggen, aan de syntax dus
Alvast bedankt voor hulp!

Sub Macrotest()	macro start vanuit sheet 202401
Dim sheetname As String
sheetname = Range("A2")	inhoud = 202401, en die sheetnaam bestaat
Sheets("DB202401").Select	switch naar al bestaande te bewerken sheet
Range("K1").Select	om aldaar cel K2 te vullen met een formule uit 202401
ActiveCell.FormulaR1C1 = "='202401'!R[1]C[5]"	resultaat is precies zoals bedoeld, in een formule
	moet in een formule, vanwege nog volgende autofill
End Sub

 

[AHulpje]

In welke module staat je macro?
Probeer het eens zo:

ActiveCell.FormulaR1C1 = "='" & sheetname & "'!R[1]C[5]"

 

[snb]

in het werkblad, zonder VBA:
sheetnaam in cel C1

=INDIRECT(ADDRESS(2;11;;;C1))

 

[TonBo]

In welke module staat je macro?
Probeer het eens zo:

ActiveCell.FormulaR1C1 = "='" & sheetname & "'!R[1]C[5]"

AHulpje: werkt helemaal perfect! hartstikke bedankt! ik kan weer verder.

 

[TonBo]

in het werkblad, zonder VBA:
sheetnaam in cel C1

=INDIRECT(ADDRESS(2;11;;;C1))

dank je SNB. Ik zocht de oplossing IN de VBA Macro.
De oplossing van AHulpje werkt perfect!

 

[snb]

Dat kan gewoon met zoeken/vervangen.
De macro is helemaal niet flexibel.