Office: Vorgang solange wiederholen bis...

Hi!

über einen Button wird dieser Code aufgerufen

Code:

Wenn ich den Button drücke werden bestimmte Zellen (laut Array) abgesucht und überprüft ob etwas enthalten ist.
Ist dies der Fall werden die mir über die Variablen SpielerZ2 und SpielerZ1 in zwei Textfelder angezeigt.

Problem:
Clicke ich den Button, und die nächste Zellen die laut Array kontrolliert werden sind leer, so bleibt der letzte Wert in den TExtfeldern drin.
Ich muß dann solange weiter clicken bis wieder eine gefüllte Zelle gefunden wurde.

Ich möchte das aber bei clicken des Buttons solange das array abgearbeitet ist bis wieder eine gefüllte Zelle gefunden wurde.
ALso nur einmal drücken.

Ich hab schon versucht ne do loop Schleife in den obigen code einzubauen. Geht aber nicht! jedenfalls bei mir.

kann jemand helfen?

mfg
phobos

:)

 

Hi phobos,

do loop ist der richtige Ansatz für Dein Problem, denke ich. Du musst nur dann aus Deiner Schleife aussteigen, da Dein Ziel ja erreicht ist, richtig? Dazu benutzt Du einfach Exit Do.

In Deinem Code könnte das dann so aussehen:

Code:

Du solltest Dir natürlich noch darüber Gedanken machen, wie Du eine Endlosschleife verhinderst. Da würde sich eine Maximalzahl für deine Variable ZnäSpielz anbieten.

MFG

BenB

 

Moin, phobos,

eine (auch abgespeckte) Beispielmappe zur Verdeutlichung würde vielleicht die Helfern zu einer Antwort motivieren.

 

Hi BenB!

so wie du das geschrieben hast funktioniert es leider auch nicht.

springt gleich ans ende des Codes und die Variablen bleiben leer.

 

Hi Phobos,

sorry hatte einen Denkfehler in meinem Code *upps Es muss natürlich Do While True im Schleifenkopf heißen. Sonst wird die Schleife natürlich sofort abgebrochen!

Das sieht dann so aus:
Code:

Löst das Dein Problem?

MFG

BenB

 

ne du, funzt leider auch net.

Hab mal das wesentliche in eine Beispielmappe gepackt so wie das jinx vorgeschlagen hat.

Is vlt klarer dann.

 

So... mit Deiner Beispieldatei wurde mir schon ein wenig klarer, was Du eigentlich erreichen möchtest. Mein Ansatz mit Do ... Loop funzt, nur muss Dein Zähler für die Zeilen noch erhöht werden, bevor die Schleife mit Exit Do verlassen wird.

Habe Dir das mal in Deinem Code angepasst.

Ich empfehle Dir noch die Variants, die Du als Zähler für Spalten und Zeilen verwendest, mit 0 zu initialisieren. Habe ich in Deiner Datei bereits im Open-Ereignis des Workbooks eingefügt.

MFG

BenB

 

Das funktioniert.
Allerdings nur in einer Spalte.
Wenn ich jetzt mehrere Spalten habe die nacheinander abgearbeitet werden., kommt eine Fehlermeldung.

siehe angehängte Datei.

 

Hallo Phobos,

ohne Fehlermeldung kann ich Dir da auch nicht weiter helfen. Du musst auch mal selber den Code anschauen, wann welche Anweisungen ausgeführt werden muss. Dein Programm willst Du ja letztendlich selber schreiben, oder *biggrin.gif* ?

Mfg

BenB

 

Ja nee, is schon klar das ich dat ding alleine schreiben will.*tongue.gif*

Aber manchmal komm ich halt trotz meines sehr bescheidenen VBA Wissens und der Suchfunktion nach zig Stunden nicht weiter.
Und dann....ja dann hoffe ich auf Hilfe aus diesem Forum. So wie auch bei diesem Problem.*wink.gif*

Aber ich habs jetzt doch durch probieren hingekriegt.

Danke dir bis dahin. *Smilie

Gruß
phobos

 

Hallo Phobos,

Dein Array hat 30 Werte, beim 31.ten Wert (Schleifendurchlauf) kommt ein Fehler.