"overflow" ? Hvad er der i vejen?

Hvorfor?

mod 11 reglen kan ikke bruges laengere !

Problemet vedr. dine "Left" - prøv lige at checke syntaksen for Left

        a = Left(CPR, 1)
        b = Mid(CPR, 2, 1)
        c = Mid(CPR, 3, 1)
        d = Mid(CPR, 4, 1)
        E = Mid(CPR, 5, 1)
        F = Mid(CPR, 6, 1)
        G = Mid(CPR, 8, 1)
        H = Mid(CPR, 9, 1)
        i = Mid(CPR, 10, 1)
        j = Right(CPR, 1)

Men se hvad Arne skriver. Den metode fungerer ikke længere. Det gør at visse mennesker ikke kan bruge programmet.

http://www.cpr.dk/cpr/site.aspx?p=108&t=visartikel&Articleid=4347

Det er en opgave jeg har fået stillet fra skolen, og det står i opgave formuleringen det ska være mod 11

Jeg rettede min kode så den er følgende, men nu står den bare og kører? Har jeg fået lavet en uendelig løkke?

Sub OBL_Opg2()

Dim i As Integer
Dim AR As Integer
Dim CPR As String
Dim CPR1 As String
Dim NR As Integer

Dim ark1 As Range
Dim ark2 As Range

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim ii As Integer
Dim j As Integer

Dim TestSum As Long

    a = Left(CPR, 1)
        b = Mid(CPR, 2, 1)
        c = Mid(CPR, 3, 1)
        d = Mid(CPR, 4, 1)
        E = Mid(CPR, 5, 1)
        F = Mid(CPR, 6, 1)
        G = Mid(CPR, 8, 1)
        H = Mid(CPR, 9, 1)
        i = Mid(CPR, 10, 1)
        j = Right(CPR, 1)

Set ark1 = ThisWorkbook.Sheets("Medlemskartotek").Range("A2")
Set ark2 = ThisWorkbook.Sheets("Sheet1").Range("A2")

AR = ark1.CurrentRegion.Rows.Count

With ark1

For i = 1 To AR - 1

    CPR = .Offset(i, 0)
   

     

TestSum = (4 * a) + (3 * b) + (2 * c) + (7 * d) + (6 * E) + (5 * F) + (4 * G) + (3 * H) + (2 * ii) + (j)
 
If (TestSum Mod 11) <> 0 Then NR = NR + 1
ark2.Offset(NR, 0) = CPR

end if

Next
End With


End Sub

Jeg har ikke testet, men kan se et par fejl
Du skal have skilt alle crpnumre ad, så sektionen med left, mid og right skal flyttes og dim if-sætning til sidst driller også.

Sub OBL_Opg2()

    Dim i As Integer
    Dim AR As Integer
    Dim CPR As String
    Dim CPR1 As String
    Dim NR As Integer

    Dim ark1 As Range
    Dim ark2 As Range

    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim d As Integer
    Dim E As Integer
    Dim F As Integer
    Dim G As Integer
    Dim H As Integer
    Dim ii As Integer
    Dim j As Integer

    Dim TestSum As Long



    Set ark1 = ThisWorkbook.Sheets("Medlemskartotek").Range("A2")
    Set ark2 = ThisWorkbook.Sheets("Sheet1").Range("A2")

    AR = ark1.CurrentRegion.Rows.Count

    With ark1

        For i = 1 To AR - 1

            CPR = .Offset(i, 0)
            a = Left(CPR, 1)
            b = Mid(CPR, 2, 1)
            c = Mid(CPR, 3, 1)
            d = Mid(CPR, 4, 1)
            E = Mid(CPR, 5, 1)
            F = Mid(CPR, 6, 1)
            G = Mid(CPR, 8, 1)
            H = Mid(CPR, 9, 1)
            i = Mid(CPR, 10, 1)
            j = Right(CPR, 1)

            TestSum = (4 * a) + (3 * b) + (2 * c) + (7 * d) + (6 * E) + (5 * F) + (4 * G) + (3 * H) + (2 * ii) + (j)

            If (TestSum Mod 11) <> 0 Then
                NR = NR + 1
                ark2.Offset(NR, 0) = CPR
            End If

        Next
    End With
End Sub

du må gerne skrive et svar så der kan tildeles point