Kalender med ugedage.

Indtast dato i en celle som dd-mm-åå - ugedagen indsættes herefter:

Private Sub worksheet_change(ByVal Target As Excel.Range)
Dim dage As Variant, ugedag As String
    dage = Array("", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")

    If Target.NumberFormat = "m/d/yyyy" And Len(Target.Value) = 8 Then
       
        ugedag = dage(Weekday(Target.Value, 2))
        Target.Value = CStr(Target.Value) + " " + ugedag
    End If
End Sub

Hvis 31-12-2006 står i A1
I B1 skrives =A1
B1 formateres således:
Formater -> Celler -> Tal -> Brugerdefineret -> Skriv dddd

hmm kan sku ikke få det til at fungere..:S

Vejmand har du nogen genvejstaster..? for je bruger excel 2007

sæt koden ind i Ark1 i VBA-vinduet (Alt+F11)

supertekst har jeg gjordt.. men der sker ikk noget..

vejmand, det virker det du siger, men vil have så den gør det automatisk så jeg ikke skal lave for meget selv..

Jeg kan ikke lave en kode der gør det, men du kan vel bare kopiere ned?

vejmand, ved du hvordan man for ugedagen til at stå med stort begyndelses bogstav?
bare opret et indlæg med svar så kan du få de 60 point

Et alternativ:

Forudsætter at A1 er startcellen.
I kolonnen til højre for datoen (celle B1) indtaster du følgende formel:

=UGEDAG(A1) 

I kolonnen til højre herfor (C1) indtaster du følgende formel:

=HVIS(B1=1;"Søndag";HVIS(B1=2;"Mandag";HVIS(b1=3;"Tirsdag";HVIS(b1=4;"Onsdag";HVIS(b1=5;"Torsdag";HVIS(b1=6;"Fredag";"Lørdag"))))))

B-kolonnen kan skjules.

Det ved jeg desværre ikke, skal nok vende tilbage hvis jeg finder en løsning.
Har desværre ikke tid længere idag.
Godt nytår.  :-)

Tak og i lige måde:D

hej det er nu meget nemt
i celle a1 skriver du 31-12-2006
i celle a2 skriver du =tekst(ugedag(a1);"dddd")
så skulle den være der , hvis jeg har forstået spørgsmålet rigtig

Jeg tror ikke at du behøver at fomater celle a1 til dato

Med venlig hilsen Ulykken-smed

nemli ulykken-smed, og så lige stort forbogstav

=STORT.FORBOGSTAV(TEKST(UGEDAG(A1);"dddd"))

Hvis du geren vil have det fuldautomatisk, kan du bruge denne:


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a:a")) Is Nothing Then
        If Target.Value < 1 Then Exit Sub
        If Not IsDate(Target.Value) Then Exit Sub
        Target.Offset(0, 1).Value = UCase(Left(WeekdayName(Weekday(Target.Value)), 1)) & _
        LCase(Mid(WeekdayName(Weekday(Target.Value)), 2, Len(WeekdayName(Weekday(Target.Value)))))
    End If
End Sub

Husk, at koden skal ligge i arkets kodemodul, ikke i et standardmodul. Koden virker, hvis du skriver datoer i A-kolonnen, så skriver den ugedagen i B-kolonnen.