Automatisk opdatering af kalender udarbejdet i exel, kodet i VB?

Du er velkommen til at sende filen til: pb@supertekst-it.dk - så kan jeg prøve at se på problemet.

MAil sendt...

OK - vender tilbage

Tillader at lægge et svar

Problemet var følgende:
Option Explicit

Sub indsætDato(uge)
    With Worksheets("Kalender")
        .Range("A4").Value = getDato(uge, "mandag")
        .Range("D4").Value = getDato(uge, "tirsdag")
        .Range("G4").Value = getDato(uge, "onsdag")
        .Range("J4").Value = getDato(uge, "torsdag")
        .Range("M4").Value = getDato(uge, "fredag")
    End With
End Sub

Function getDato(uge, dag)
    Dim str As String
   
    Select Case dag
        Case "mandag"
            str = Format(CVDate((uge * 7) + (38717 - 5)), "dddd") & " d. " & CVDate((uge * 7) + (38717 - 5))
        Case "tirsdag"
            str = Format(CVDate((uge * 7) + (38717 - 4)), "dddd") & " d. " & CVDate((uge * 7) + (38717 - 4))
        Case "onsdag"
            str = Format(CVDate((uge * 7) + (38717 - 3)), "dddd") & " d. " & CVDate((uge * 7) + (38717 - 3))
        Case "torsdag"
            str = Format(CVDate((uge * 7) + (38717 - 2)), "dddd") & " d. " & CVDate((uge * 7) + (38717 - 2))
        Case "fredag"
            str = Format(CVDate((uge * 7) + (38717 - 1)), "dddd") & " d. " & CVDate((uge * 7) + (38717 - 1))
    End Select
    getDato = str
End Function

Idet 38717 er den numeriske værdi for den 31-12-05!

Mange tak til supertekst, Dejligt at der er nogen der er SÅ professionelle...Kan varmt anbefales!