ListIndex als Rückgabewert
05.06.2004 20:52:46
Thomas
Ich brauch wieder einmal die Hilfe von Euch Profis.
In einer UserForm habe ich mehrere Listenfelder, welche beim Initialisieren mit der Funktion .AddItem aufgefüllt werden.
Die ComboBox7 wird erst angezeigt, wenn die ComboBox1 auf "Krone" oder "Rundholz" geändert wird. Der Standartwert der ComboBox7 ist "4-6 m". Beim Klick auf Start werden die ListIndexe im ExcelSheet ausgegeben. Klappt alles Wunderbar, nur die ComboBox7 wird als leer angegeben. Ich vermute, dass diese durch das spätere sichtbarmachen nicht initialisiert wird. Erst wenn ich dann in der ComboBox7 einen Wert anklicke funzt es.
Worksheets("Eingabe").Range("L82").Value = frm.ComboBox1.ListIndex + 1
Worksheets("Eingabe").Range("L83").Value = frm.ComboBox2.ListIndex + 1
Worksheets("Eingabe").Range("L84").Value = frm.ComboBox3.ListIndex + 1
Worksheets("Eingabe").Range("L85").Value = frm.ComboBox7.ListIndex + 1
Kann mir da jemand Helfen? Ich wäre sehr dankbar !
Gruss
Thomas