VBA het subscript valt buiten het bereik

[Nielsvw]

Hallo iedereen,
ik heb op school een kleine basis gehad van VBA, dus mijn kennis is niet erg groot. Ik zit met het volgende probleem (wel sterk vereenvoudigd, want het probleem stelt zich enkel bij 1 lijntje):

Public bestand as Variant

Private Sub cmdBrowse_Click()
bestand = Application.GetOpenFilename
If bestand = False Then
    MsgBox "There is no file selected.", vbCritical, "Warning"
End If
End Sub

Private Sub cmdInput_Click()
Workbooks.Open bestand
[COLOR="#FF0000"]Cells(2, 2).Value = Workbooks(bestand).Worksheets(1).Cells(2, 2).Value[/COLOR]
End Sub

Telkens geeft hij daar de fout, maar ik snap maar niet wat er fout aan is? Hij zegt "het subscript valt buiten het bereik"
Verder wil ik in mijn programma ook nog zien welke cellen leeg zijn in dat andere bestand, dus het is niet enkel kopiëren dat ik wil doen. Dus ik gebruik telkens Workbooks(bestand).Worksheets(1).Cells(2, 2).Value om dan bvb te bepalen wat de lege cellen zijn, maar dat lukt dus niet..

Kan iemand me aub verder helpen?

 

[snb]

Zoek eens in de hulpbestanden het verschil tussen file.name en file.fullname
Een kijk vervolgens eens naar de eigenschappen van de het object 'workbook' en op welke wijze je een workbook kunt 'aanroepen'

 

[Nielsvw]

Bedankt, er was inderdaad iets fout met Workbook(bestand). Ik had enkel de bestandsnaam nodig en niet het hele path.

 

[snb]

Ex act !