Array-Funktionen
19.11.2006 12:22:38
a.gerken
ich bräuchte einen sub, der in einem bereich jeweis einen Sub ausführt. Das ist zur zeit mein sub:
For Each solve_range In Sheets("Tabelle1").Range(SUDOKU_RANGE)
If 81 - WorksheetFunction.CountIf(Sheets("Tabelle1").Range(SUDOKU_RANGE), "") = NUMBER_OF_VALUES And Not NUMBER_OF_VALUES = 0 Then GoTo ende
If Not solve_range = "" Then
Call erase_one_value_and_test(solve_range.Row - 1, solve_range.Column - 1)
End If
Next solve_range
das ganze wird aber jetzt in der richtigen reihenfolge gemacht. Ich möchte das aber in einer zufälligen reihenfolge machen, damit wenn der sub frühzeitig abgebrochen wird (if 81-...then goto ende) nicht nur die zahlen im oberen bereich bearbeitet wurden sondern irgendwelche.
dabei soll aber keine Zelle doppelt bearbeitet werden und wenn alle zellen bearbeitet wurden, soll der sub abbrechen.
hoffe ihr habt alles verstanden.
grüße hans bärle ;)