> Hi,
>
> > Wir sollen gerade mit VBA ein Sudoku programmieren.
>
> das hatte ich mal mit Zufallszahlen gelöst.  
>
> > in der vierten soll das 3x3 Quadrat überprüft werden.
>
> > Ich hätte gerne eine
> > Funktion in der ich nur die Koordinaten übergebe und die Funktion die
> > überprüft, weiß selber welches der neun 3x3 Quadrate überprüft werden
> soll.
>
> Muss da nicht noch die Zahl übergeben werden, auf die geprüft werden
> soll?
>
> > Private function quadrat (x as integer, y as integer) as Boolean
> > ‘ hier fehlt mir die Idee
> > End Function
>
> Das würde ich mit Range und Cells machen:
>
> for each objzelle in range(cells(x, y), cells(x + 2, y + 2))
> if objzelle = zahl then …
> next
>
> Wobei x und y hier etwas irreführend sind - x ist die Zeile, y die Spalte.

Verdammt nein, habe mich schlecht ausgedrückt. Ich will erst einmal ein beliebiges Sudoku lösen. Später (Mitte bis Ende Januar soll auch ein Sudoku erstellt werden können).
Ich habe leider zu range nicht wirklich (auch nicht in meinem Kompendium von Markt und Technik) viel gefunden, darum habe ich mich dann für cells entschieden. Ich habe mir in den anderen Funktionen einfach eine Hilfsvariable deklariert und dieser den Wert von cells übergeben ( hilfsvar= cells(x,y), danach habe ich nur noch überprüft ob der Inhalt der hilfsvar öfter als einmal vorhanden ist. Bekomme das ganze leider nicht für die 3x3 Matrix hin, bzw. scheiter daran, dass es da neun Felder gibt.