kalender met commentaar

[popipipo]

Ik heb een kalender gemaakt.
Daarin worden de verjaardagen automatisch gekleurd.
Kan in de naam van het persoon ook automatisch in de 'comment box' krijgen?

 

[ExcelAmateur]

Vandaag,

Dit vond ik op het WWW
Dit is de site;
http://www.contextures.com/xlcomments03.html#Indicator
Misschien kun je aanpassen?

Create Excel Comments with Pictures From File List 
The following code creates a comment with picture inserted, in column B, based on a file list in column A. Download the zipped sample file.

Sub InsertComment()
'www.contextures.com\xlcomments03.html
Dim rngList As Range
Dim c As Range
Dim cmt As Comment
Dim strPic As String
    
On Error Resume Next

Set rngList = Range("A1:A5")
strPic = "C:\Data\"

For Each c In rngList
  With c.Offset(0, 1)
    Set cmt = c.Comment
    If cmt Is Nothing Then
      Set cmt = .AddComment
    End If
    With cmt
      .Text Text:=""
      .Shape.Fill.UserPicture strPic & c.Value
      .Visible = False
    End With
  End With
Next c
End Sub

 

[wiki]

Bekijk bijlage kalender met commentaar wiki.xls

Met behulp van hulpkolom B, vert.zoeken formule en tekst wit
macro geplaatst in workbook open, deze kan uiteraard ergens anders

gr wim

 

[popipipo]

@ExcelAmateur

Deze site had ik al gezien maar het aanpassen lukt mij niet.
Vandaar de vraag hier.

@Wiki

Ik kan helaas geen gebruiken maken van de hulpkolom.
Als ik die had dan had ik daar wel rechtstreeks de naam in kunnen zetten.
En juist daarom wilde ik het in een 'comment box' hebben.
In het eigenlijke bestand staan de datums per week horizontaal.
Met daaronder de mogelijkheid om een taak/dienst in te vullen.
Zodat 1 maand precies in 1 beeld te zien is.

Toch beide bedankt voor je reactie.

 

[ExcelAmateur]

popipipo,

Hier is ook een verjaardagskalender van Kees Oosterveld.
Die gebruik ik zelf en werkt goed.

Ik kan je hier niet verder mee helpen.
Suc6

 

[Warme bakkertje]

Willem, doe de test

 

[popipipo]

Hallo Rudi

Dat werkt goed!

maar.......

Ik heb de hele avond geprobeerd in mijn bestand het werkend te krijgen en is mij niet gelukt.
Dacht dat het eerst aan mijn layout lag.
De datums staan daar namelijk niet onder elkaar maar in 6 rijen van 7 kolommen
Elke rij een week, elke kolom een dag.

Het blijkt echter aan het celformaat te liggen
Jou formule werkt alleen als het celformaat 'd-m-jjjj' is.
Dit geldt dus voor de tabbladen waar het commentaar moet staan.
In het tabblad van alle datums maakt het celformaat niet uit.

Mijn celformaat is echter: 'ddd d mmm 'jj'
Mij vba kennis is (helaas) te beperkt om je formule aan te passen.

 

[Warme bakkertje]

Heb even een workaround gemaakt want je celopmaak zorgt voor de nodige problemen
Je moet dan wel de macro nog aanpassen naar de juiste bereiken waar je datums staan op je werkblad

 

[popipipo]

Hallo Rudi

Hartelijk dank het werkt nu.
Ik hoop echter dat je niet teveel tijd in de laatste wijziging hebt gestoken.
Ik kwam nl hierdoor weer andere problemen tegen doordat het hele bereik als datum stond ingesteld.
Ben dus overgestapt om datum formaat d-m-jjjj en heb de naam van de dag maar in een apart rij gezet.