VBA padverwijzing naar ander werkblad

[ruva]

Beste excelliefhebbers

Het volgende
ik wil dmv een klik op de button naar een ander werkblad gaan maar wel in dezelfde map op dezelfde schijf.
ik heb het forum wel afgezocht maar niets vergelijkbaars kunnen vinden

Wie kan mij helpen???

groetjes Ruva

 

[Timmiesch]

Ruva,

Bedoel je dat je door middel van een button een tabblad in kan voeren en daar naar toe kan gaan? Of echt een werkmap?

 

[ruva]

nee,

ik bedoel echt naar een ander werkblad

 

[ruva]

ach nu zeg ik het nog verkeerd

een andere werkmap

 

[Timmiesch]

Kan je niet gewoon via bestand>openen die werkmap openen?

 

[ruva]

nee dat gaat niet,

Ik heb al een userform in vba, en in ditzelfde userform wil ik een button toevoegen, wanneer men daar op klikt moet hij naar een ander werkblad gaan, echter wel in dezelfde werkmap.

commando is volgens mij "workbook open" maar ga hier toch ergens de fout mee in

Misschien toch nog een beetje onduidelijk maar wie weet

 

[Wigi]

Dim wb As Workbook
Set wb = Workbooks.Open(locatieennaamvanhetbestand)

 

[etri]

Als je het iets uitgebreider wilt dan Wigi's voorbeeld

Option Explicit

Public Sub OpenWerkboek()
    Dim sFName As String
    Dim wb As New Workbook
    
    On Error GoTo ErrorHandler
    
    If Len(ActiveWorkbook.Path) = 0 Then
        sFName = "Test.xls"
    Else
        sFName = ActiveWorkbook.Path & "\Test.xls"
    End If
    
    Set wb = Application.Workbooks.Open(sFName)
    
    Exit Sub
    
ErrorHandler:
    If Err.Number = 1004 Then
        MsgBox "Het bestand " & sFName & " kan niet worden gevonden!"
    Else
        MsgBox "Een fout heeft zich voorgedaan: " & vbCrLf & Err.Description
    End If
End Sub

 

[ruva]

Private Sub CommandButton16_Click()
Dim wb As Workbook
Set wb = Workbooks.Open(C:\ikea 2007\1)
End Sub

Zo staat het er nu in, echter het werkt niet

ikea 2007 is de werkmap
"1" is het excel werkblad

 

[Wigi]

C:\ikea 2007\1

is tekst dus er moeten " " rond staan.