Excel_Range_Read gibt nur Nullen aus

$zahl = 99
global $i = 1


#include <File.au3>
_FileCreate("C:\Users\Marco\Desktop\karten\Verkündiger.txt")


#include <Excel.au3>
local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, "C:\Users\Marco\Desktop\Mappe1.xls")


	While $zahl>0
		if $i<10 then
			$i = $i + 1


			EndIf
		if $i>9 then
			$i=2


		EndIf


		eintragen()
		$zahl = $zahl - 1




	WEnd


Func eintragen()


				$name = _Excel_RangeRead($oWorkbook, "A1")
				$vorname = _Excel_RangeRead($oWorkbook, "B"+$i)
				$strasse = _Excel_RangeRead($oWorkbook,  "C"+$i)
				$tel = _Excel_RangeRead($oWorkbook,  "D"+$i)
				$handy = _Excel_RangeRead($oWorkbook,  "E"+$i)
				$plz = _Excel_RangeRead($oWorkbook,  "F"+$i)
				$ort = _Excel_RangeRead($oWorkbook,  "G"+$i)
				$email = _Excel_RangeRead($oWorkbook,  "H"+$i)
				$geb = _Excel_RangeRead($oWorkbook, "I"+$i)



	$Text = "<fname>"+$vorname+"</fname>" & @CRLF & "<lname>"+$name+"</lname>" & @CRLF & "</Pub>" & @CRLF & "</Active>" & @CRLF & "</PUBLIST>"
				FileWrite("C:\Users\Marco\Desktop\karten.txt", $Text)


EndFunc