Probleme mit Code in Schleife setzen

Opt("WinTitleMatchMode", 2)
WinWaitActive("Suchassistent","",10)




   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Branchen Auswahl;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(Ab Hier)
MouseClick("left",139,249,2)
Sleep(1000)
Send("{CTRLDOWN}c{CTRLUP}{DEL}")
MouseClick("left",1081,207,1)
Sleep(500)
Send("{CTRLDOWN}v{CTRLUP}")
Sleep(1000)
MouseClick("left",1844,111,1)
Sleep(3000)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Ende;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




Dim $Zaehler
Dim $Downline
;Dim $Branche =InputBox("Branche auswählen"," Bitte geben Sie die Branche ein in der gesucht werden soll: ", "Apotheken")
Dim $Anzahl =InputBox("Anzahl der Datensätze","Geben Sie die Anzahl der Datensätze ein",0)
Dim $Dateiname1 =InputBox("Dateiname","Geben Sie einen Dateinamen an: ", "")
Dim $Dateiname
Dim $Exportmenge =InputBox("Exportmenge","Wieviel Zeilen sind sichbar?: ", "41")


HotKeySet("{F5}","Stopp")






$Anzahl=Int($Anzahl/$Exportmenge)+1
MsgBox(0,"Anzahl der Durchläufe",$Anzahl)


MsgBox(0,"Los","Nun am besten die Maus nach Klick auf den Kopf legen." & @CRLF &  "5 Sekunden nach ok, gehts los und die Maus sollte nicht mehr bewegt werden!" & @CRLF & "Abbruch des Scriptes mit F5")


Sleep(5000)


Func Stopp()
Exit
EndFunc


for $Zaehler=1 to $Anzahl




; BEREICH MARKIEREN
;-------------------------
MouseClick("left",1202,264)
Sleep(500)
Send("{SHIFTDOWN}")
Sleep(500)
MouseClick("left",1205,904)
Sleep(500)
Send("{SHIFTUP}")




; BEREICH EXPORTIEREN
;-------------------------
MouseClick("left",1193,54)            ; Übergebenmenü ausklappen
Send("e")                                         ; e -> Unterpunkt exportieren
Send("{ENTER}") ; Fenster bestätigen
Sleep(500)
$Dateiname=$Dateiname1 & String($Zaehler)          ; Dateinamen bilden
Sleep(500)
Send($Dateiname)                                  ; Dateinamen eintragen
Sleep(500)
Send("!S")
Sleep(3000)                                        ; Speichervorgang abwarten
Send("{ENTER}")                                    ; Eingabe bestätigen




; BEREICH NEU POSITIONIEREN
;-------------------------


MouseClick("left",1205,904)
for $Downline=1 to $Exportmenge
Send("{DOWN}")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(Bis hier bzw.)
Next
Sleep(500)
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(HIER)