Laufzeitfehler424 objekt erforderlich
13.10.2004 12:38:18
Michael
Wenn ich diesen Code eingebe, dann kommt immer die Meldung Laufzeitfehler '424' Ojekt erforderlich. Was mache ich falsch. Der Pfad müsste richtig sein.
Private Sub UserForm_Initialize()
dim wkbBasis as workbook
dim wkbQuell as workbook
set wkbBasis = activeworkbook
worksbooks.open("C:\Kundennummer.xls")
set wkbQuell = activeworkbook
lngZeil = 1
do
lngZeil = lngZeil+1
Combobox1.addItem wkbQuell.worksheets(1).cells(lngZeil,1)
loop until wkbQuell.worksheets(1).cells(lngZeil,1)=""
wkbQuell.clsoe false
End Sub
Danke für Eure Hilfe
Michael
Anzeige