Waarde opalen 3 criteria

[Gerard2348]

Wie helpt mij verder. Ik weet dat het via de formule index moet maar kom er niet uit. Zoals ik het nu heb worden de waardes opgehaald maar het gebeurt niet zoals het zou moeten. De bedoeling is dat op het blad printoverzicht de waardes komen uit het blad reservering. Waarbij aan 3 criteria moet worden voldaan uit het blad printoverzicht.

1. de datum
2. de kamer
3. en dan per kamer T1, T2, T3, of T4

BvD

Bekijk bijlage test.xlsm

 

[sylvester-ponte]

Gerard, hier een beginnetje:
rode cellen zijn hulpcellen
en grijze cellen bevatten je index formule

ps het kan ook wel zonder hulpcellen maar dat wordt dan een lange ingewikkelde formule

 

[Gerard2348]

Ha Sylvester Ponten,

Allereerst hartelijk dank voor je oplossing. Had niet verwacht dat het zo ingewikkeld zou zijn. Hulpcellen is geen probleem. Die zijn weg te werken met voorwaardelijke opmaak.

Groet
Geer.

 

[sylvester-ponte]

met vba gaat het eenvoudiger

 

[Gerard2348]

Ha Sylvester Ponten,

Ik ben al blij met deze oplossing. Maar mocht je hier een VBA oplossing voor hebben dan hou ik mij aanbevolen.

Groeten Gerard

 

[sylvester-ponte]

die met vba staat er onder

 

[Gerard2348]

Ha Sylvester Ponten,

Ik heb hem even bekeken en zo op het eerste gezicht ziet het er goed uit. Heb helaas nu geen tijd om hem uitgebreid te testen. Maar al vast mijn hartelijke dank.
Morgen ga ik jouw code uitgebreid bestuderen. :thumb:

Groeten Gerard

 

[sylvester-ponte]

dat vergat ik nog te vragen: waar zijn die "aantal dagen min om meer" voor?

 

[Gerard2348]

Heb toch nog even gekeken kon het niet laten. Met de plus en/of min dagen kan de gebruiker een snel overzicht geven wat er komt of wat er is geweest in die week. Dit omdat ik de datum functie laat gebeuren door =Vandaag().
Ik loop nu alleen tegen het probleem aan dat wanneer het werkblad is beveiligd (wat het geval is) de functie mijnwaarde (VBA oplossing) niet goed gaat. Het niet beveiligen is geen optie omdat verschillende mensen hier mee werken.
Dan is binnen de koortsen keren de sheet ontdaan van zijn functies. Ik ga morgen hier even verder mee stoeien.

Groeten Gerard

 

[Gerard2348]

Het is gelukt met de volgende functie in het blad printoverzicht;

Private Sub WorkSheet_Activate()
 Sheets("Reservering").Unprotect "1234"
 ActiveSheet.Unprotect "1234"
   End Sub

en visa versa

nogmaals bedankt :thumb: