Zahlenkombinationen vergleichen
Oskar Stefan
hallo!
Ich habe ein Problem, ich glaube jedenfalls das es ein Problem
ist.
Ich habe eine Excel-Tabelle angelegt in der Zahlenkombination
eingetragen sind.
z.B. 12 28 14 45 3 7
11 29 1 42 15 32
35 42 15 24 2 41
und so weiter.
Die Zahlen sind in 6 spalten nebeneinander eingetragen und gesamt
sind über 800 Zeilen vorhanden.
Jetzt meine Frage: 1.) Wie kann ich mit einer Formel feststellen
ob einer dieser Kombinationen
Doppelt vorkommt.
2.) Falls keine Kombination Doppelt
vorkommt
die Kompinationen herausfinden die,
die meisten
übereinstimmungen aufweisen. ( 5
gleiche Zahlen,
4 gleiche, 3 gleiche usw.
Ich würde mich sehr freuen wenn mir jemand einen Tip geben
könnte.
osi
Bernd Held
Hallo Osi,
an Deiner Stelle würde ich zuerst die Funktion =Verketten() einsetzen.
Damit hast du die sechs Spalten mit den Kombinationen in einer Zelle und
kannst sie leichter auswerten.z.B
=VERKETTEN(A1,B1,C1,D1,E1,F1)
Im zweiten Schritt eine Pivot Tabelle drüberlegen und die gewünschten
Auswertungen machen.
Bei Beadrf maile ich Dir eine kleine Beispieldatei
Viele Grüße
Bernd Held
http://members.aol.com/Machero
Hans W. Herber
Hallo Bernd,
wenn Du eine Beispieldatei erstellst, gib sie mir bitte auch. Habe in diesem
Bereich einigen Nachholbedarf.
Gruss Hans
--
Vorübergehende EMailadresse:
hanswern...@t-online.de
--
Bernd Held schrieb in Nachricht <3520CBC1...@debis.com>...
>Hallo Osi,
Berti
Hallo Bernd, Hallo Group
die Lösung ist klasse, hat aber einen Haken:
Beim verketten (oder &) muß ich doch leider jede einzelne Zelle benennen
oder gibts auch Lösungen für Bereiche?
Gruß
Berti
Bernd Held <Bh...@debis.com> schrieb im Beitrag
<3520CBC1...@debis.com>...
> Hallo Osi,
> an Deiner Stelle würde ich zuerst die Funktion =Verketten() einsetzen.
> Damit hast du die sechs Spalten mit den Kombinationen in einer Zelle und
> kannst sie leichter auswerten.z.B
> =VERKETTEN(A1,B1,C1,D1,E1,F1)
> Im zweiten Schritt eine Pivot Tabelle drüberlegen und die gewünschten
> Auswertungen machen.
> Bei Beadrf maile ich Dir eine kleine Beispieldatei
Martin Beck
Bernd Held schrieb in Nachricht <3520CBC1...@debis.com>...
>Hallo Osi,
>an Deiner Stelle würde ich zuerst die Funktion =Verketten() einsetzen.
>Damit hast du die sechs Spalten mit den Kombinationen in einer Zelle und
>kannst sie leichter auswerten.z.B
>=VERKETTEN(A1,B1,C1,D1,E1,F1)
>Im zweiten Schritt eine Pivot Tabelle drüberlegen und die gewünschten
>Auswertungen machen.
Hallo zusammen,
ganz so einfach scheint mir die Problemlösung nicht zu sein. Wenn die sechs
zu verkettenden Zahlen eine unterschiedliche Zahl von Stellen aufweisen, ist
es möglich, daß die Funktion VERKETTEN einen identischen Wert liefert,
obwohl 2 Zahlenkombinationen keine übereinstimmende Zahl aufweisen.
Beispiel:
1. Kombination: 1 13 4 17 2 28
2. Kombination: 11 3 41 7 22 8
ergeben verkettet jeweils: 113417228
Auch ist mir nicht klar, was man bei einer einspaltigen Tabelle (nach dem
Verketten) mit einer Pivot-Tabelle noch ausrichten kann, hier wäre ich für
einen Hinweis dankbar.
Im folgenden nun ein Lösungsansatz ohne VBA und selbstdefinierte Funktionen
für EXCEL 95:
Die zu vergleichenden Zahlenkombinationen stehen in den Zellen A1:F800.
Zunächst werden die Zahlen in Texte gleicher Länge (hier 2 Stellen)
umgewandelt, d.h. in G1 steht die Formel =TEXT(A1;"00"). Diese Formel
kopieren und in den gesamten Bereich G1:L800 einfügen.
In M1 folgende Formel eingeben: =VERKETTEN(G1;H1;I1;J1;K1;L1), in die Zellen
M1:M800 einfügen.
In die Zellen N1:N800 die Zahlen 1 bis 800 als Zeilenindex eintragen.
Die Tabelle wird anschließend aufsteigend nach Spalte M sortiert. Nun stehen
2 exakt (stellengenau) übereinstimmende Zahlenkombinationen (gleichen
Zeichenketten) in Spalte M jeweils direkt untereinander.
In O1 die Formel =WENN(M1=M2;1;0) und in P1 die Formel
=WENN(O1=1;VERKETTEN(N1;";";N2;"") eingeben, beide Formeln in den Bereich
O1:P800 kopieren. (Hinweis : die beiden WENN-Anweisungen ließen sich in
einer verschachtelten Formel zusammenfassen, würde jedoch etwas
unübersichtlich.)
Wenn z.B. die Zahlenkombinationen in den Zeilen 2 und 6 exakt
übereinstimmen, so steht in Zelle P2 nun der Ausdruck 2;6 und das wär's.
Einschränkungen: Die Lösung funktioniert nur, wenn stellengenau geprüft
wird. Die Kombinationen 1 2 3 4 5 6 und 2 1 3 4 5 6 wären z.B.
nicht identisch. Soll dieser Fall abgedeckt werden, müßten die
ursprünglichen Zahlen zeilenweise (!) aufsteigend sortiert werden. Keine
Ahnung wie man das macht. (Man könnte sie natürlich aufsteigend erfassen
...)
Noch schwieriger ist das Problem, 5, 4 oder weniger Übereinstimmungen in den
Zahlenkombinationen zu finden. Darüber muß ich noch einmal nachdenken.
Gruß
Martin Beck
P.S. Bei Bedarf kann ich eine Beispieldatei zumailen.
Marco Lotz
Martin Beck schrieb in Nachricht <6fskb7$3um$1...@news.metronet.de>...
[...]
>Die zu vergleichenden Zahlenkombinationen stehen in den Zellen A1:F800.
>Zunächst werden die Zahlen in Texte gleicher Länge (hier 2 Stellen)
>umgewandelt, d.h. in G1 steht die Formel =TEXT(A1;"00"). Diese Formel
>kopieren und in den gesamten Bereich G1:L800 einfügen.
>
>In M1 folgende Formel eingeben: =VERKETTEN(G1;H1;I1;J1;K1;L1), in die
Zellen
>M1:M800 einfügen.
>
>In die Zellen N1:N800 die Zahlen 1 bis 800 als Zeilenindex eintragen.
>
>Die Tabelle wird anschließend aufsteigend nach Spalte M sortiert. Nun
stehen
>2 exakt (stellengenau) übereinstimmende Zahlenkombinationen (gleichen
>Zeichenketten) in Spalte M jeweils direkt untereinander.
Stattdessen kann man auch in G1 die Formel
=A1*10^5+B1*10^4+C1*10^3+D1*10^2+E1*10^1+F1
schreiben und dann nach G sortieren!
[...]
>Einschränkungen: Die Lösung funktioniert nur, wenn stellengenau geprüft
>wird. Die Kombinationen 1 2 3 4 5 6 und 2 1 3 4 5 6 wären z.B.
>nicht identisch. Soll dieser Fall abgedeckt werden, müßten die
>ursprünglichen Zahlen zeilenweise (!) aufsteigend sortiert werden. Keine
>Ahnung wie man das macht. (Man könnte sie natürlich aufsteigend erfassen
>...)
>
>Noch schwieriger ist das Problem, 5, 4 oder weniger Übereinstimmungen in
den
>Zahlenkombinationen zu finden. Darüber muß ich noch einmal nachdenken.
An dieser Stelle wäre es nicht schlecht, wenn sich der Fragesteller noch
einmal melden würde. Nach den ausgewählten Zahlenkombinationen denke ich
mal, daß es sich um Lottozahlen handelt. Dann wird die ganze Geschichte erst
richtig interessant!
Marco
Rolf Brands
Bernd Held wrote in message <3520CBC1...@debis.com>...
schnipp....
>Im zweiten Schritt eine Pivot Tabelle drüberlegen und die gewünschten
>Auswertungen machen.
>Bei Beadrf maile ich Dir eine kleine Beispieldatei
schnapp....
Hallo Bernd, der 1. Schritt mit der Verkettung ist mir ja noch klar, aber
wie es dann mit einer Pivot-Tabelle weitergeht um die weiteren
Abhängigkeiten zu ermitteln, ist mir schleierhaft. Wenn Du tatsächlich eine
Beispieldatei erstellst, vielleicht bist Du so nett und läßt mich teilhaben?
Viele Grüße
Rolf Brands
Oskar Stefan
hallo Leute!
Es freut mich das meine Frage auf so großes interesse gestoßen ist.
Es sind einige shr interresante Lösungsvorschläge eingegangen.
Es handelt sich wie vermutet um Lottozahlen und zwar Lotto
6 aus 45.
Ich habe die Zahlen vom Österreichischen Lottoserver heruntergeladen
Alle Zahlen der letzten 12 Jahre.
Die Zahlen liegen in Aufsteigender Form vor oder in der Reihenfolge
wie sie Gezogen wurden.
Ich habe die Häufigkeit der Gezogenen Zahlen bereits ermittelt mit
=Häufigkeit(Daten;Klassen) das funktioniert.
Den Vorschlag den Bernd gemacht hat mit der Pivottabelle habe ich auch
probiert, funktionierte ebenfalls sehr gut, aber leider nur wenn ich alle 6
Zahlen
miteinander vergleiche. 2,3,4,5 gleiche zahlen in einer Kombination
herauszufinden
ist so aber nicht möglich glaube ich zumindest.
Ich hoffe das noch mehr Vorschläge eingehen, es können auch Vorschläge
mit VBA gemacht werden falls sich das Problem anders nicht lösen
lässt.
osi
Marco Lotz schrieb:
Marco Lotz
Hallo osi,
mit der Prozedure vergleichen wird jede Kombination mit allen anderen
verglichen. In Spalte G stehen dann hinter jeder Kombination die
Zeilennummer, in denen alle Zahlen übereinstimmen. Z.B bedeutet dann
5+11+20, daß die Kombination in den Zeilen 5,11,20 vorkommt. In Spalte H / I
steht dann das Ergebnis für 5 / 4 Übereinstimmungen.
Ausgehend davon, daß in den Spalten A bis F die Zahlenkombination stehen.
Marco
Sub vergleichen()
' ende gibt die Zeilen an, die
' verglichen werden sollen
Const ende = 11
Dim grenze As Integer
For i = 1 To ende
For j = 1 To ende
If i <> j Then
z = 0
For k = 1 To 6
x = Cells(i, k)
For l = 1 To 6
If x = Cells(j, l) Then
z = z + 1
End If
Next l
Next k
' Ausgabe für 6 bis 4
' Übereinstimmungen mit Zeile j
m = 6
Do While m >= 4
If z = m Then
Cells(i, 13 - m) = _
Cells(i, 13 - m) & "+" & j
End If
m = m - 1
Loop
End If
Next j
Next i
End Sub
Martin Beck
Oskar Stefan schrieb in Nachricht <352261A8...@vol.at>...
>hallo Leute!
>
>Es freut mich das meine Frage auf so großes interesse gestoßen ist.
>2,3,4,5 gleiche zahlen in einer Kombination
>herauszufinden
>ist so aber nicht möglich glaube ich zumindest.
>Ich hoffe das noch mehr Vorschläge eingehen, es können auch Vorschläge
>mit VBA gemacht werden falls sich das Problem anders nicht lösen
>lässt.
Hallo,
hier ein Vorschlag, der ohne VBA auskommt:
Annahme: Die 800 Kombinationen stehen im Bereich A3:F802.
Schreibe in H3 folgende Matrix-Formel:
=WENN((ODER(IDENTISCH(A$2;$A3:$F3)))=WAHR;1;"")
(bei der Eingabe SHIFT-CTRL-Return drücken) und kopiere sie anschließend in
den Bereich H3:M802.
Füge in G3 die Formel =SUMME(H3:M3) und kopiere sie in den Bereich G3:G802.
Gebe in dem Bereich A2:F2 die 6 Zahlen ein, für die Kombinationen gefunden
werden sollen (das können natürlich auch bereits gezogene Kombinationen aus
dem Bereich A3:F802 sein, einfach kopieren).
Für jede der 800 Kombinationen werden dann zeilenweise in Spalte G die Zahl
der Übereinstimmungen mit den Angaben im Bereich A2:F2 und in den Spalten
H:M die Position der "Treffer" angezeigt.
Hope this helps.
Gruß
Martin Beck
P.S. Beispieldatei gibt's auf Anfrage.
Marco Lotz
Hallo!
Beispieltabelle mit
- Erzeugen von Zufallslottozahlen
- Vergleichen der Kombinationen
- Sortieren der Lottozahlen
schicke ich gerne jedem zu.
mailto:ma...@planet-er.de
Marco
Heiko Scharf
Hallo Osi,
zu den Vorbereitungen
X A B C D E F G H I ... AY
Z1 Zahl x x x x x 1 2 3 ... 45
Z2 AnzahlZahlAbsolut x x x x x =ZÄHLENWENN(G6:G8000;1) ...
=ZÄHLENWENN(AY6:AY8000;1)
Z3 AnzahlZahlTErgebn x x x x x =TEILERGEBNIS(9;G6:G8000) ...
=TEILERGEBNIS(9;AY6:AY8000)
Z4 Diese Zeile ist leer hier stehen Kommentare in dem Muster das ich Osi
gemailt habe
Z5 x x x x x x 1 2 3 ... 45 (Bereich G5:AY5 markieren und Autofilter setzen)
Z6 12 28 14 45 3 7 =WENN(ZÄHLENWENN(A6:F6;$G$1);ZÄHLENWENN(A6:F6;$G$1);"")
... =WENN(ZÄHLENWENN(A6:F6;$AY$1);ZÄHLENWENN(A6:F6;$AY$1);"")
Anm. die x dienen nur hier der Spaltenzuordnung
soweit zu den Vorbereitungen (ich hoffe ich hab nix vergessen)
jetzt nur noch A6:F8000 mit Deinen Daten füttern
und G6:AY6 nach unten auffüllen
In Zeile 2 wird angezeigt wie oft die Zahl gezogen wurde
such Dir den höchsten Wert aus und setzte einen Filter
in Zeile 3 wird nach jedem Filter oder weiterem Filter
angezeigt wie oft die entsprechende Zahl in Kombination
mit der oder den gefilterten Zahlen gezogen wurde
Tschau
Heiko
**********************************
bei Antworten >spa< nach dem @ entfernen
**********************************
Oskar Stefan schrieb in Nachricht <3520C18A...@vol.at>...