Hallo liebe Community,
ich versuche derzeit einen Ausbildungsnachweis Bot für mich zu verbessern. Dieser Bot wurde schon einmal hier im Forum erwähnt, daher habe ich mir diese Vorlage genommen.
Um nun zu meinem Problem zu kommen...
Wie sage ich AutoIt das er ab einer bestimmten Zelle beginnen soll zu schreiben und danach nur bestimmte Zeilen nach unten geht?
Stehe da vor einer Wand die ich nicht bezwingen kann 
Der Code sieht derzeit so aus:
AutoIt: Ausbildungsnachweis
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=Datei zum automatischen erstellen von Ausbildungsnachweisen
#AutoIt3Wrapper_Res_Fileversion=0.1
#AutoIt3Wrapper_Res_LegalCopyright=Andreas Urbschat
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Excel.au3>
#include <ExcelConstants.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <file.au3>
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <GUIDateTimePicker.au3>
Global $Array[10]
Global $sExcelblock, $s, $Excelfind, $ExcelDelete, $Excel
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox(0, "Fehler", "Excel Objekt kann nicht erstellt werden")
Local $aDatei, $i, $sWert, $iRandom, $q, $aPruefen[0], $iTage, $DateTime, $aDatumHeute
Local $iAbNr
Local $sFilePath = @ScriptDir & "\Taetigkeiten.txt"
Local $sExcelDatei = @ScriptDir & "\Ausbildungsnachweis Vorlage.xlsx"
Local $sINIDatei = @ScriptDir & "\Ausbildungsnachweis.ini"
Local $iZeilenanfang, $iZeilenende
; Erstellt mit Koda, ging schneller und war schneller was Optik angeht
$Ausbildungsnachweis = GUICreate("Ausbildungsnachweis Bot", 1035, 470, 194, 126)
$Date1 = GUICtrlCreateMonthCal("", 256, 192, 257, 164, 0) ;GUICtrlCreateDate
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("ab Datum:", 16, 256, 237, 17)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Menge = GUICtrlCreateInput("", 256, 112, 49, 24, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("wie viele Ausbildungsnachweise", 16, 120, 235, 17)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Taetigkeiten = GUICtrlCreateEdit(FileRead($sFilePath), 520, 40, 489, 385)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("anschliessend Drucken", 16, 368, 144, 20)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$AusbNr = GUICtrlCreateInput("", 256, 152, 49, 24, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("ab Ausbildungsnachweisnummer", 16, 160, 235, 17)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Drucken = GUICtrlCreateCheckbox("Drucken", 256, 368, 17, 33)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 8, 408, 177, 41)
$Ende = GUICtrlCreateButton("Beenden", 256, 408, 177, 41)
GUISetState(@SW_SHOW)
_Voreinstellung()
_GUIAuslesen()
_ExcelAnzahl()
MsgBox(0, "Beenden", "Programm wird jetzt beendet")
_Excel_Close($oExcel, Default, True)
#cs
Diese Funktion nimmt aus der GUI die Anzahl der zu erstellenden
Ausbildungsnachweise und erstellt die entsprechende Menge
#ce
Func _ExcelAnzahl()
For $i = 1 To GUICtrlRead($Menge)
_neuesExcelSheet()
_AktivitaetenWoche()
_ExcelBefuellen()
If (GUICtrlRead($Drucken)) = $GUI_CHECKED Then _Drucken($oExcel, $Excel)
$DateTime = @MDAY & @MON & @YEAR & "-" & @HOUR & @MIN & @SEC
_ExcelSaveAsEX($oExcel, "xlsx", @ScriptDir & "\" & $DateTime)
$NewDate = _DateAdd('d', 7, GUICtrlRead($Date1))
GUICtrlSetData($Date1, $NewDate)
GUICtrlSetData($AusbNr, GUICtrlRead($AusbNr) + 1)
GUISetState(@SW_SHOW)
Next
EndFunc ;==>_ExcelAnzahl
#cs
Erstellt einen neuen ExcelSheet
#ce
Func _neuesExcelSheet()
Global $Excel = _Excel_BookOpen($oExcel, $sExcelDatei)
Return
EndFunc ;==>_neuesExcelSheet
#cs
Jedes Feld der GUI wird ausgelesen. Wenn ein ein Feld nicht ausgefüllt wurde kommt
eine entsprechende Meldung
#ce
Func _GUIAuslesen()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $OK
If GUICtrlRead($Menge) = "" Then
MsgBox(0, "Menge?", "Bitte angeben wieviele Ausbilgungsnachweise erstellt werden sollen!")
EndIf
If GUICtrlRead($Taetigkeiten) = "" Then
MsgBox(0, "Taetigkeiten?", "Es sind keine Taetigkeiten vorhanden!")
EndIf
If (GUICtrlRead($Drucken)) <> $GUI_CHECKED Then
MsgBox(0, "Drucken?", "Die Ausbildungsnachweise werden nur gespeichert nicht gedruckt!")
EndIf
_GUIDatenSpeichern()
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
_GUIDatenSpeichern()
_Ende()
Case $msg = $Ende
MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
_GUIDatenSpeichern()
_Ende()
EndSelect
WEnd
EndFunc ;==>_GUIAuslesen
#cs
Stellt zufällig 4-6 Tätigkeiten aus dem GUIEdit zusammen.
entfernt doppelte Einträge aus dem Arbeitstag und stellt sie als ExcelBlock zur Verfügung.
Hintergrund: Die Arbeitswoche beträgt bei uns 5 Arbeitstage, nun soll ja nicht jeder Tag gleich aussehen.
Die Ausbildungsnachweisvorlage der IHK sieht max. 6 Einträge je Arbeitstag vor.
Die Tätigkeiten sollten min. 20 verschiedene beinhalten, da die Zusammenstellung sonst zulange dauern würde.
Tätigkeiten < = 4 führen zwangsweise zu einer Endlosschleife
#ce
Func _AktivitaetenWoche()
For $iTage = 1 To 5 ;Anzahl der Arbeitstage
;
For $i = 0 To $s ;Jeder Eintrag das Array in der Vorherigenschleife wird gelöscht
_ArrayDelete($aPruefen, 0)
Next
$sWert = ""
$s = 0
$q = ""
$iRandom = ""
_FileReadToArray($sFilePath, $aDatei) ;Datei in Array einlesen
_ArrayDelete($aDatei, 0)
$sWert = UBound($aDatei) ;Bestimmen wie gross das Array ist
$s = Random(4, 6, 1) ;$Pruefen soll zwischen 4 und 6 Eintraege haben
;Zufaellig Eintraege in ein neues Array einfuegen
Do
$iRandom = Random(0, $sWert, 1) - 1
If $iRandom = -1 Then $iRandom = 0
$q = $aDatei[$iRandom]
_ArrayDelete($aPruefen, _ArraySearch($aPruefen, $q, 0, 0)) ;Loescht doppelten Eintrag
_ArrayAdd($aPruefen, $q) ;fuegt den neuen Eintrag hinzu
Until UBound($aPruefen) = $s
_NaechstenExcelBlockBerechnen($s, $iTage)
_ExcelBefuellen()
Next
EndFunc ;==>_AktivitaetenWoche
#cs
Berechnet den nächsten ExcelBlock.
Es wird davon ausgegangen, dass es unterschiedliche 6 Arbeiten am Tag gibt.
#ce
Func _NaechstenExcelBlockBerechnen($s, $iTage)
Select ;sollte aus irgend einem Grund $iTage(Arbeitswoche) <1 oder >6 sein wird alles auf 0 gesetzt
Case $iTage < 4
$iZeilenanfang = 0
$iZeilenende = 0
Case $iTage > 6
$iZeilenanfang = 0
$iZeilenende = 0
EndSelect
$iZeilenanfang = $iTage * 9
$iZeilenende = $iZeilenanfang + $s - 1
$sExcelblock = "B" & $iZeilenanfang & ":B" & $iZeilenende
Return $sExcelblock
EndFunc ;==>_NaechstenExcelBlockBerechnen
Func _ExcelBefuellen()
Local $sStyle = "yyyy"
_Excel_RangeWrite($Excel, $Excel.Activesheet, GUICtrlRead($Date1), "F5:F5")
_Excel_RangeWrite($Excel, $Excel.Activesheet, GUICtrlRead($AusbNr), "D5:D5")
_Excel_RangeWrite($Excel, $Excel.Activesheet, $aPruefen, $sExcelblock) ;$sExcelblock) ; der Eintrag von $aPruefen wird in die Exceltabelle geschrieben
EndFunc ;==>_ExcelBefuellen
Func _Voreinstellung()
If FileExists($sINIDatei) Then
GUICtrlSetData($Menge, IniRead($sINIDatei, "Menge", "Menge", "1"))
GUICtrlSetData($AusbNr, IniRead($sINIDatei, "AusbNr", "AusbNr", ""))
GUICtrlSetData($Drucken, IniRead($sINIDatei, "Drucken", "Drucken", $GUI_CHECKED))
GUICtrlSetData($Date1, IniRead($sINIDatei, "Datum", "Datum", ""))
GUISetState(@SW_SHOW)
Else
_GUIDatenSpeichern()
EndIf
EndFunc ;==>_Voreinstellung
Func _GUIDatenSpeichern()
IniWrite($sINIDatei, "Menge", "Menge", GUICtrlRead($Menge))
IniWrite($sINIDatei, "AusbNr", "AusbNr", GUICtrlRead($AusbNr) + 1)
IniWrite($sINIDatei, "Drucken", "Drucken", GUICtrlRead($Drucken))
IniWrite($sINIDatei, "Datum", "Datum", GUICtrlRead($Date1))
FileDelete($sFilePath) ; Soll verhindern, dass eventuell doppelte Daten gespeichert werden
FileWrite($sFilePath, GUICtrlRead($Taetigkeiten))
EndFunc ;==>_GUIDatenSpeichern
;Drucken des aktuellen ExcelSheets
Func _Drucken($oExcel, $Excel)
_Excel_Print($oExcel, $Excel, 1)
EndFunc ;==>_Drucken
#cs
Diese Funktion hab ich mir geklaut :)
Es gab Probleme mit dem speichern der ExcelDateien
An dieser Stelle DANKE TheLuBu
#ce
; Function Name: _ExcelSaveAsEX($oExcel, $Fileformat, $NewFilepath, $Close = True)
; Description: Speichert eine Exceldatei in einem bestimmten Format ab
; Parameter(s): $oExcel Ein Excelobject, wie es von _ExcelbookOpen oder _ExcelbookNew zurückgegeben wird
; $Fileformat Der Dateityp, in dem gespeichert werden soll (xlsx, xlsb, xlsm, xls, csv, txt, prn)
; $NewFilepath Speicherort und Dateiname der neuen Datei
; $Close = True Soll nach dem Speichern das Objekt geschlossen werden? (Standard = True)
; Return Value(s): Erfolg Gibt 1 zurück
; Fehler @error 1 - $oExcel ist kein Objekt
; 2 - $Fileformat ist keine bekannte Dateiendung oder Formatnummer
; Author(s): TheLuBu (LuBu@veytal.com)
; Copyright: TheLuBu (LuBu@veytal.com)
;===============================================================================
Func _ExcelSaveAsEX($oExcel, $Fileformat, $NewFilepath, $Close = False)
If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
Switch $Fileformat
Case 51, "xlsx", ".xlsx"
$Fileformat = 51
Case 50, "xlsb", ".xlsb"
$Fileformat = 50
Case 52, "xlsm", ".xlsm"
$Fileformat = 52
Case 6, "csv", ".csv"
$Fileformat = 6
Case -4158, "txt", ".txt"
$Fileformat = -4158
Case 56, "xls", ".xls"
$Fileformat = 56
Case Else
Return SetError(2, 0, 0)
EndSwitch
With $oExcel
.Application.DisplayAlerts = False ; Schaltet Fehlermeldungen bei Excel aus
.ActiveWorkBook.SaveAs($NewFilepath, $Fileformat)
If $Close Then
.ActiveWorkbook.Close ; Schließt die Tabelle
.Quit ; Schließt das Workbook
EndIf
EndWith
Return 1
EndFunc ;==>_ExcelSaveAsEX
Func _Ende()
While 1
Exit
WEnd
EndFunc ;==>_Ende
Hoffe Ihr könnt mir helfen, aber nachdem was ich gesehen habe wird das schon was werden. 
Liebe Grüße
wuffel_junior90
EDIT: Die Vorlage packe ich am besten nochmal mit rein. Denke dann kann man es besser nachvollziehen.