Indsæt ugenr. og måned

Kan denne bruges?

Sub Makro1()
'
r = 2
lastrow = Range("A65536").End(xlUp).Row
For r = 2 To lastrow

    Cells(r, 7).Value = UgeNr(Cells(r, 1).Value)
    Cells(r, 8).Formula = (Cells(r, 1).Value)
    Cells(r, 8).NumberFormat = "mmm"
Next r
End Sub


Function UgeNr(MyDate) ' fra bak
Dim Resten As Single
Resten = (MyDate - 2) Mod 7
UgeNr = Int((MyDate - DateSerial(Year(MyDate + 3 - Resten), 1, Resten - 9)) / 7)
End Function

Og hvis du vil have fuld måned tekst, skal der bare et ekstra m.


    Cells(r, 8).NumberFormat = "mmmm"

Det virker - Smid et svar!

Værsgo :o)

Ups, der er en lille fejl i måneden.

i cellen vises 03, men der står 19-03-2007 i den. Hvordan får jeg slettet 19- og -2007, så jeg kan bruge 03 alene?

undskyld, havde ikke lige set det sidste, prøv denne:

Sub Makro1()
'
r = 2
lastrow = Range("A65536").End(xlUp).Row
For r = 2 To lastrow

    Cells(r, 7).Value = UgeNr(Cells(r, 1).Value)
    Cells(r, 8).Value = Format((Cells(r, 1).Value), "mm")
Next r
End Sub

Har du prøvet det sidste?

Er prøvet nu, men der er noget galt med formatet - Når der står 02-04-2007 i Kolonne A, står der 04-01-1900 i Kolonne H, Der vises kun 01.
Jeg har behov for at står der 02-04-2007 i Kolonne A, skal der kun stå og vises 04 i kolonne H.

Det lyder mærkelig, virker fint hos mig, når jeg starter med et nyt ark.
Er din a kolonne i dato format?

Prøv denne:
Sub Makro1()
'
r = 2
lastrow = Range("A65536").End(xlUp).Row
For r = 2 To lastrow
    Cells(r, 7).NumberFormat = "General"
    Cells(r, 8).NumberFormat = "General"

    Cells(r, 7).Value = UgeNr(Cells(r, 1).Value)
    Cells(r, 8).Value = Format((Cells(r, 1).Value), "mm")
Next r
End Sub

Function UgeNr(MyDate) ' fra bak
Dim Resten As Single
Resten = (MyDate - 2) Mod 7
UgeNr = Int((MyDate - DateSerial(Year(MyDate + 3 - Resten), 1, Resten - 9)) / 7)
End Function

Fint nu virker det! - Tak!