Zoek getal in groter getal

[baszer]

Hallo,

ik heb een vraagstuk waar ik niet uit kom (ik weet niet eens of het uberhaupt mogelijk is). Stel, ik heb een cel met een getal:

123789123345

dit getal bestaat uit vier combinaties van getallen, in dit geval: 123 789 123 345

nu wil ik weten of het mogelijk is om een output te geven dat 123 er 2x in staat

 

[Peenvogel]

Ik heb een kleine functie gemaakt die doet wat je vraagt, hoop ik.
Groetjes Peenvogel.

 

[sylvester-ponte]

Bas, je mag er best wat meer bij vermelden.

moet het altijd in hele delen van 3 cijfers verdeeld worden?
dus 123 45 123 456 levert geen dubbelen op? ?
geef iets meer voorbeelden
en 1234 5678 1234 geeft dat dan 1234? of 123 of helemaal niets?

 

[baszer]

sorry, hieronder wat meer voorbeelden

het zijn altijd trio's. Dus
-123 456 987 123 654 878
-658 598 895 658
-788 788 455 451
- 456 800 475 800 800 800

 

[baszer]

Ik heb een kleine functie gemaakt die doet wat je vraagt, hoop ik.
Groetjes Peenvogel.

beste Peenvogel, bedankt voor je antwoord. Ik bedoel eigenlijk dat ik niet weet naar welk getal gezocht moet worden.

- 654654211200 antwoord: 2
- 988654654654 antwoord: 3
- 9889886500650 antwoord: 2 + 2 = 4
- 988988988988 antwoord: 4

 

[snb]

Als jij nu eens een fraai voorbeeldbestand maakt en hier plaatst, dan maakt iemand hier wel een prachtige oplossing.

 

[baszer]

Als jij nu eens een fraai voorbeeldbestand maakt en hier plaatst, dan maakt iemand hier wel een prachtige oplossing.

zie bijlage Bekijk bijlage tel trios.xlsx

 

[sylvester-ponte]

misschien zo iets? zie grijze cellen. (kolom d kun je verwijderen dat is een aardigheidje)

 

[baszer]

misschien zo iets? zie grijze cellen. (kolom d kun je verwijderen dat is een aardigheidje)

bedankt! precies wat ik zocht.

 

[HSV]

Andere methode.

Sub hsv()
Dim sn, i As Long, j As Long, jj As Long
sn = Cells(1).CurrentRegion.Offset(2).Resize(, 4)
For i = 1 To UBound(sn)
   With CreateObject("scripting.dictionary")
       For j = 1 To Len(sn(i, 1)) Step 3
        .Item(Mid(sn(i, 1), j, 3)) = .Item(Mid(sn(i, 1), j, 3)) + 1
       Next j
     For jj = .Count - 1 To 0 Step -1
        If .Item(.keys()(jj)) = 1 Then .Remove .keys()(jj)
     Next jj
        If .Count > 0 Then
          sn(i, 2) = Application.Sum(.Items)
          sn(i, 3) = .Count
        Else
          sn(i, 2) = 0
          sn(i, 3) = 0
        End If
     sn(i, 4) = Len(sn(i, 1))
   End With
 Next i
Cells(3, 1).Resize(UBound(sn) - 2, 4) = sn
End Sub

 

[snb]

of met deze UDF voor kolom C:

Function F_snb(c00)
  sn = Split(Trim(Format(c00, Replace(Space(15), " ", " @@@"))))

  For j = 0 To UBound(sn)
    y = UBound(Filter(sn, sn(j)))
    If y > 0 And InStr(c01, sn(j) & ":") = 0 Then c01 = c01 & " / " & sn(j) & ": " & y + 1
  Next

  F_snb = Mid(c01, 4)
End Function

 

[sylvester-ponte]

druk op alt F11 en kijk een in module1
als je er uitleg bij wil dan even vragen .

 

[baszer]

had het zojuist gevonden. Nogmaals dank!