Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 2 van 2

Onderwerp: hoe naam van feestdagen aan een cel toevoegen.

  1. #1
    Senior Member
    Geregistreerd
    14 januari 2008
    Vraag is niet opgelost

    hoe naam van feestdagen aan een cel toevoegen.

    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
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Senior Member
    Geregistreerd
    14 februari 2012
    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).

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren