diensten teller

[brandernl]

Ik heb (als zovelen) een rooster gemaakt in Excel. Nu wil ik het aantal diensten tellen. Dat kan met een simpele AANTAL.ALS, maar de weekeinddiensten zijn het meest interessant, want daar is altijd gedoe over.
In bijgaand bestand worden de diensten door een voorwacht en achterwacht gedaan. Met validatie kiest men dienstdoende voor- en achterwacht.
Ik dacht met deze macro de weekeinddiensten te tellen, maar helaas een 1004 fout.
Gaarne uw hulp

Sub Weekeind_Dienst()
Dim rCell As Range
Dim x As Integer

x = 0
For Each rCell In Range("C9:P9")
    If rCell.Value = "Lubbinge" And Left(rCell.Offset(-5, 0).Value, 1) = "z" Then x = x + 1
    Next
Range("Q9").Value = x
End Sub

Bekijk bijlage dienstenteller.xls

 

[Haije]

brandernl,

in de macro in je bestand staat niet

Sub Weekeind_Dienst()
Dim rCell As Range
Dim x As Integer

x = 0
For Each rCell In Range("C9:P9")
    If rCell.Value = "Lubbinge" And Left(rCell.Offset(-5, 0).Value, 1) = "z" Then x = x + 1
    Next
Range("Q9").Value = x
End Sub

maar:

Sub Weekeind_Dienst()
Dim rCell As Range
Dim x As Integer

x = 0
For Each rCell In Range("C9:P9")
    If rCell.Value = "Lubbinge" And Left(rCell.Offset(-[COLOR="red"]13[/COLOR], 0).Value, 1) = "z" Then x = x + 1
    Next
Range("Q9").Value = x
End Sub

 

[brandernl]

Dag Haije,
Je hebt gelijk, ik had voor het forum het bestand aangepast. Hij werkt. 't is de warmte zeker