Lottozahlen per Suchlauf prüfen

Vor rund 12 Stunden habe ich in der Mailingliste eine Antwort eingeben, die zwar verteilt, jedoch nicht ins Webforum übernommen wurde. Im Folgenden gebe ich sie deshalb nochmals im Forum ein, allerdings in veränderter Form, denn ich musste feststellen, dass die zuerst angegebene Formel den Prozessor praktisch voll belegt. Das resultierende Dokument mit voller Dokumentation habe ich als Beispiel-Dokument zur Verfügung gestellt. Da die Beispiel-Eingabe jedoch moderiert wird, kann es einen Moment dauern, bis dieses Dokument greifbar ist. Hier also zuerst mein Kommentar von letzter Nacht:

- - snip - -
Hallo Martin

> Ich habe 12 Zeilen mit je 6 Zahlen (6 aus 49) in einem Rechenblatt (Tipp). Die Ziehungen (4) sollen in einem extra Rechenblatt stehen, die vom 29.12.07 hab ich schon in A2 bis A7.

Von Lotto versteh ich nichts. Vielleicht ist es mir deshalb ein Rätsel, was die 4 in der Klammer hinter den Ziehungen zu bedeuten hat.

> Jetzt will ich in der Spalte neben den Tipps in der jeweiligen Zeile die Anzahl der Richtigen per VSuchlauf ermitteln lassen. Wie könnte ich die selbst erdachte Formel: VSuchlauf(A2:F2;LfdZelle=Ziehung!A2;0;LfdZähler)

Da stimmt schon sicher mal etwas nicht. Die Funktion VSuchlauf sucht den angegebenen Bereich vertikal ab. Aber du hast einen Bereich angegeben, der nur aus einer einzigen Zeile besteht. Also wenn schon, dann müsste es ein horizontaler Suchlauf sein.

> so ändern, dass Sie mir das gewünschte Ergebnis bringt und ich sie dann einfach nach unten kopieren kann, oder jemand hat eine noch elegantere Lösung;-)
> Freue mich aber über jede Lösung.

Wahrscheinlich macht die folgende Formel was du suchst:
HSuchlauf(A1:F1;1;0;LfdResultat+VSuchlauf(Ziehung!$A$2:$A$7;LfdZelle=LfdZelle(1)))
Diese kannst du nach unten kopieren.

Nun habe ich aber grundsätzlich etwas dagegen (aus Gründen, die ich in meinem Buch erläutert habe), Formeln nach unten zu kopieren. Ein solcher Grund wäre zum Beispiel, dass du mehr oder weniger Tipps auswerten möchtest. Es wäre also von Vorteil, wenn automatisch so viele Zeilen ausgewertet werden, wie Tipps abgegeben wurden. Genau das macht die folgende Formel, die ich mal in Zelle H1 gesetzt habe. Der erste Suchlauf löscht die existierende Resultatspalte (bewusst ohne die elegante Martin's Power Function "LöscheBereich" zu benutzen). Der zweite VSuchlauf steuert die Ausführung des Rests der Formel für so viele Zeilen wie Tipps abgegeben wurden. Der Rest der Formel etspricht in etwa der obigen einfacheren Formel. Allerdings müssen die einzelnen Tippzahlen mit der Index-Funktion adressiert werden. Es ist dies das erste Mal, dass ich eine Formel mit mehr als einer Verschachtelungsebene, also mit Schachtelungsindex=2 sehe.

VSuchlauf(G:G;LfdZelle≠0;0;SetzeZelle('';G:G;LfdIndex))&VSuchlauf(A:F;LfdZelle≠0;0;
SetzeZelle(HSuchlauf(A1:F1;1;0;LfdResultat+VSuchlauf(Ziehung!$A$2:$A$7;
LfdZelle=Index(A:F;LfdIndex(2);LfdIndex(1))));G:G;LfdIndex))

(Für den Fall, dass das "ungleich-Zeichen" bei der Umsetzung von der Mailingliste ins Forum Probleme machen sollte: Bei den ersten zwei VSuchläufen in der Formel lautet die Bedingung "LfdZelle(ungleich)0".)
- - snip - -

Im angekündigten Dokument heisst die Formel dann (natürlich ohne Zeilenumbrüche!):

SpezialWenn(I1;SetzeZelle(0;I1)&VSuchlauf(G:G;LfdZelle≠0;0;SetzeZelle('';G:G;LfdIndex))&
VSuchlauf(A:F;LfdZelle≠0;0;SetzeZelle(HSuchlauf(A1:F1;1;0;
LfdResultat+VSuchlauf(Ziehung!$A$2:$A$7;LfdZelle=Index(A:F;LfdIndex(2);LfdIndex(1))));G:G;LfdIndex)))

und wird mit einem Knopf ausgelöst, welcher die Zelle I1 auf 1 setzt. Diese Verriegelung ist der einzige Unterschied zur gestern angegebenen Formel. Die genaue Erläuterung und Dokumentation der Formel ist im Beispieldokument enthalten. Also bitte einen Moment Geduld, bis das Dokument zur Verfügung steht.

Mit freundlichen Grüssen und den besten Wünschen für ein gutes RagTime-Jahr (und natürlich auch sonst alles Gute) an alle Forumteilnehmer/innen
Thomas