waarden automatisch invoeren bij automatisch gemaakt werkblad

[Spletsj]

Goedemiddag,

Mijn vraag
Ik heb een spreadsheet gemaakt waarin ik automatisch een nieuw werkblad kan laten maken.
Nu wil ik graag de hoogste kilometerstand in het reeds gemaakt werkblad, automatisch laten verschijnen in het nieuwe gemaakte werkblad cel B3.

Voorbeeld: werkblad sep2020 is reeds automatisch gemaakt en daarin heb ik de kilometerstanden ingevoerd (ivm tankbeurten). Nu is de maand voorbij en wordt automatisch werkblad okt2020 gemaakt, waarin ik graag de hoogste kilometerstand van sep2020 automatisch in cel B3 van het nieuwe werkblad geplaatst zien. Nu doe ik dat handmatig.
Het probleem is dat ik geen verwijzing kan maken naar een cel, omdat de naam van het volgende werkblad op dat moment nog niet bekend is.

Relevante software en hardware die ik gebruik
Win10, Excel2016.

Wat ik al gevonden of geprobeerd heb
heb geprobeerd met max(eerste werkblad:laatstewerkblad;cel)
Dit werkt niet omdat dan steeds de hoogste kilometerstand geplaatst wordt en het verschil in tankbeurten altijd 0 is....

[JeanPaul]

Laat eens zien wat je al gemaakt heb

[Spletsj]

Hoe kan ik een bestand uploaden?

[tknijnenburg]

Start volledige bewerker & voorbeeld.
Er onder is een knop bijlage.
Daarmee kan je een bestand uploaden

[Spletsj]

Het werkt als volgt:
wanneer je in werkblad 'Maanden' de naam invult, bijvoorbeeld 'dec20', vult ie automatisch 2020 erachter in.
Tegelijk wordt er een nieuw werkblad gemaakt van een kopie van 'Leeg' die de naam 'dec20' krijgt.

Ik zou graag in Cel B3 automatisch de hoogste kilometerstand van het werkblad ervoor ingevuld hebben.
Deze formule zou al in het werkblad 'Leeg' opgemaakt moeten worden, met een verwijzing naar het vorige werkblad.
De verwijzing moet dan de naam van het voorgaande werkblad krijgen.

Misschien dat dit meer duidelijkheid brengt naar mijn vraag....

Overigens, de kolommen C t/m L van werkblad 'Maanden' zijn normaliter verborgen.

Bij voorbaat dank

[tknijnenburg]

Zie bijlage.
Ik heb deze regel toegevoegd:
[code.Range("J7").Formula = "=max(" & Sheets(Sheets.Count - 2).Name & "!J:J)"
[/code]

[Spletsj]

@Ton,
dat is het helemaal, precies wat ik bedoel!
Heb alleen de plaats gewijzigd, wilde de stand op B3 hebben.

Klasse, dank je wel!

grtz,
Henk

[tknijnenburg]

Graag gedaan, Henk.
Dank voor de terugkoppeling.