Tabblad selecteren dmv dag

[danny147]

Beste,

Ik probeer een tabblad te selecteren dmv van dag

Naam tabblad zijn:

Ma Vm + Dag
Ma Nm
Di Vm + Dag
Di Nm
enz...

Mijn stukje code begint als volgt:

Sub overschrijven_orders()

Dim MyTime As Date
Dim Myday As String

MyTime = Format(Now, "hh:mm")
Myday = Format(Date, "ddd")

If MyTime < "14:00" Then
    Sheets("Myday" & " " & "VM + Dag").Select
Else
    Sheets("Myday" & " " & "NM").Select
End If

 

[SjonR]

Danny, Plaats eens een voorbeeldbestand. Een code moet je kunnen testen en als de helpers hier zelf alles na moeten bouwen gaat de lol er een beetje af ben ik bang.

Gr.

Sjon

 

[danny147]

Beste SjonR,

Denk dat ik het al gevonden heb

Sub overschrijven_orders()

Dim MyTime As Date
Dim Myday As String

MyTime = Format(Now, "hh:mm")
Myday = Format(Date, "ddd")

If MyTime < "14:00" Then
    Sheets([COLOR="#FF0000"]Myday[/COLOR] & " " & "VM + Dag").Select
Else
    Sheets([COLOR="#FF0000"]Myday[/COLOR] & " " & "NM").Select
End If

 

[VenA]

Zonder variabelen kan je die fout niet maken

Sub VenA()
  Sheets(Format(Date, "ddd") & IIf(Format(Now, "hh:mm") < "14:00", " VM + Dag", " NM")).Select
End Sub