Werkblad verwijzing relatief maken in macro

[jwm22]

hallo mede forumleden,

ik weliswaar nieuw hier en dit is mijn eerste topic, maar ik heb al heel wat oplossingen "geleend" voor VBA scripts op dit forum.
Nu loop ik echter tegen iets aan, wat mij op het eerste gezicht vrij eenvoudig leek, maar wat ik toch maar niet voor elkaar krijg.

Mijn probleem is het volgende:


Ik laat een macro een nieuw tabblad maken en de naam daarvoor uit een cel halen.

naam.tabblad2 = Range("kentallenblad!B2").Text   (-> werkblad krijgt nu de naam Rekenblad)


Sheets.Add After:=Sheets(Sheets.Count)
With activesheet
ActiveSheet.Name = [Name.tabblad2]
End With

Dit lukt, ik heb nu een nieuw tabblad met de naam "rekenblad". Hier kopieer een heel reeks getallen naartoe.
Nu wil ik bijvoorbeeld de maximum van een kolom bepalen in het rekenblad en dit weergeven op het kentallenblad


Dit voer ik als volgt in:

naam_tabblad2= Range ("kentallenblad!B2").Text

Sheets ("kentallenblad").Select
Range ("C4").Select
ActiveCell.FormulaR1C1 = "=MAX(" & naam_tabblad2 & "!R[5]C[5]:R[125]C[5])"
Range ("C5").Select

Ik wil op het kentallenblad, in cel C4, het resultaat zien van een kolom op het rekenblad.
Maar de naam van het werkblad (rekenblad) wil ik relatief houden, omdat deze in de toekomst voor nieuwe analyses weer kan veranderen.

Maar op moment dat ik van
ActiveCell.FormulaR1C1 = "=MAX(Rekenblad!R[5]C[5]:R[125]C[5])"
de werkbladverwijzing relatief maak:
ActiveCell.FormulaR1C1 = "=MAX(" & naam_tabblad2 & "!R[5]C[5]:R[125]C[5])"

Dan werkt de formule niet meer.
Ik krijg de werkbladverwijzing dus niet relatief..

kan iemand me hier mee helpen?

Hoor het graag!

 

[edmoor]

Dat werkt hier prima. Geeft de formule dan een fout? Of gebeurt er iets anders?

 

[jwm22]

Verhip zeg...

bij mij werkt het nu ook... :shocked:
Ik kreeg een Fout 1004, maar nu ik het nog eens goed overtyp werkt het prima inderdaad.. toch vast iets verkeerd gedaan met een haakje..

Nou ja opgelost dus! :d