Textbox, Insluiten functie?

[Boxman]

Forumleden,

kan ik in een textbox gegevens zoeken uit een lijst door een cel aan te klikken ?

Ik heb een werkblad met hokjes (plattegrond)
ik heb een werkblad met hokjes en gebruikers

kan ik op de plattegrond het hokjenummer aanklikken dat dan uit de lijst een naam wie dit hokje gebruikt in een textbox verschijnt?

zie hier een klein opzetje Bekijk bijlage testje textbox.xlsx

 

[WHER]

Kijk eens of dit iets is?

 

[HSV]

Iets andere aanpak.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 On Error Resume Next
     c = Application.WorksheetFunction.Match(ActiveCell.Value, Sheets("hokjes gebruikers").Range("A1:A100"), 0)
 If Sheets("hokjes gebruikers").Cells(c, 1).Offset(, 1) = "" Then
       TextBox1.Text = "Geen gegevens"
     Else
   TextBox1.Text = Sheets("hokjes gebruikers").Cells(c, 1).Offset(, 1)
  End If
End Sub

 

[Boxman]

Perfect dank voor jullie respons :thumb:

over dezelfde db heb ik nog een vraagje: kunnnen de kleuren ook automatisch wijzigigen bij bezet en vrij??

dus als een naam is ingevuld geldt deze 'bezet' en anders 'vrij'
waarbij dus bezet is geel en vrij is grijs bijvoorbeeld

is daar een oplossing voor te bedenken of heeft iemand suggesties om op een andere wijze deze 'status' weer te geven in het overzicht

 

[WHER]

Bestand zoals in post #2, maar met voorwaardelijke opmaak.
Niet schrikken als je sommige formules ziet, ik heb mij eens goed laten gaan

 

[Boxman]

ik ben er nog even mee aan het puzzelen

maar het is ieder geval wel een optie
je snapt wel dat dit dan in een veel grotere plattegrond moet worden toegepast en dan eigenlijk ook nog met meerdere kleurtjes

voor eerst in ieder geval bedankt