Ander werksheet openen via VBA

[Verwijderd]

Ik wil via onderstaande funktie in een Macro een ander werkblad te openen.

If Range("A1").Value = 1 Then
Workbooks("Berekening 2005.xls").Activate
Else
Workbooks("Berekening 2006.xls").Activate
End if
Maar hij loopt fout op Workbooks("Berekening 2005.xls").Activate

Kan iemand mij helpen ????

Michel

[ Voor 25% gewijzigd door Verwijderd op 29-11-2005 17:16 ]

[sebastius]

activate is een functie om een bestaand, reeds geopend, werkboek naar voren te halen.

Je zoekt de functie workbooks.open ("bestandnaam")

[Verwijderd]

Dank je Sebastius

Ga nu naar huis en het gelijk uitproberen.

Doei

[Gulf_5]

weet niet of je er inmiddels al uit was: maar met deze code zou je iig een eind moeten kunnen komen als ik je probleem goed heb begrepen.

code:

sub openwerkboek()

Cells("A1").Select
If Activecell.Value = 1 Then
Workbooks.Open Filename:= "C:\Hoofddir\Subdir\Nogeensubdir\bestand1.xls"
Else
Workbooks.Open Filename:= "C:\etcetera.xls
End If

End sub

[ Voor 9% gewijzigd door Gulf_5 op 01-12-2005 08:57 ]