Workbooks.Worksheets Mag Niet?

[NogGeenGuru]

Beste forumleden,

Ik heb tot nu toe de volgende code:

Public Sub OphalenGegevens()
Dim vPath As Variant
vPath = Application.GetOpenFilename()
If vPath <> False Then
    Dim DB As Workbook
    Set DB = Workbooks.Open(vPath)
    Dim WN As Worksheet
    Set WN = DB.Worksheets("Werknemer")
    
    Aantalregels = DB.WN.Cells(Rows.Count, 1).End(xlUp).Row

End If
End Sub

Bij Aantalregels gaat het fout.
"De eigenschap wordt niet ondersteund door het object" is de foutmelding die ik hieruit krijg.

normaal gesproken gebruik ik Workbooks("Naam").Worksheets("Naam").<what ever>
Wat is de juiste syntax voor het gebruik van gedeclareerde workbooks en worksheets?

 

[lam201]

Hi,

omdat je WN al benoemd heb als worksheet van workbook DB kan je deze regel als volgt aanpassen:

Aantalregels = WN.Cells(Rows.Count, 1).End(xlUp).Row

Zonder DB. dus.


Lambert

 

[NogGeenGuru]

haha hier heb ik mij dus al een halfuur gek over zitten maken, terwijl het zo logisch is.
Ik hoef DB niet meer aan te geven omdat WN al gedeclareerd staat als zijnde onderdeel van DB.

Dankjewel :thumb: