Opgelost gegevens ophalen uit een andere worksheet dmv een variabele string

  • Onderwerp starter Onderwerp starter TonBo
  • Startdatum Startdatum
Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

TonBo

Gebruiker
Lid geworden
14 aug 2022
Berichten
20
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").Selectswitch naar al bestaande te bewerken sheet
Range("K1").Selectom 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
 
In welke module staat je macro?
Probeer het eens zo:
Code:
ActiveCell.FormulaR1C1 = "='" & sheetname & "'!R[1]C[5]"
 
in het werkblad, zonder VBA:
sheetnaam in cel C1

PHP:
=INDIRECT(ADDRESS(2;11;;;C1))
 
In welke module staat je macro?
Probeer het eens zo:
Code:
ActiveCell.FormulaR1C1 = "='" & sheetname & "'!R[1]C[5]"
AHulpje: werkt helemaal perfect! hartstikke bedankt! ik kan weer verder.
 
in het werkblad, zonder VBA:
sheetnaam in cel C1

PHP:
=INDIRECT(ADDRESS(2;11;;;C1))
dank je SNB. Ik zocht de oplossing IN de VBA Macro.
De oplossing van AHulpje werkt perfect!
 
Dat kan gewoon met zoeken/vervangen.
De macro is helemaal niet flexibel.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan