Zitat:
if (Zellen[x-1,y-1]=1)
Im ersten Durchlauf werden hier für x und y jeweils 1 übergeben, d.h. Du bleibst unterhalb der Array-Grenzen, da Du ja auf Zellen[0,0] zugreifst. Das musst Du schon abfangen, genauso wie im umgekehrten Fall (also + 1 beim jeweils letzten Element).