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:
Celle AK2 = 04
Celle Y4 = " nr.: 0413190704 Jr.: 1010687304 Sag: 1605287 Ved"
giver 0413190 (det skulle være 0413190704)
mens
Celle AK2 = 10
Celle Y4 = " nr.: 0413190704 Jr.: 1010687304 Sag: 1605287 Ved"
giver 1010687304 (OK)
På forhånd tak for hjælpen.