som als over meerdre werkbladen

[Irmajack]

Hoi, Heeft iemand voor mij een oplossing.

Ik heb een bestand met meerdere tabbladen.
Per tabblad aangegeven wat en hoeveel er per klant betaald word.

Nu heb ik al wel een totaal telling per product op het tabblad in bewerking kunnen maken.
Nu wil ik alleen in de kolom ernaast het totaal aantal werkplekken ( WPL) hebben van de klanten die dat betreffende product afnemen.
Voorbeeld als ik 10 klanten heb met elk 5 plekken is totaal 50 plekken.
nu nemen er maar 5 catering af.
Dus wil ik dat de uitkomst dan niet 50 maar 25 is.
Ik heb al zitten stoeien met som als over meerdere tabbladen, maar er zit ergens een fout in de formule.
Ik heb een spatie vooraan de formule gezet, zodat deze als tekst wordt weergegeven.

De layout is op elk werkblad eender.
ik heb een voorbeeld bestand toegevoegd.

Wie kan mij een oplossing bieden, of wil ik iets dat niet mogelijk is?

bij voorbaat dank voor de hulp.
Irma

 

[Conseclusie]

Ik dénk dat je deze moet hebben:

=ALS.FOUT(ALS(VERT.ZOEKEN(B22;'1234 Klant A'!$B$9:$G$480;6;ONWAAR)>0;'1234 Klant A'!$B$7;0);0)+
ALS.FOUT(ALS(VERT.ZOEKEN(B22;'2345 Klant B'!$B$9:$G$480;6;ONWAAR)>0;'2345 Klant B'!$B$7;0);0)+
ALS.FOUT(ALS(VERT.ZOEKEN(B22;'3456 Klant D'!$B$9:$G$480;6;ONWAAR)>0;'3456 Klant D'!$B$7;0);0)+
ALS.FOUT(ALS(VERT.ZOEKEN(B22;'5678 klant C'!$B$9:$G$480;6;ONWAAR)>0;'5678 klant C'!$B$7;0);0)+
ALS.FOUT(ALS(VERT.ZOEKEN(B22;'6789 Klant E'!$B$9:$G$480;6;ONWAAR)>0;'6789 Klant E'!$B$7;0);0)

 

[Irmajack]

Dank je Conseclusie voor je snelle reactie.
Helaas is dit geen optie.
Het originele bestand heeft namelijk 61 werkbladen, en dit kunnen er in de toekomst nog meer worden.

 

[Conseclusie]

Een VBA-oplossing dan maar:

Function WPL(Basispakket As String) As Integer
WPL = 0
For Each Sh In Sheets
    If Sh.Name Like "#### Klant*" Then
        With Sh.Range("B11:B480")
            Set Gevonden = .Find(Basispakket, LookIn:=xlValues)
            If Not Gevonden Is Nothing Then
                If Sh.Cells(Gevonden.Row, 7) > 0 Then
                    WPL = WPL + Sh.Range("B7")
                End If
    
            End If
        End With
    End If
Next Sh
End Function

 

[Irmajack]

Helaas heb ik totaal geen verstand van VBA.
Ik moet het bestand bij problemen of wijzigingen wel kunnen bijwerken.