Geachte aanwezigen,
Ik heb het volgende Excel bestand:
-Excel bestand met meerdere (per weken) tabbladen, met daarin gewerkte uren per project.
-In het "hoofdtabblad" wil ik de som van alle uren per project kunnen zien.
Ik heb hiervoor onderstaande VBA code:
-----------------------------------------------------------------------------------------------------
Dim uren As Double
For Each ws In ThisWorkbook.Sheets
uren = uren + ws.Application.SumIf(Range("D68"), "26579", Range("E6:E8"))
Next ws
Som_Als_Uren = uren
End Function
--------------------------------------------------------------------------------------------------
In het "hoofdtabblad" loop ik tegen het volgende probleem aan:
-De SumIf functie werkt;
-Het aantal uren voor project 26579 in tabblad 1 is 5uur. De uitkomst is van de functie is 20, het aantal tabbladen is 4;
-Het aantal uren in de andere tabbladen voor project 26579 is 0;
-Ik heb het idee dat de loop 4x langs tabblad 1 gaat en daardoor dus op 20 uitkomt;
-Wanneer ik de functie evalueer met F8 dan zie ik wel dat de functie langs de andere tabbladen gaat, zie screenshot.
-Kortom, wat doe ik fout en hoe kom ik op 5uur uit?
Bekijk bijlage Map1.xlsm
Als je tips hebt laat het weten, alvast bedankt.
Ik heb het volgende Excel bestand:
-Excel bestand met meerdere (per weken) tabbladen, met daarin gewerkte uren per project.
-In het "hoofdtabblad" wil ik de som van alle uren per project kunnen zien.
Ik heb hiervoor onderstaande VBA code:
-----------------------------------------------------------------------------------------------------
Dim uren As Double
For Each ws In ThisWorkbook.Sheets
uren = uren + ws.Application.SumIf(Range("D68"), "26579", Range("E6:E8"))
Next ws
Som_Als_Uren = uren
End Function
--------------------------------------------------------------------------------------------------
In het "hoofdtabblad" loop ik tegen het volgende probleem aan:
-De SumIf functie werkt;
-Het aantal uren voor project 26579 in tabblad 1 is 5uur. De uitkomst is van de functie is 20, het aantal tabbladen is 4;
-Het aantal uren in de andere tabbladen voor project 26579 is 0;
-Ik heb het idee dat de loop 4x langs tabblad 1 gaat en daardoor dus op 20 uitkomt;
-Wanneer ik de functie evalueer met F8 dan zie ik wel dat de functie langs de andere tabbladen gaat, zie screenshot.
-Kortom, wat doe ik fout en hoe kom ik op 5uur uit?
Bekijk bijlage Map1.xlsm
Als je tips hebt laat het weten, alvast bedankt.