But even if it were true the first time, then certainly k <= i * j is not true (you already set k = 2 and it only gets greater values), so also this condition is always going to be true once you get past the condition on k. Secondly, if (i * j 1) is true the first iteration, it will also be true in any other iteration, since the iterations do not change i nor j. The expression primzahl = True will always be true, because as soon as you set primzahl = False, you explicitly exit the loop with Exit Do, so the While condition never gets evaluated with primzahl = False. So you meant: Do While (primzahl = True) And (k 1) So logically the loop should continue while all of the conditions are still true. You actually mean to say that the loop shall end when either one of these three conditions is not true. The loop shall continue, as long as OR OR the mod is equal to zero, the format of the cell is cleared and the next cell undergoes the same mechanism.ĭim xMax As Integer, yMax As Integer, x As Integer, y As Integer, z As IntegerĬells(1 + x, 1 + y) = Int(Rnd() * 10 + 1) If one of those checks proves to be positive, i.e. This assumption is furthermore tested by dividing the given number with 2 then 3 then.

Second: What my code now does, is for each cell (after receiving a random number) to FIRST ASSUME the number in question IS a prime number and color the cell red.

Instead they are now random numbers, ranging from 1 to 10, to keep it simple. Naturally, I implemented certain changes:įirst: The numbers in the matrix are no longer products of the given numbers in the first row and column, since that fully defeats the purpose of checking for prime numbers. With a fresh mind I just tried again to tackle the task described above.

I have finally returned, after I was absent for quite a while.

Vba find with multiple conditions