füllen eines Steuerelements beim Öffnen von sheet
11.03.2004 14:17:19
Eva
mit dem untenstehenden Makro gibt mir excel beim öffnen immer einen Fehler an.
Ich habe das Steuerelement vorher per CommandButton angesprochen und alles funktionierte noch, aber mit dem Wunsch nach automatischen Befüllen der Combobox beim Öffnen des excel files, läuft es nicht. Warum?
Private Sub workbook_open()
s = 3
z = 5
Do Until ActiveWorkbook.Worksheets("IFD0401Intranet").Cells(z, 3) = "ENDE"
'If Not IsNull(Cells(z, 3)) And Len(CStr(Cells(z, 3))) > 0 Then ComboBox1.AddItem (ActiveWorkbook.Worksheets("IFD0401Intranet").Cells(z, 3))
If Len(CStr(ActiveWorkbook.Worksheets("IFD0401Intranet").Cells(z, 3))) > 0 Then ComboBox1.AddItem (ActiveWorkbook.Worksheets("IFD0401Intranet").Cells(z, 3))
z = z + 1
Loop
End Sub
Mit Dank, Eva