VBA - Hvis dato forskel < 30 dage

Sub test1()
If DateDiff("d", Range("E5"), Range("B32")) > 30 Then
    Range("B34") = ""
    Else
    Range("B34").Formula = "=DATE(YEAR(E5),MONTH(E5),DAY(E5)+8)"
End If
End Sub

måske >=30

Bak > at hvis forskellen mellem datoen i cellerne E5 og B32 er mindre end 30 dage, så skal celle B34 være tom,

Rigtigt kabbak :-)

Sub test1()
If DateDiff("d", [E5], [B32]) < 30 Then
    [B34] = ""
    Else
    [B34].Formula = "=DATE(YEAR(E5),MONTH(E5),DAY(E5)+8)"
End If
End Sub

eller et absolut check (begge veje)

Sub test1()
If Abs(DateDiff("d", [E5], [B32])) < 30 Then
    [B34] = ""
    Else
    [B34].Formula = "=DATE(YEAR(E5),MONTH(E5),DAY(E5)+8)"
End If
End Sub

Hurra! Du er sgu en knag, bak! ;-)
Og jeg er altså ikke dummere, end jeg selv regnede </> ud... ;-)

Hit med et svar...

Og der kommer lige et tillægsspørgsmål:

I en anden celle har jeg også en dato (for en betalingsfrist) der skal være 30 dage før en anden dato (startdato), MEN den må (selvfølgelig) ikke være tidligere end dags dato.
Faktisk må den tidligst være i morgen. ;-)

=HVIS(DATO.FORSKEL(IDAG();A12;"d")>30;A12-30;IDAG()+1)

Mange tak! ;-)