Waarde bij weekdag invullen

[tcgjohn]

Met deze code probeer ik de waarde "10\20" etc in veld F5 te krijgen op basis van de weekdag welke staat in H2. Wat moet of kan ik het beste veranderen.

Sub WaardeWeekdag()
Dim MijnDatum, MijnWeekDag
MijnDatum = Range("H2") ' Een datum toewijzen. Datumnotatie: dddd d mmm yyyy
MijnWeekdag = Weekday(MijnDatum) ' MijnWeekdag bevat dagnummer omdat
' MijnDatum een weekdag weergeeft.

Select Case MyWeekDay
Case WeekdayName(2)
Range("F5").Value = "10\20"
Case WeekdayName(3)
Range("F5").Value = "5\10"
Case WeekdayName(4)
Range("F5").Value = "10\20"
Case WeekdayName(5)
Range("F5").Value = "5\10"
Case WeekdayName(6)
Range("F5").Value = "5\10"
Case WeekdayName(7)
Range("F5").Value = "5\10"
Case WeekdayName(1)
Range("F5").Value = "5\10"
End Select
End Sub

Alvast bedankt
John

 

[Wigi]

John, aan die code mangelt heel wat hoor...

Een gewone If... End If is al genoeg hoor.

Zet ook eens code tags: selecteer je code en klik op het hekje als je bericht aanpast.

Wigi

 

[Wigi]

Sub WaardeWeekdag()
    Dim MijnDatum As Date, MijnWeekDag As Integer
    
    MijnDatum = Range("H2").Value
    MijnWeekDag = WorksheetFunction.Weekday(MijnDatum, 2)

    If MijnWeekDag = 2 Or MijnWeekDag = 4 Then
        Range("F5").Value = "10\20"
    Else
        Range("F5").Value = "5\10"
    End If
End Sub

Wigi

 

[tcgjohn]

waarde in veld invullen

Ik ga verder met experimenten en zal e.e.a. nog onderzoeken

 

[Wigi]

Ik ga verder met experimenten en zal e.e.a. nog onderzoeken

Vooral de verschillen tussen jouw en mijn code onderzoeken.

Een Select Case had trouwens ook gewerkt ipv de If. Probeer die misschien zelf eens uit te werken en zie of het lukt.

 

[tcgjohn]

Ik ga er morgen mee aan de slag.
Alvast bedankt voor het leerproces..
John