weeknummer via opmerking in cel plaatsen

[rob91]

Hallo forumleden,

Ik heb een hele mooie kalender in excel 2007 voor het plannen van mijn vrije dagen, maar zou graag in de cellen (dagen) het weeknummer als opmerking plaatsen.
Als ik dan over de kalender ga zie ik direct welk weeknummer dat is.
Is dat op een of andere manier te doen, zonder dat ik dat allemaal met de hand moet gaan toevoegen??
Ik heb mijn kalender als bijlage erbij gedaan; hierin heb ik dus de weeknummers handmatig gedaan.

alvast bedankt voor het meedenken,

Rob

 

[HSV]

Het rode gedeelte er tussen gevoegd.

For Each c In Range("F26:AJ37")
    If c.Interior.Color = vbRed And c.Value = "ZM" Then
    Range("AK41").Value = Range("AK41").Value + 1
    ElseIf c.Interior.Color = vbRed And c.Value = "Z" Then
    Range("AK40").Value = Range("AK40").Value + 1
    End If
     [COLOR=#FF0000]On Error Resume Next
             c.Comment.Delete
        On Error GoTo 0
        If c <> "X" Then
             StrDate = DateSerial(Range("AP8"), Month(Cells(c.Row, 3)), Cells(25, c.Column))
          c.AddComment "Wk " & Str(DatePart("ww", StrDate, vbMonday, vbFirstFourDays))
        End If[/COLOR]
    Next c
  Application.EnableEvents = True

 

[rob91]

Harry,

bedankt voor je antwoord.

Helaas krijg ik een foutmelding in de uitvoering op de regel:

StrDate = DateSerial(Range("AP8"), Month(Cells(c.Row, 3)), Cells(25, c.Column))


groetjes,
Rob

 

[HSV]

Vreemd, ik niet Rob.
Ik verander even het jaartal in cel $AP$8.

 

[HSV]

Oh, ja.
Ik heb C26:C37 aangepast.

 

[rob91]

Hoi Harry,

Ik heb je wijziging in mijn originele sheet gezet en dan blijft de foutmelding komen. Geen idee waarom het dan niet werkt.
Ook is je wijziging van C26:C37 geen optie, want dan ben ik mijn kleurtjes kwijt die de weekenden markeert.
Wel zie ik ook dat het wel erg druk wordt met al die opmerkingen; ik wil eigenlijk naar het weeknummer als opmerking in de maandagen

gr,
Rob

 

[HSV]

Hallo Rob,

Als je mijn bestand draait, krijg je dan ook de foutmelding?

Voor je kleurtjes in de Voorwaardelijke opmaak moet geen probleem zijn.

=WEEKDAG(F$25&"-"&[COLOR=#FF0000]MAAND($C26)[/COLOR]&"-"&[COLOR=#FF0000][/COLOR]$AP$8;2)>5

De comments op de maandagen in het bestand.

 

[rob91]

Hoi Harry,

Ja, nu lukt het wel in mijn originele sheet; waarom eerst niet is mij onduidelijk.
Wel moest ik ook nog even de voorwaardelijke opmaak voor de feestdagen aanpassen.
Maar het werkt nu zoals bedoeld.
Is er nog een mogelijkheid om de grootte van de vakjes met de opmerkingen te beperken?

gr,
Rob

 

[HSV]

Hallo Rob,

Voeg de rode tekst even toe.

On Error Resume Next
          c.Comment.Delete
        If UCase(c) <> "X" Then
         'Weekday(Range("F$25") & "-" & Month(Range("$C26")) & "-" & Range("$AP$8"), 2)
       If Weekday(Cells(25, c.Column) & "-" & Month(Cells(c.Row, 3)) & "-" & Range("$AP$8"), 2) = 1 Then
       
       StrDate = DateSerial(Range("AP8"), Month(Cells(c.Row, 3)), Cells(25, c.Column))
        c.AddComment "Wk " & Str(DatePart("ww", StrDate, vbMonday, vbFirstFourDays))
       [COLOR=#FF0000] c.Comment.Shape.Height = c.Comment.Shape.Height / 2
        c.Comment.Shape.Width = c.Comment.Shape.Width / 2[/COLOR]
           On Error GoTo 0
         End If
        End If
    Next c

 

[rob91]

Hoi Harry,

Super bedankt voor alle hulp; het is helemaal gelukt zoals ik graag wilde.
Nu nog even goed naar je oplossing kijken om er wat van te leren.
Nogmaals bedankt.
:thumb:

Groetjes,
Rob