Probleem met uren optellen in een kolom

[Bert666]

Beste Forum'ers,

Ik heb een probleem met een Excel berekening.

In het 1e tabblad van mijn excel sheet staat een kolom (D) met daarin twee keuzelijsten waaruit ik gegevens haal.
Het is de bedoeling dat zodra er in een cel Engels staat en daaronder VACATURE dat dan de uren worden opgeteld in het tabblad Uren (cel B3)
Die uren staan in kolom E naast kolom D.
Op deze manier moeten alle uren Engels waar nog VACATURE onderstaat bij elkaar worden opgeteld.
Ik heb van alles geprobeerd maar krijg het niet voor elkaar.
Allerlei formules uitgeprobeerd maar het lukt maar niet.

Ik heb een voorbeeld van mijn bestand bijgevoegd.
In mijn voorbeeld bestand moet dus in het tabblad Uren in cel B2 4 komen te staan.

Als iemand mij wilt helpen alvast heel hartelijk dank!

Met vriendelijke groeten,

Bert

 

[abevleeming]

Doordat je cellen hebt samengevoegd pakt SOM.ALS ze niet. Deze losmaken en naast de criteria cel zetten doet wonderen

 

[mjwiegant]

Hoi Bert,
Dat komt omdat de cellen zijn samengevoegd.
Ik heb de samenvoeging eruit gehaald en dan doen ze het.
Zie bijgaand bestand.
Mvg, Maarten

 

[Bert666]

Beste Wiegant en Vleeming,

Bedankt voor jullie reactie!
Ik ben door jullie hulp al aardig op weg.
Alleen worden nu alle uren van de Vacature opgeteld en het is eigenlijk de bedoeling dat alleen de uren van Engels worden opgeteld.
Of dat alleen de vacature uren van Nederlands indien gewenst worden opgeteld.
Er moet dus nog wat in de formule worden bijgevoegd een verwijzing naar het vak waar de vacature uren onder staan!
Misschien willen jullie mij nog helpen hiermee.
Maar ieder geval heel hartelijk dank voor de hulp!

m.v.g. Bert

 

[VenA]

In het voorbeeldje een oplossing dmv een UDF.

Function VenA(vak As String, naam As String, R As Range) As Long
ar = R
For j = 1 To UBound(ar) - 1
   If ar(j, 1) = vak And ar(j + 1, 1) = naam Then VenA = VenA + ar(j, 2)
Next j
End Function

 

[Bert666]

Probleem met uen optellen in een kolom

Beste VenA,

Bedankt voor de oplossing!!!
Werkt perfect en ik ben er erg blij mee!
Ook de andere twee mensen die op mijn probleem hebben gereageerd wil ik bedanken.

Met vriendelijke groeten!

Bert