Automatisch de hoogste datum zoeken

[Karag68]

In kolom A staan onder elkaar een aantal datums in blokjes van verschillende grootte. Nu wil ik dat in de lege cellen boven elk blokje van datums de hoogste datum van dit blokje ingevuld wordt. De blokjes kunnen van grootte variëren. (Zie ook de bijlage) De echte file is meer dan 15 pagina's.Bekijk bijlage voorbeeld.xls Tevens verandert de lijst regelmatig
dus ik wil dit niet handmatig doen. Kan iemand mij hierbij helpen.

 

[Cobbe]

Je hebt 2 mogelijkheden:

Grootste(A2:A4;1)

Max(A2:A4)

Succes, Cobbe

 

[vanveelen]

Hoi,

Je zou kunnen werken met bereiknamen.
Wanneer er in een 'blokje' een rij wordt ingevoegd, wordt de verwijzing/omvang van alle bereiknamen automatisch aangepast (zie voorbeeld).
Maar of dat een praktische oplossing is weet ik niet, want het is nog al wat werk om dat (hoewel eenmalig) allemaal aan te moeten passen.

Bekijk bijlage voorbeeld(1).xls

Tja, en dat voorbeeld van @Cobbe ... daar schiet je natuurlijk niet echt veel mee op.

 

[Karag68]

Cobbe,

Dit is niet de oplossing naar waar ik zoek. Dit betekent dat ik handmatig alles moet invoeren en continu moet aanpassen. Dit wil ik juist niet.

Vanveelen,

Ik ben niet zo kundig in excel. Hoe heb je die bereiken gemaakt? Als ik het goed begrijp, moet ik dus eerst alle bereiken aanmaken? Dan heb ik nog een hoop werk.
Is er niet een andere oplossing met mischien een slimme macro?

 

[Cobbe]

Dat bereiken benoemen heeft natuurlijk ook geen zin want dan kan je makkelijker gewoon een formule plakken.

Ik heb iets gemaakt waar het voorbereidend werk heel miniem is en tevens verborgen kan worden.

Zie maar.

Succes, Cobbe

 

[sylvester-ponte]

hoi als het met een macrootje mag

dan is dit een mogenlijke opzet
deze macro vult de formules in en kleurt het celletje geel
:

Sub MaxFormulesEnKleur()
    Dim R As Range: Set R = [A60000].End(xlUp).Offset(1, 0)
    Dim R1 As Range: Set R1 = [A1]
    Dim R2 As Range
    Do
        If R1 = "" And R1.Offset(1, 0) <> "" Then
            Set R2 = R1
            Do
                Set R2 = R2.Offset(1, 0)
            Loop Until R2 = ""
            R1.FormulaR1C1 = "=MAX(R[1]C:R[" & R2.Row - R1.Row - 1 & "]C)"
            R1.Interior.ColorIndex = 6
            R1.NumberFormat = "dd/mm/yy"
            Set R1 = R2.Offset(-1, 0)
        End If
        Set R1 = R1.Offset(1, 0)
    Loop Until R1.Row = R.Row
End Sub

Bekijk bijlage voorbeeld (1).xls

groet sylvester

 

[Karag68]

Cobbe en Sylvester:
Hartelijk dank voor jullie oplossingen. Beide werken goed. Ik zal kijken welke ik uiteindelijk ga gebruiken.