Find det aktuelle datointerval

Ingen med et bud??

Jeg prøver lige at hæve indsatsen til 60 p.

Måske - hvor skal dato-intervallet placeres - kun vises?

Bare i en variabel.
Hvis du kan udarbejde et eksempel med en msgbox er det fint.

>>supertekst
Tror du du kan løse den?

Skal forsøge...

Det blev nu ikke i OutLook - men i et regneark (i første omgang):
Koden anbringes i Ark1
...................................................................

Option Explicit

Rem OVERSKRIFTER A1: UgeNr | B1 Fra | C1 Til
rem Indtast ugeNr i A2:

Dim ugensFørsteDag As Date
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        If Target.Value <> "" And IsNumeric(Target.Value) = True Then
            opsætArbejdsuge Target.Value
        End If
    End If
End Sub
Sub opsætArbejdsuge(uge)
    denFørsteDagDetteÅr uge

    With Worksheets("Ark1")
        .Range("B2").Value = ugensFørsteDag
        .Range("C2").Value = DateAdd("d", 4, ugensFørsteDag)
    End With
End Sub
Private Sub denFørsteDagDetteÅr(uge)
Dim dag1 As Date, denFørsteUgedag, ugeNr
    dag1 = "01-01-" & Year(Now)
    denFørsteUgedag = Format(dag1, "w", 2, 2)
    ugeNr = Format(dag1, "ww", 2, 2)
   
Rem ryk frem til uge 1 - hvis den 1. uge ikke er 1
    If ugeNr <> "1" Then
        While Format(dag1, "ww", 2, 2) <> "1"
            dag1 = DateAdd("d", 1, dag1)
        Wend
    Else
        If denFørsteUgedag <> 1 Then
            dag1 = DateAdd("d", (Val(denFørsteUgedag) - 1) * -1, dag1)
        End If
    End If
   
    If uge <> "1" Then
        dag1 = DateAdd("ww", Val(uge) - 1, dag1)
    End If
   
    ugensFørsteDag = dag1
End Sub

Hej Supertekst
Tak for indsatsen - jeg kan dog kun bruge en løsning som aflæser det aktuelle datointerval i outlookkalenderen og returnerer dette, som beskrevet i spørgsmålet.

Kan du klare den?

Er det ved klik på en given dato i ugekalenderen?

:-(