Anders,
Does this help?

Sub Problem()

If Weekday(Date) = 6 Then
Sheets("Stora lev problem").Range("E3") = Weekday(Date + 3)
Sheets("Stora lev problem").Range("L4") = Weekday(Date)
Else
Sheets("Stora lev problem").Range("E3") = Weekday(Date + 1)
Sheets("Stora lev problem").Range("L4") = Weekday(Date)
End If

If Weekday(Date) = 6 Then
Sheets("Stora lev problem").Range("F3") = Weekday(Date + 4)
Sheets("Stora lev problem").Range("L5") = Weekday(Date)
ElseIf Weekday(Date) = 5 Then
Sheets("Stora lev problem").Range("F3") = Weekday(Date + 3)
Sheets("Stora lev problem").Range("L5") = Weekday(Date)
Else
Sheets("Stora lev problem").Range("F3") = Weekday(Date + 2)
Sheets("Stora lev problem").Range("L5") = Weekday(Date)
End If

End Sub

I added brackets around the date functions in your IF statements. It DOES
produce a different result, just not sure if it's what you're looking for.

Regards

Pete
"a94andwi" wrote:


Hello

I tried your code and it seem to work but there are still an error I
can't explain.

Code:
--------------------
If (Weekday(Date = 6)) Then
Sheets("Stora lev problem").Range("E3") = Weekday(Date + 3)
Sheets("Stora lev problem").Range("L4") = Weekday(Date)
Else
Sheets("Stora lev problem").Range("E3") = Weekday(Date + 1)
Sheets("Stora lev problem").Range("L4") = Weekday(Date)

End If


If (Weekday(Date = 6)) Then

Sheets("Stora lev problem").Range("F3") = Weekday(Date + 4)
Sheets("Stora lev problem").Range("L5") = Weekday(Date)

ElseIf (Weekday(Date = 5)) Then
Sheets("Stora lev problem").Range("F3") = Weekday(Date + 3)
Sheets("Stora lev problem").Range("L5") = Weekday(Date)

Else

Sheets("Stora lev problem").Range("F3") = Weekday(Date + 2)
Sheets("Stora lev problem").Range("L5") = Weekday(Date)

End If



--------------------


I added another field and watched what would happen.
In cell E3 it writes 1900-01-01 (The first IF-statement) and 02 in cell
F3 (The second if-statement). Do you know why does the same function
return two different results?

Do you have any idea?

/Anders


--
a94andwi
------------------------------------------------------------------------
a94andwi's Profile: http://www.excelforum.com/member.php...o&userid=21077
View this thread: http://www.excelforum.com/showthread...hreadid=520475