Invulbaar tekstvak als popup dmv knop

[PJBr]

Geen idee of dit mogelijk is, maar ik zou graag een knop in een excel blad willen plaatsen waarmee ik een tekstvak als popup oproep.

Na het indrukken van de knop wil ik wat opmerkingen kunnen plaatsen in het tekstvak en met wederom een druk op de knop het tekstvak weer verbergen. De invoer in het tekstvak moet uiteraard wel bewaard blijven en bij een volgende druk op de knop moet de tekst weer bewerkbaar zijn.

Heeft iemand enig idee? Alvast bedankt voor het meedenken!

 

[emields]

Misschien een voorbeeldbestandje plaatsen?

 

[OctaFish]

Een tekstvak is geen pop-up, en kan je dus ook nooit als zodanig oproepen. Wél kun je een formulier maken met tekstvakken, en dat als pop-up gebruiken. Of, als het om één tekstje gaat, een Inputbox openen waarin je de tekst typt, die dan op de gewenste plek wordt gezet. Dan heb je geen formulier nodig.

 

[AHulpje]

Misschien voldoet het plaatsen van een opmerking?
Rechtermuisknop, m (=Opmerking plaatsen)

 

[edmoor]

Kijk eens of je dit leuk vind.
Dubbelklik op cel A1 in het blad Blad1.

 

[AHulpje]

Wauw!
En als je vergeten bent welke CustomDocumentProperties je hebt aangemaakt:

Sub CustDocProp()
    For Each cdp In ActiveWorkbook.CustomDocumentProperties
        Debug.Print cdp.Name
    Next
End Sub

 

[edmoor]

Da's een goeie.
Wat aangepast.
Bij de cel met een opmerking wordt een rood driehoekje in de cel geplaatst.

 

[edmoor]

Naar aanleiding van de opmerking van AHulpje in #6 ben ik nog iets verder gegaan
Zie de > knop:

 

[AHulpje]

Mooi! Dan kan de opmerking er wel weer uit, want zo'n opmerking doet eigenlijk hetzelfde als de customdocumentproperty, namelijk informatie aan een cel koppelen.

 

[PJBr]

WOW!!! Dit is fantastisch! Reuze bedankt

Ik probeer de vba code een beetje te ontcijferen. Is er een plek waar ik eventueel al wat voorgedrukte tekst in het opmerkingenveld kan plaatsen. Dus, als er nog geen opmerking is geplaatst in een cel, dubbelklik op de cel, een nieuw opmerkingen pop-up verschijnt met daarin al een aantal voorgedrukte woorden zoals
naam:
adres:
woonplaats:

@edmoor nogmaals super bedankt!!

 

[edmoor]

Dat zou je bij het openen van het formulier kunnen doen.
Bijvoorbeeld:

Private Sub UserForm_Initialize()
    OpmerkingTekst
    Me.Width = 227.25
    cmdGebruikteCellen.Caption = ">"
    GebruikteCellen
    If txtOpmerking.Text = "" Then
        txtOpmerking.Text = "Naam:" & vbCrLf & _
                            "Adres:" & vbCrLf & _
                            "Woonplaats:"
    End If
End Sub

 

[edmoor]

Hier zit het in.
Tevens wordt het lijstje met gebruikte cellen nu alfabetisch gesorteerd:

 

[edmoor]

Foutje in #12 en kan ik niet meer corrigeren.
Bij deze aangepast:

 

[HSV]

Half uurtje vind ik ook kort om aan te passen.