Macro dag & tijd afhankelijk bepaalde data laten ophalen

[Ginner]

Ik heb 4 bronbestanden en wil daaruit afhankelijk van de weekdag (maandag t/m de zondag) en ook nog eens afhankelijk van de tijd (tussen 01:00 uur en 11:00 uur of tussen 11:00 uur en 01:00 uur) bij het openen van het doelbestand, bepaalde data uit een van deze bronbestanden laten ophalen.
Dat zijn volgens mij 14 voorwaarden die gedefinieerd moeten worden. Hoe pak ik dat aan ?

Bij voorbaat dank,
Ginner

 

[Wigi]

Ik heb 4 bronbestanden en wil daaruit afhankelijk van de weekdag (maandag t/m de zondag) en ook nog eens afhankelijk van de tijd (tussen 01:00 uur en 11:00 uur of tussen 11:00 uur en 01:00 uur) bij het openen van het doelbestand, bepaalde data uit een van deze bronbestanden laten ophalen.
Dat zijn volgens mij 14 voorwaarden die gedefinieerd moeten worden. Hoe pak ik dat aan ?

Bij voorbaat dank,
Ginner

Je zal met VBA moeten gaan werken.

Daarbinnen zou je met IF-structuren kunnen werken. Beter lijkt me voor een Select Case structuur te gaan. De verschillende gevallen (cases dus) zijn telkens de dagen van de week. Hiermee kan je wellicht al aan de slag.

Wigi

 

[Demeter]

Ben benieuwt waar je mee gaat komen?
Hou rekening met het feit dat je de dag grens overschrijdt met de periode "11:00 uur en 01:00 uur".

 

[Demeter]

Toch snel iets gepobeerd.
Ben er nog niet geheel uit met de tijden maar zo werkt het wel.

Private Sub Workbook_Open()
Dim tijd, dag As String

tijd = Format(Now, "hh")
dag = Format(Now, "dddd")
    
    If tijd > 0 And tijd < 1 Then
        Select Case dag
            Case Is = "zaterdag"
                'code om je gegeven op te halen komt hier
            Case Is = "zondag"
                MsgBox "Het is vandaag " & dag & ", en de tijd is " & Time
            Case Is = "maandag"
            
            Case Is = "dinsdag"
            
            Case Is = "woensdag"
            
            Case Is = "donderdag"
            
            Case Is = "vrijdag"
            
        End Select
    ElseIf tijd >= 1 And tijd < 11 Then
        Select Case dag
            Case Is = "zaterdag"
                'code om je gegeven op te halen komt hier
            Case Is = "zondag"
                MsgBox "Het is vandaag " & dag & ", en de tijd is " & Time
            Case Is = "maandag"
            
            Case Is = "dinsdag"
            
            Case Is = "woensdag"
            
            Case Is = "donderdag"
            
            Case Is = "vrijdag"
            
        End Select
   Elseif tijd >= 11 And tijd < 24 Then
        Select Case dag
            Case Is = "zaterdag"
                MsgBox "Het is vandaag " & dag & ", en de tijd is " & Time
            Case Is = "zondag"
                'code om je gegeven op te halen komt hier
            Case Is = "maandag"
            
            Case Is = "dinsdag"
            
            Case Is = "woensdag"
            
            Case Is = "donderdag"
            
            Case Is = "vrijdag"
            
        End Select
    End If

End Sub

 

[Ginner]

Ik ga hier al eens mee aan de slag. Kijken waar het(mijn) schip strand.......

Bedankt voor het meedenken.

Ginner