Quanaarinail.com
Grünschnabel
Moin, liebe Leute.
Willkommen auf meinem ersten Thread in diesem Forum. Ich hab hier schon den einen oder anderen Thread zum Thema VBA-MineSweeper gesehen, aber leider beschreibt keiner von diesen mein Problem.
Also: Ich mache gerade ein Praktikum im IT-Bereich, um herauszufinden, ob mir die Branche liegt. Im Rahmen eben dieses Praktikums habe ich die Aufgabe bekommen, Minesweeper mit VBA zu proggen. Bin da auch schon relativ weit, mir fehlt eigentlich nur noch eine Idee, wie ich leere Felder im Umfeld einer aktiven Zelle automatisch aufdecke, damit ich nicht wie blöde im Spielfeld herumstochern muss.
Hatte da an eine Schleife gedacht, die im Umfeld der aktiven Zelle nach einem x (x ist hier die Mine, die ich nicht anklicken darf) sucht, und falls weder die aktive Zelle noch die Zellen im 1er Umfeld ein solches x enthalten, soll er jeweils in alle Richtungen weitergehen, bis er ein x da stehen hat.
Nun zu meiner Frage: Wie kann ich das machen, ohne da ne Endlosschleife zu erschaffen und so weiter?
Danke schonmal im Voraus.
Have a nice day,
Yours, Quanaarin!
P.S.: Ich würde gerne die aktuelle Version dranhängen, damit ihr seht, wo ich stehe, aber die Seite sagt mir, die hochgeladene Datei habe keine erlaubte Erweiterung.
Tante Edit: Code siehe unten
Willkommen auf meinem ersten Thread in diesem Forum. Ich hab hier schon den einen oder anderen Thread zum Thema VBA-MineSweeper gesehen, aber leider beschreibt keiner von diesen mein Problem.
Also: Ich mache gerade ein Praktikum im IT-Bereich, um herauszufinden, ob mir die Branche liegt. Im Rahmen eben dieses Praktikums habe ich die Aufgabe bekommen, Minesweeper mit VBA zu proggen. Bin da auch schon relativ weit, mir fehlt eigentlich nur noch eine Idee, wie ich leere Felder im Umfeld einer aktiven Zelle automatisch aufdecke, damit ich nicht wie blöde im Spielfeld herumstochern muss.
Hatte da an eine Schleife gedacht, die im Umfeld der aktiven Zelle nach einem x (x ist hier die Mine, die ich nicht anklicken darf) sucht, und falls weder die aktive Zelle noch die Zellen im 1er Umfeld ein solches x enthalten, soll er jeweils in alle Richtungen weitergehen, bis er ein x da stehen hat.
Nun zu meiner Frage: Wie kann ich das machen, ohne da ne Endlosschleife zu erschaffen und so weiter?
Danke schonmal im Voraus.
Have a nice day,
Yours, Quanaarin!
P.S.: Ich würde gerne die aktuelle Version dranhängen, damit ihr seht, wo ich stehe, aber die Seite sagt mir, die hochgeladene Datei habe keine erlaubte Erweiterung.
Tante Edit: Code siehe unten
Zuletzt bearbeitet: