automatisch naar tabblad van huidige jaar toe gaan

[caffie]

ik wil bij het openen van excel naar het juiste tabblad gaan en naar de regel met de datum van vandaag

ik heb juis tabbladen vanaf 2008 tot 2017
in kolom e staan vanaf regel 6 de datums naar beneden



Private Sub workbook_open()

DatumAlsGetal = Date - CDate("1-Jan")
Worksheets("2016").Select
Cells(DatumAlsGetal + 6, "B").Select
End Sub

ik kom dus nu wel op de juiste regel maar nog niet in het juiste tabblad



de regel
Worksheets("2016").Select
werkt dus niet
en "2016" zou vervangen moeten worden door jaar(date) of zo iets


maar ik kom er niet door heen

 

[ExcelAmateur]

Probeer het eens met,
Application.goto sheets("2016")

 

[caffie]

dit zou wel kunnen werken maar dan moet ik het elk jaar aanpassen

ik zoek naar zo iets als
waarin "2016" vervangen wordt door jaar(date) of zo iets

zodat het elk jaar naar het juiste tabblad jgaat

 

[ExcelAmateur]

Misschien met,
Sheets(year(now)

 

[caffie]

Sheets(year(now).select

geprobeert maar werkt niet

 

[ExcelAmateur]

Heb je dit ook geprobeerd?

Applicatiebeheerder.goto sheets(year(now())

 

[caffie]

werkt ook niet

 

[ExcelAmateur]

Kijk anders even hier,
http://www.helpmij.nl/forum/showthread.php/780807-bij-openen-workbook-bepaald-blad-selecteren-adhv-waarde?p=5015025&highlight=Openen+het+juiste+tabblad#post5015025

 

[caffie]

beiden geprobeert

Sheets("Me.Value.txtJaar").Activate
Application.Goto Sheets(txtjaar.Value).Cells(1)

maar werkt niet
deze persoon heef aan de opgegeven string gesleutel maar heeft zijn aanpassingen niet meer gedeeld.

 

[VenA]

Probeer het zo eens.

Application.Goto Sheets(CStr(Year(Date))).Cells(Date - CDate("1-Jan") + 6, 2)

 

[ExcelAmateur]

Dit vond ik op het www,
Getest en het werkte bij mij.

Private Sub Workbook_Open()
  Dim wks As Worksheet

    For Each wks In ThisWorkbook.Worksheets
        If wks.Name = Format(Year(Now())) Then
            wks.Activate
        End If
    Next

End Sub

 

[caffie]

Probeer het zo eens.

Application.Goto Sheets(CStr(Year(Date))).Cells(Date - CDate("1-Jan") + 6, 2)

Alles in 1 regel en het werkt perfect

 

[caffie]

Dit vond ik op het www,
Getest en het werkte bij mij.

Private Sub Workbook_Open()
  Dim wks As Worksheet

    For Each wks In ThisWorkbook.Worksheets
        If wks.Name = Format(Year(Now())) Then
            wks.Activate
        End If
    Next

End Sub

ik heb de oplossing van Vena gebruikt
Toch bedankt voor het mee denken

 

[ExcelAmateur]

VenA het werkt inderdaad perfect, had niet anders verwacht. :thumb:

Zet de vraag nog even als opgelost, dank u.