Kundenverwaltung Combo mit Exel befüllen und suche Datensatz

Hallo Leute,

bin ganz neu hier und befasse mich erst seit kurzem mit Skripten. Versuche seit Tagen etwas zu lösen und schaffe es nicht. Daher bitte ich euch um Hilfe.

Code: ComboBox.au3

Excel: DB.zip

Problem 1:

Es wird mir mit dieser Zeile immer nur Sheet 1 aktiv

$aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.Usedrange.Columns("G:G"), 1, False)

derzeitige Lösung:

Nun habe ich mir wie folgt geholfen - denke das ist sicher nicht korrekt

$oWorkbook.Sheets(4).Activate

Problem 2:

In der $Combo_Suche wird mir auch die erste Zeile (Überschrift) mitgeliefert. Bekomme die Überschrift nicht weg.

Was ist mein Ziel:

Mit der $Combo_Suche möchte ich einen Nachnamen auswählen der anschließend alle Werte aus dem Excel Datensatz ausließt und die Felder im Formular gefüllt. Kann anschließend Änderungen im Formular durchführen und durch den Button Speichern werden die Änderungen im Excel aktualisieren. Vor dem Seichern wird überprüft ob die Felder SV-Nummer, Nachname befüllt wurden - wenn nicht wird ein Hinweis gegeben das Daten fehlen.

Möchte mich im Voraus für die Hilfe bedanken und hoffe das ich bei meinem ersten Eintrag alle richtig gemacht habe.

LG Alexander

Hallo Walter,

danke für deine Unterstützung werde das gleich probieren.

Was mein 2. Problem betrifft wird mir aus der Tabelle "Kunde" Zelle G1 also die eingetragne Überschift "Nachname" in der ComboBox angezeigt. Würde gerne die Werte erst ab G2 auslesen.

Danke

Hab es mit deiner Codezeile versucht - leinder kein erfolg. Hab noch eine andere getestet $aResult = _Excel_RangeRead($oWorkbook,$oWorkbook.Worksheets(4),"G:G", 1, False) leider auch damit kein erfolg.

Gerade versucht Excel geht ganz kurz auf wieder zu und weiter passiert nichts.

Code Änderung:

;$oWorkbook.Sheets(4).Activate ;krücke es wird die Tabelle 4 der Arbeitsmappe aktiv gesetzt

;$aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.Usedrange.Columns("G:G"), 1, False) ;es werden aus der Tabelle Spalte F Werte ausgelesen

$aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.Sheets(4).UsedRange.Columns("G:G"), 1, False)

meine Krücke natürlich auskommentiert. Beim Ausführen des Code öffnet sich wieder ganz kurz Excel und schließt gleich wieder, weiter passiert nichts.

eine MsgBox öffnet sich nicht, jedoch wird unten in der Console folgendes angezeigt:

"E:\Alex\Documents\Projekte\EDV\AutoIT\ComboBox.au3" (13) : ==> Variable must be of type "Object".:

$aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.Sheets(4).UsedRange.Columns("G:G"), 1, False)

$aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook^ ERROR