Lijst + vrij invoervak + opmerkingen toevoegen

[wilma671]

Hallo,

Ik heb even jullie hulp nodig bij Excel. Ik ben bezig met het maken van een rooster voor onze afdeling. Ik ben al aardig ver, maar ik blijf nu steken. Weet even niet of dit kan en hoe ik dit kan creëren. Misschien dat iemand mij in de goede richting kan sturen.

Ik wil graag het volgende creëren:
in het rooster wil ik een drop down lijst zien, dit omdat niet alle collega's dezelfde werkzaamheden kunnen. Dus bij de 1 zie je een dropdownlijst met 10 werkstromen en bij de andere 5 werkstromen. In deze drop down lijst wil ik ook een leeg invoerveld hebben die ik zelf kan invullen bijv. tandarts afspraak.

Naast bovenstaande moet er ook nog een opmerking komen bij de tekst. Dus als ik bijv uit de lijst selecteer 'LUCI' dan moet hierbij zo'n notitie komen (rood driehoekje) waarin staat "Prio 1".

Ik weet hoe ik een drop down lijst maak, hoe je een tekstbalk maakt en hoe je een notitie maakt. Maar om deze samen te voegen weet ik niet waar ik moet beginnen. Kan iemand mij helpen? Mocht de opmerking bijv. niet mogelijk zijn, dan wil ik alleen de dropdown lijst + vrij invulveld. Ik heb in de bijlage even een opzetje staan zodat je iets beter begrijpt wat ik bedoel.

Ik ben niet heel sterk in formules dus voor de experts hier op het forum, graag in Jip en Janneke taal

 

[VenA]

Over hoe je gegevensvalidatie kan gebruiken is voldoende te vinden. In dit geval per medewerker een aparte tabel met de naam van de medewerker. Dmv Indirect kan je de validatielijst hieraan koppelen.

Het overnemen van de comments kan alleen met VBA. Gebruik geen samengevoegde cellen en al helemaal niet in combinatie met VBA.
In de module van het betreffende blad.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B:D")) Is Nothing And Target.Count = 1 Then
    Target.ClearComments
    Set f = Range("H3:I47").Find(Target.Value, , xlValues, xlWhole)
    If Not f Is Nothing Then
      Target.AddComment f.Comment.Text
      Target.Comment.Visible = False
    End If
  End If
End Sub

 

[wilma671]

Over hoe je gegevensvalidatie kan gebruiken is voldoende te vinden. In dit geval per medewerker een aparte tabel met de naam van de medewerker. Dmv Indirect kan je de validatielijst hieraan koppelen.

Het overnemen van de comments kan alleen met VBA. Gebruik geen samengevoegde cellen en al helemaal niet in combinatie met VBA.
In de module van het betreffende blad.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B:D")) Is Nothing And Target.Count = 1 Then
    Target.ClearComments
    Set f = Range("H3:I47").Find(Target.Value, , xlValues, xlWhole)
    If Not f Is Nothing Then
      Target.AddComment f.Comment.Text
      Target.Comment.Visible = False
    End If
  End If
End Sub

Bedankt VenA, dit was de oplossing!! Het is mij gelukt.