Überlauf (Zellen-Formatierung)

Sub Test()
Dim i As Integer
Dim x As Integer
x = Range("E65536").End(xlUp).Row
For i = 1 To x
End Sub

funzt einwandfrei, aber wenn ich schreibe

Sub Test()
Dim i As Integer
For i = 1 To Range("E65536").End(xlUp).Row
End Sub

Erhalte ich immer in der Zeile "For i = 1 to ...."
den Fehler "Überlauf"
Meines Wissens sind die beiden Anweisungen doch vollkommen identisch, oder sehe ich das falsch?
Weiß jemand, woran das liegt?
Gruß aus dem Sauerland
Jens