VBA til at tælle et udfald i bestemte celler i hele projektmappen

Hvis alle arkene har et dataområde der inkluderer A1 kan nedenstående makro bruges:

Sub Tael()
Dim Sht As Worksheet
x = 0
For Each Sht In ActiveWorkbook.Worksheets
x = Application.CountIf(Sht.Range("a1").CurrentRegion, "Ferie") + x
Next
MsgBox ("Ferie forekommer " & x & " gange")
End Sub

Ikke helt sådan jeg har tænkt.

Tænker lidt mere at det må skulle være en private sub der i celle "v7", tæller op hvor mange gange "ferie" fremkommer i celle "B4" "B25" osv. på alle fanebladene ( altså det er de samme celler der skal tælles i alle fanebladene )

Prøv med denne. Den tæller op hvad der er i området B4:B25 og lægger svaret i V7.

Sub Tael()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
Sht.Range("V7") = Application.CountIf(Sht.Range("B4:B25"), "Ferie")
Next
End Sub

Nu nærmer det sig.

Dog tænker jeg om man i stedet for at få antallet for hvert ark, i et felt, i stedet kan få den til at udregne det samlede antal for alle ark. Og så skrive resultatet ind i en celle i et bestemt ark ? lad os bare kalde arket "år"

Ja, men så må det blive noget i denne retning:

Sub Tael()
Dim Sht As Worksheet
x = 0
For Each Sht In ActiveWorkbook.Worksheets
x = Application.CountIf(Sht.Range("B4:B25"), "Ferie") + x
Next
Worksheets("År").Range("V7") = x
End Sub

Så virker det :) Smid et svar

Lige et par spørgsmål her til sidst, er ret ny til VBA.

Hvordan gør jeg så det kun er B4 og B25 den tæller i, og ikke fra B4 til B25 troede det var ; der skulle imellem så?

Hvordan får jeg den til at køre automatisk ?

Og så bare lige for nysgerrighedens skyld og så jeg får lidt bedre forståelse for det, hvorfor tager du og sætter x=0

Med kun B4 og B25 kan det se således ud:

Sub Tael()
Dim Sht As Worksheet
x = 0
For Each Sht In ActiveWorkbook.Worksheets
x = Application.CountIf(Sht.Range("B4"), "Ferie") + Application.CountIf(Sht.Range("B25"), "Ferie") + x
Next
Worksheets("År").Range("V7") = x
End Sub

X=0 er strengt taget ikke nødvendigt da X ikke huskes fra gang til gang.