ListIndex bei Combobox
05.08.2005 08:44:35
tim
Kurze Frage: Ich lese mit dem untenstehenden Code Daten in die Combobox ein. Das funzt auch einwandfrei. Nun möchte ich aber, dass beim öffnen der Userform die Combobox direkt einen Wert aufweist und nicht leer ist. Und zwar sollte es der Wert in der vierten Zeile der Combobox sein. Geht das? Mit Listindex = 4 kommt Fehlermeldung 380 ?!
Private Sub UserForm_Initialize()
Dim r As Integer
Dim MyExcel As Object
Set MyExcel = CreateObject("Excel.Application")
'Zum öffnen der Excel-Datei:
MyExcel.Workbooks.Open FileName:="Y:\Daten.xls"
For r = 1 To 45 'Zeile 1 bis 45
'Zum Hinzufügen der Namen in das Textfeld:
ComboBox6.AddItem MyExcel.Sheets("Tabelle1").Cells(r, 1).Text
ComboBox6.ListIndex = 4
Next
MyExcel.Quit
Set MyExcel = Nothing
End Sub
Ach ja, kann man eine Userform nach schliessen mit userform.hide auch von den Daten entleeren à la Userform.clear oder so?
vielen Dank und Gruss
Anzeige