AutoIT - Wie kann ich einen Buchstaben auslesen

hammer
des ist perfekt hehe. Wie gesagt ich kenn mich da echt kaum mit aus. Des wusste ich zb. nicht wie diese Befehle gehen, oder ob es sie gibt. Google hilft da irg wie auch nur Bedingt weiter. Wenn man weiß wie man es anstellen will kommt man mit Google schon einigermaßen weiter aber wie ich hier zb. die Zahlen oder Buchstaben auslese dazu habe ich lange gesucht und nichts gefunden :D

Vielen Dank dir!

Beim durchschauen bin ich mir noch nicht ganz sicher was bei Zeile 8.9 gemeint ist aber ich denke das finde ich heraus ;)

achso. ja perfekt dann könnte man theoretisch ein ganzes Jahr komplett eintragen lassen, weil die tabellen sind die Monate. Der Dienstplan geht direkt über ein ganzes Jahr
Vielen Dank nochmal!

Eine Frage habe ich jetzt doch noch. Ich würde gerne die Werte mit der Inputbox selber eintragen lassen. Allerdings funktioniert das ganze nicht so wie ich es jetzt habe:

________________________________________________________________________________________________
; Excel öffnen
$objExcel = ObjCreate("Excel.Application")
$objExcel.Visible = true

; Dokument öffnen
$doc = $objExcel.Workbooks.Open("C:\Users\Timo\Dropbox\Arbeit & Schule\Allgäu Airport\Dienstplan 2015.xls")
$Monat = InputBox("Monatsangabe","Bitte geben Sie den gewünschten Monat an! (Beispiel: 1 für Januar oder 2 für Februar)")
; Worksheet 1 einer Variablen zuweisen


$sheet = $doc.Worksheets.Item($Monat)


$Zellenanfang = InputBox("Zellenabfrage","Bitte geben die Anfangszelle Ihres Planes an! (Beispiel: C35)")
$Zellenende = InputBox("Zellenabfrage","Bitte geben die Anfangszelle Ihres Planes an! (Beispiel: AB35)")
; Fürs Beispiel die Zellen A18:E18 nacheinander durchlaufen und ausgeben


for $cell in $sheet.Range("$Zellenanfang:$Zellenende")


msgbox(0,"","Wert der Zelle ist " & $cell.Value)
; je nach Buchstabe etwas machen ...
if $cell.Value = "F" then
_______________________________________________________________________________________________

Bei den größeren Lücken findest du die beiden Stellen. Also $Monat,$Zellenanfang und $Zellenende. Da kommt immer eine Fehlermeldung und den Monat nimmt er zwar aber nicht richtig, dann kommt bei der Zellenabfrage wieder die Fehlermeldung weil keine Tabelle mit dem Namen $Monat existiert. So hab ich es mal verstanden.

Vielen Dank dir! Bester Mann
Das klappt schon mal perfekt jetzt. Falls ich irg wo weitere Probleme haben sollte melde ich mich wieder

Ich war letzte Woche im Urlaub und kann jetzt erst weiter an dem Programm arbeiten sonst wäre mir die Frage schon früher aufgefallen.

Wie kann ich folgendes deklarieren:
In Excel Zelle C ist immer der 1. vom Monat, D ist immer der 2. usw. das ganze geht dann bis zum 31. durch

und noch etwas. Es wird mit einer MsgBox abgefragt, welcher Monat genommen wird. Diesen muss ich ebenfalls weiter verwenden. Für die Datumsangabe.

So sieht es jetzt aus. Ganz unten fehlen mir die beiden sachen wie ich das Datum angeben kann, der Rest dürfte einfach sein.

_________________________________________________________________________________________________________
func _stop()
Exit
endFunc
HotKeySet("{Esc}","_stop") ;Ende mit Escape

; Excel öffnen
$objExcel = ObjCreate("Excel.Application")
$objExcel.Visible = true

; Dokument öffnen
$doc = $objExcel.Workbooks.Open("\\apa-file\Daten\98 - Alle\Dienstpläne\Aviation\Dienstplan 2015.xls")
$Monat = InputBox("Monatsangabe","Bitte geben Sie den gewünschten Monat an! (Beispiel: 1 für Januar oder 2 für Februar)")
; Worksheet 1 einer Variablen zuweisen
$sheet = $doc.Worksheets.Item(Number($Monat))

$Zellenanfang = InputBox("Zellenabfrage","Bitte geben den ersten Tag Ihres Planes an! (Beispiel: C35)")
$Zellenende = InputBox("Zellenabfrage","Bitte geben den letzten Tag Ihres Planes an! (Beispiel: AB35)")

;Google Kallender öffnen
$programm = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShellExecute($programm,"www.google.com/calendar")
WinWaitActive("Google Kalender - Google Chrome")
$titel = WinGetTitle("Google Kalender - Google Chrome")
WinMove("Google Kalender - Google Chrome","",0,0,1936, 1066) ; Platzieren
MsgBox(0,"Google Chrome wird geöffnet.","Bitte loggen Sie sich in ihr Google Kalender Konto ein. Klicken Sie dann erst auf OK!")


; Fürs Beispiel die Zellen A18:E18 nacheinander durchlaufen und ausgeben
for $cell in $sheet.Range($Zellenanfang & ":" & $Zellenende)
;msgbox(0,"","Wert der Zelle ist " & $cell.Value)
;je nach Buchstabe etwas machen ...
;if $cell.Value = "F" then
;msgbox(0,"","Zeit für F = 05:00 14:00")
;Endif
if $cell.value = "F" Then
MouseClick("left",102, 228)
Send("Frühschicht")
Next
_________________________________________________________________________________________________________

Hab doch noch eine andere Lösung gefunden allerdings muss man jetzt beim 1. vom Monat immer anfangen, sonst wird komplett alles verschoben :D

Vielleicht findet sich ja doch noch ne Möglichkeit um die Zelle C dem 1. vom Monat zuzuweisen^^

Hier meine Lösung:
_______________________________________________________________________________________________
func _stop()
Exit
endFunc
HotKeySet("{Esc}","_stop") ;Ende mit Escape

; Excel öffnen
$objExcel = ObjCreate("Excel.Application")
$objExcel.Visible = true

; Dokument öffnen
$doc = $objExcel.Workbooks.Open("\\apa-file\Daten\98 - Alle\Dienstpläne\Aviation\Dienstplan 2015.xls")
$Monat = InputBox("Monatsangabe","Bitte geben Sie den gewünschten Monat an! (Beispiel: 1 für Januar oder 2 für Februar)")
; Worksheet 1 einer Variablen zuweisen
$sheet = $doc.Worksheets.Item(Number($Monat))

$Zellenanfang = InputBox("Zellenabfrage","Bitte geben den ersten Tag Ihres Planes an! (Beispiel: C35) WICHTIG: Bitte immer beim 1. des Monats anfangen!")
$Zellenende = InputBox("Zellenabfrage","Bitte geben den letzten Tag Ihres Planes an! (Beispiel: AB35)")

;Google Kallender öffnen
$programm = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShellExecute($programm,"www.google.com/calendar")
WinWaitActive("Google Kalender - Google Chrome")
$titel = WinGetTitle("Google Kalender - Google Chrome")
WinMove("Google Kalender - Google Chrome","",0,0,1936, 1066) ; Platzieren
MsgBox(0,"Google Chrome wird geöffnet.","Bitte loggen Sie sich in ihr Google Kalender Konto ein. Klicken Sie dann erst auf OK!")

$x=0

for $cell in $sheet.Range($Zellenanfang & ":" & $Zellenende)
;msgbox(0,"","Wert der Zelle ist " & $cell.Value)
;je nach Buchstabe etwas machen ...
;if $cell.Value = "F" then
;msgbox(0,"","Zeit für F = 05:00 14:00")
;Endif
; Fürs Beispiel die Zellen A18:E18 nacheinander durchlaufen und ausgeben
$Fa = "5:00"
$Fe = "14:00"
$Sa = "14:00"
$Se = "23:00"
;Zähler für die Wochentage
$x=$x+1

if $cell.value = "F" Then
MouseClick("left",102, 228)
Sleep(500)
Send("Frühschicht")
Send("{TAB}")
Send($x & "." & $Monat & ".2015") ;Datum
Send("{TAB}")
Send($Fa) ;Von
Send("{TAB}")
Send($Fe) ;Bis
MouseClick("left",156, 178) ;Speichern
EndIf
if $cell.value = "S" Then
MouseClick("left",102, 228)
Sleep(500)
Send("Spätschicht")
Send("{TAB}")
Send($x & "." & $Monat & ".2015") ;Datum
Send("{TAB}")
Send($Sa) ;Von
Send("{TAB}")
Send($Se) ;Bis
MouseClick("left",156, 178) ;Speichern
EndIf
Next
_________________________________________________________________________________________________________