Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

füllen eines Steuerelements beim Öffnen von sheet

Forumthread: füllen eines Steuerelements beim Öffnen von sheet

füllen eines Steuerelements beim Öffnen von sheet
11.03.2004 14:17:19
Eva
Hallo,
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: füllen eines Steuerelements beim Öffnen von sheet
11.03.2004 14:31:27
Sven
Option Explicit

Private Sub workbook_open()
Dim ws As Worksheet, z As Long
Set ws = Worksheets("IFD0401Intranet")
z = 5
Do Until ws.Cells(z, 3) = "ENDE"
If Len(CStr(ws.Cells(z, 3))) größer 0 Then ComboBox1.AddItem ws.Cells(z, 3)
z = z + 1
Loop
End Sub

größer durch das Zeichen ersetzen
Sven
Anzeige
AW: füllen eines Steuerelements beim Öffnen von sheet
11.03.2004 14:44:10
Eva
und wieder gibt es einen Fehler: "objekt erforderlich"
Dim ws As Worksheet, z As Long
Set ws = Worksheets("IFD0401Intranet")
z = 5
Do Until ws.Cells(z, 3) = "ENDE"
If Len(CStr(ActiveWorkbook.Worksheets("IFD0401Intranet").Cells(z, 3))) > 0 Then ComboBox1.AddItem (ActiveWorkbook.Worksheets("IFD0401Intranet").Cells(z, 3))
z = z + 1
Loop
Woran könnte es liegen?
Eva
Anzeige
AW: füllen eines Steuerelements beim Öffnen von sheet
11.03.2004 14:57:59
Sven
Schreib noch dazu z.B. userform1.combobox1
Sven
AW: füllen eines Steuerelements beim Öffnen von sheet
11.03.2004 14:33:20
harry
hi eva,
versuch mal
Then Userform1(oder wie sie eben heisst).ComboBox1.AddItem
liebe grüße,
harry

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige