Zahl finden

alifa · 1970-01-01T00:00:00+00:00

Hallo, in Spalte A1 bis A68 befinden sich achtundsechzig 4-stellige Zahlen. Wie kann ich die Zahl finden, die wenigstens eine Ziffer mit allen anderen(67) gemeinsam hat? Z.B. von den Zahlen 1234, 2345, 4567, 8964, 9999, 8888, 7890 würde die 8964 entsprechen. Mir fällt da nichts Vernünftiges ein. Gruß, Erhard

Hallo,
habe wohl nicht daran gedacht, dass auch Zahlen in einer Zahl doppelt sein können.
So müsste es funktionieren.

Function CheckZahlen(rngBereich As Range, SollAnzahl As Long)
 Dim meAr(), MerkZahlen(1 To 4)
 Dim A&, AA&, AAA&, tmpCounter&
 Dim strZahl As String
 meAr = rngBereich.Value2
 
 For A = Lbound(meAr) To Ubound(meAr)
    For AA = 1 To Len(CStr(meAr(A, 1)))
      strZahl = Mid$(meAr(AA, 1), AA, 1)
       If Not IsNumeric(Application.Match(strZahl, MerkZahlen, 0)) Then
          MerkZahlen(AA) = strZahl
          
          For AAA = 1 To Ubound(meAr)
              If InStr(CStr(meAr(AAA, 1)), strZahl) > 0 Then tmpCounter = tmpCounter + 1
              If tmpCounter >= SollAnzahl Then CheckZahlen = meAr(AA, 1): Exit Function
              If ((tmpCounter + (Ubound(meAr) - AAA)) * 4) < SollAnzahl Then Exit For
          Next AAA
        End If
    Next AA
    Erase MerkZahlen
    tmpCounter = 0
 Next A
 
CheckZahlen = "nichts gefunden"
End Function

Gruß Tino

Hi Erhard,
"wie kopiert man nach rechts? (C1)"
Formel in C1 schreiben, C1 auswählen (markieren), Strg+C, D1:I1 markieren, Eingabe/Enter/Return drücken.
Die Formel wird bis in Spalte I gebraucht, weil sie dann in 7 Spalten steht - entsprechend den 7 Zeilen in Spalte A.
Danach kannst du C1:I1 markieren, Strg+C, C2:I7 markieren, Eingabe/Enter/Return drücken -
das kopiert die Formel dann nach unten.
In den Zellen C1:I7 steht also immer die selbe Formel.
Ergebnis 0 in C1 bedeutet: in der 1. Zahl in Spalte A kommt mindestens eine Ziffer der Zahl in A1 vor.
Ergebnis 0 in D1 bedeutet: in der 2. Zahl in Spalte A kommt mindestens eine Ziffer der Zahl in A1 vor.
...
Ergebnis 0 in I1 bedeutet: in der 7. Zahl in Spalte A kommt mindestens eine Ziffer der Zahl in A1 vor.
Ob das in VBA einfacher geht? Was einfacher ist, richtet sich auch danach, wie fit man im jeweiligen Bereich ist.
Für manche ist eine Matrixformel undurchschaubar, für andere ein VBA-Code.
Tinos Code berechnet wohl nicht das was du möchtest.
Hier ein anderer Vorschlag:


Sub tst()
Dim lngZ As Long, zz As Long, cc As Long, ss As Integer
lngZ = Cells(Rows.Count, 1).End(xlUp).Row
For zz = 1 To lngZ
For cc = 1 To lngZ
For ss = 1 To 4
If InStr(1, Cells(cc, 1), Mid(Cells(zz, 1), ss, 1)) > 0 Then Exit For
Next ss
If ss > 4 Then Exit For
Next cc
If cc > lngZ Then
MsgBox "Treffer: " & Cells(zz, 1)
Exit Sub
End If
Next zz
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Forumthread: Zahl finden

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I	J
1	1234	4	1	1	1	1	0	0	0
2	2345	4	1	1	1	1	0	0	0
3	4567	5	1	1	1	1	0	0	1
4	4689	7	1	1	1	1	1	1	1
5	9999	3	0	0	0	1	1	0	1
6	8888	3	0	0	0	1	0	1	1
7	7890	5	0	0	1	1	1	1	1
8
9										4689

Zahl finden

Forumthread: Zahl finden

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread