Im ArrayDisplay ersichtlich, im GuiCreateCombo nicht, Bitte um Hilfe.

[autoit]

#include<array.au3>
#include<ExcelCOM_UDF.au3>
;#include<Excel.au3>
Opt('MustDeclareVars', 1)

[/autoit] [autoit][/autoit] [autoit]

ArrayMuster()
Func ArrayMuster()

[/autoit] [autoit][/autoit] [autoit]

Global $aIni, $nMsg, $Exit, $ab, $Offerte, $Rechnung, $Exit
Global $xls, $xlsdir, $app, $zelle, $zeile, $open, $MengenCombo, $Sektionen
Local $aFileName, $aArray1, $oExcel
$aFileName = ("C:\Dokumente und Einstellungen\Administrator\Desktop\Script\Fai\file.xls")
$oExcel = _ExcelBookOpen($aFileName) ;Open book, make it not visible
$oExcel.Visible = 0

[/autoit] [autoit][/autoit] [autoit]

$aArray1 = _ExcelReadArray($oExcel, 2, 4, 1300, 1) ;Direction is Vertical
_ArrayDisplay($aArray1, "Vertical")
;Global $MengenCombo[2]
;Global $Sektionen[2] = ["Name", "Firma"]
;MsgBox(1,"", & GUICtrlRead($aArray1))

[/autoit] [autoit][/autoit] [autoit]

GUICreate("GUI", 250, 240)
GUICtrlCreateLabel("Firma ", 60, 10)
$aArray1 = GUICtrlCreateCombo("", 60, 30)
GUICtrlCreateLabel("Firma ", 60, 10)
;$MengenCombo[0] = GUICtrlCreateCombo("", 60, 30)
GUICtrlCreateLabel("Name ", 60, 70)
;$MengenCombo[1] = GUICtrlCreateCombo("", 60, 88)

[/autoit] [autoit][/autoit] [autoit]

$ab = GUICtrlCreateButton("Abestätigung",70, 130)
$Offerte = GUICtrlCreateButton("Offerte",10, 130)
$Rechnung = GUICtrlCreateButton("Rechnung",160, 130)
$Exit = GUICtrlCreateButton("Exit",60, 200)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists($aFileName) Then ; Neu zur Überprüfung hinzu
MsgBox(0, "Hinweis:", "XLS-Datei existiert nicht.")
Exit
EndIf
For $i = 0 To UBound($aArray1) - 1
$aIni = IniReadSection($aFileName, $aArray1[$i])
For $j = 1 To $aIni[0][0]
GUICtrlSetData($aArray1[$i], $aIni[$j][1])
Next
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
;MsgBox(1,"Auswahl", GUICtrlRead($MengenCombo[0])&GUICtrlRead($MengenCombo[1])& _
; GUICtrlRead($MengenCombo[2])&GUICtrlRead($MengenCombo[3]))
Exit
Case $Rechnung
Run("C:\Program Files\Microsoft Office\Office12\excel")
Exit
Case $Offerte
;$xls = ShellExecute("C:\temp\Script\OffertenvorlageNEU.xls")
$xlsdir = "C:\temp\Script\OffertenvorlageNEU.xls"
;Excel öffnen
$app = ObjCreate("Excel.application")
$app.Visible = true
$open = $app.Workbooks.Open ($xlsdir)
;in Excel schreiben
$app.Cells(10,4).Value = ""&GUICtrlRead($MengenCombo[0])&""
$app.Cells(11,4).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(12,4).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(10,7).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(10,8).Value = ""&GUICtrlRead($MengenCombo[1])&""
$zelle=6
$zeile=1
$app.Cells($zeile,$zelle).Value = "Zelle6Zeile1"
Exit
EndSwitch
WEnd
EndFunc

[/autoit]

[autoit]

#include <Array.au3>
Opt('MustDeclareVars', 1)

ArrayMuster()
Func ArrayMuster()
Dim $avArray[20]
; Populate test array.
For $i = 0 to UBound( $avArray ) - 1
$avArray[$i] = Random( -20000, 20000, 1)
Next
_ArrayDisplay($avArray, "$avArray")
MsgBox(0, "_ArrayToString() getting $avArray items 1 to 7", _ArrayToString($avArray, @TAB, 1, 7))
GUICreate("GUI", 250, 240)
GUICtrlCreateLabel("Firma ", 60, 10)
$avArray = GUICtrlCreateCombo("", 60, 30)
GUISetState()
sleep (10000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
;MsgBox(1,"Auswahl", GUICtrlRead($MengenCombo[0])&GUICtrlRead($MengenCombo[1])& _
; GUICtrlRead($MengenCombo[2])&GUICtrlRead($MengenCombo[3]))
EndSwitch
WEnd
EndFunc

[/autoit]