• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

hoe naam van feestdagen aan een cel toevoegen.

Status
Niet open voor verdere reacties.
G

glda19

Gebruiker
Lid geworden
14 jan 2008
Berichten
916
Hi
In de kalender zijn de feestdagen in het blauw gekleurd via voorwaardelijk opmaak
Dus bij het veranderen van het jaartal zal ook de cellen die blauw gekleurd zijn op een andere plaats vallen.

Is het volgende mogelijk dat als ik er met de muis over beweeg ik de naam van de feestdag te zien krijg
 

Bijlagen

  • Kalender.xlsx
    31 KB · Weergaven: 28
Voeg mbv een change-event opmerkingen toe aan de betreffende cellen:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Set Bereik = Range("B5:H10,K5:Q10,B12:H17,K12:Q17,B19:H24,K19:Q24,B26:H31,K26:Q31,B33:H38,K33:Q38,B40:H45,K40:Q45")
Bereik.ClearComments
For Each Cel In Bereik
    If Cel <> "" Then
        If WorksheetFunction.CountIf(Sheets("Feestdagen Verlofcodes").Range("Feestdagen"), Cel) = 1 Then
            Feestdag = WorksheetFunction.VLookup(Cel, Sheets("Feestdagen Verlofcodes").Range("Feestdagen").Resize(, 2), 2, False)
            Cel.AddComment
            Cel.Comment.Visible = False
            Cel.Comment.Text Text:=Feestdag
            Cel.Comment.Shape.TextFrame.AutoSize = True
        End If
    End If
Next Cel
End Sub
Een change-event wordt echter niet getriggerd door een kringveld, dus hang ook nog een macro aan dat kringveld (of wijzig een willekeurig andere cel).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan