hi i want to divide a range to a number here is the photo i dont want to do it with "Function" can u show with Dim or etc. and i want to get the answers as table like 5 units offset to the right or left i tried this
Option Base 1
Sub teilbar() Dim i As Integer, j As Integer Dim x As String
If x Mod 3 = 0
Then teilbar = "Teilbar 3"
Else
teilbar = "Nicht Teilbar"
Cells(i, j + 5) = A(i, j + 5)
End If
Next j
Next i
End Sub
Thanks for helping me
111.png