Hej

Jeg har et excel regneark med vba koden:

Function GetTheNum2(sInp As String, prefix As String, nDigits As Long) As String

    With CreateObject("vbscript.regexp")
        .Pattern = prefix & "\d{" & nDigits & "}"
        If .Test(sInp) Then
            GetTheNum2 = .Execute(sInp)(0).Value
        End If
    End With

og jeg bruger den sådan

Celle AK2 = 04

Celle Y4 = " nr.: 0413190704 Jr.: 1010687304 Sag: 1605287 Ved"

=HVIS(GetTheNum2($Y4;AK$2;8)<>"";HVIS(LÆNGDE(GetTheNum2($Y4;AK$2;8))<11;VÆRDI(GetTheNum2($Y4;AKS$2;8));"");"")

Funktionen kan godt finde de to numre i stringen, men når den finder det nummer i stringen, der starter med 04 så kommer kun 7 cifre tilbage (0413190) istedet for alle 10 (0413190704)

DVS:

giver 1010687304 (OK)

På forhånd tak for hjælpen.