[excel] subscript buiten bereik

[Tom-my]

Ik probeer vanuit een xls sheet iets over te pompen naar een andere, check de volgende code:

code:

Private Sub cmdKnopje_Click()
Dim mijncel As Range
Dim artikel, prijs As String

Set mijncel = ActiveCell

prijs = mijncel.Cells(, 6).Value
artikel = mijncel.Value

  kbon = "C:\docs\bon.xls"
  Workbooks.Open kbon
  'stel product in
  Workbooks(kbon).workheets("Blad1").Range("b20").Value = artikel
   
End Sub

Elke keer blijft de debugger hangen op regel 13 met "subscript valt buiten bereik" ik snap het niet meer, wat doe ik hier verkeerd?

[P_de_B]

Blad1 of B20 bestaat niet, dat is de uitleg van de foutmelding. Weet je zeker dat ze beiden bestaan, is de spelling goed?

[Vozze]

code:

Workbooks(kbon).workheets("Blad1").Range("b20").Value = artikel

Maak daar even

code:

Workbooks(kbon).worksheets("Blad1").Range("b20").Value = artikel

van.

Dus een s bij .worksheets.

[Tom-my]

hmm dat kan zijn dat ik die bij het plaatsen van het bericht wat heb aangepast. Maar ik zal is kijken als ik weer thuis ben. Bedankt voor de reply's.

[Tom-my]

*update*

dat staat allemaal goed, maar hij wil gewoon dat workbook niet gebruiken ofzo (hij wordt wel geopend bij uitvoeren van

workbooks.open kbon

maar zodra ik bijv
workbooks(kbon).activate doe, krijg ik al een subscript buiten bereik

update:

nevermind, ik gaf de complete unc path op alszijnde de naam van de workbook, dat mag dus niet, duh me.

btw soz voor het schopje, mijn welgemeende excusez

[ Voor 28% gewijzigd door Tom-my op 21-12-2004 22:10 ]