naam van de dag

[Gerald Baalhuis]

Ik probeer een werkblad te maken met tabbladen maandag t/m zaterdag. Per dag dienen gegevens ingevuld te worden.
Nu is het met VB vast mogelijk om automtisch naaar het tabblad maandag te gaan als het maandag is enz.
Als ik echter =dag(nu()) invul in een cel met formaat dddd, dan krijg ik vandaag (woensdag) niet woensdag te zien maar donderdag??? Mis ik hier iets of heeft e.e.a. te maken met het feit wanneer de week begint (zondag of maandag)? Als ik nl. het standaard celformaat gebruik dan krijg ik het cijfer 5, hetgeen zou betekenen dat de week met zaterdag begint??

Weet iemand waarom dit gebeurd en wellicht ook de VB code om dagelijks (meerdere malen) naar het juiste tabblad te gaan ?

Alvast bedankt voor jullie inzet!

Gerald

 

[rg027]

probeer eens de formule =vandaag()

 

[Wigi]

Gebruik als formule:

=vandaag()

opgemaakt als ddd


Wigi

 

[Wigi]

Voor de macro:

Private Sub Workbook_Open()
Dim c As Worksheet
For Each c In Worksheets
    If c.Name = Format(Day(today), "dddd") Then
        c.Activate
    End If
    If c = Sheets(Sheets.Count) Then
        Sheets(1).Activate
        MsgBox "Het werkblad met de dag van vandaag werd niet gevonden."
    End If
Next
End Sub

Zet dit in ThisWorkbook, het is trouwens een event.

Wigi

 

[Gerald Baalhuis]

error 428

Wigi,

Als ik het excel bestand open krijg ik deze melding (Excel 2000)
error 438 enz.

foutopsporing gaat dan naar:
If c = Sheets(Sheets.Count) Then

enig idee?

Gerald

 

[Wigi]

Raar, bij het testen daarstraks had ik dit probleem niet. En nu ook wel.

Anyway, gebruik dit dan maar:

Private Sub Workbook_Open()
Dim c As Worksheet
For Each c In Worksheets
    If c.Name = Format(Now, "dddd") Then
        c.Activate
        Exit Sub
    End If
Next
    Sheets(1).Activate
    MsgBox "Het werkblad met de dag van vandaag werd niet gevonden."
End Sub

OK nu?

Wigi

 

[Gerald Baalhuis]

Het werkt!

Wigi, bedankt maar weer! Excuses voor de later reactie op jjouw reactie!

Gerald