vba der tæller indenfor en bestemt dato.

Kan du ikke uploade et eksempel ellers er du velkommen til at sende et eksempel. Synes det er svært at se, hvad det er du ønsker.

@-adresse under min profil

#supertekst skal jeg gøre når jeg kommer hjem.

Ok - afventer

#supertekst

Mail sendt.

Const totalIdRække = "Antal:"
Const stopDDMM = "20-12"
Dim startÅr As Integer, sidsteDatoRække As Integer, antal As Integer, ræk As Integer
Dim nr As Integer, dato As Date, stopDato As Date, totalRække As Integer
Public Sub optællingAntalBesøg()
    startÅr = Year(Range("A2"))
    stopDato = stopDDMM & "-" & CStr(startÅr + 1)
    sidsteDatoRække = findSidsteDatorække
    antal = 0
    nr = Range("D2")
   
    If nr > 0 And totalRække > 0 Then
        For ræk = 2 To sidsteDatoRække
            dato = Range("A" & ræk)
            If dato <= stopDato Then
                If Range("B" & ræk) = nr Then
                    antal = antal + 1
                End If
            Else
                Exit For
            End If
        Next ræk
    Else
        MsgBox "Butiksnr ikke validt / TotalRække ikke fundet"
    End If

    Range("B" & totalRække) = antal
End Sub
Private Function findSidsteDatorække()
Dim sidsteRække As Integer
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = sidsteRække To 1 Step -1
        If Range("A" & ræk) = totalIdRække Then
            totalRække = ræk
        End If
       
        If IsDate(Range("A" & ræk)) = True Then
            findSidsteDatorække = ræk
            Exit Function
        End If
    Next ræk
End Function

Lukker med delvis lavet.