Hallo Leute, vielleicht kann mir jemand helfen.

Es sollen alle Zahlen von 3 bis 9 quadriert nacheinander in den Bereich A1 bis E1 geschrieben werden, so dass die 81 links steht
und dann 49 etc..

In meinem Makro wird jedoch in der Zelle B2 z.B gar nichts stehten, weil aber wahrscheinlich der Inhalte noch drin ist.
Hat jemand eine Lösung dies zu umgehen?


Sub neu()

Cells.ClearContents
 
Dim intSpalte As Integer
Dim i As Integer

intSpalte = 6


For i = 3 To 9
intSpalte = intSpalte - 1
Select Case i
Case 3, 4, 5, 7, 9
  Cells(1, intSpalte).Value = i ^ 2
End Select
 Next i

End Sub