Gegevens bookmark opnieuw gebruiken

[Kramer]

aanpassing

Het tekstje "'project.module1.vulUserform'' kan je aanpassing via de rechtmuis toets en zeggen aanpassen, dan naar werkbalken dan de tekst aanpassen.

Om de gegevens weer terug te krijgen in je Userform zal je de code van je userform aan moeten passen.

Je moet namelijk voor elke bladwijzer die je gebruikt dit helemaal neer zetten:

'eerst testen of de bladwijzer bestaat
    If .Bookmarks.Exists("Naam van je bladwijzer") Then
    Dim a As Integer
    Dim b As Integer
    'start- en eindpositie bladwijzer bepalen
    a = .Bookmarks("Naam bladwijzer").Start
    b = .Bookmarks("Naam bladwijzer").Start + Len(TxtAan)

'variable aan bij bladwijzer plaatsen
    .Bookmarks("Naambladwijzer").Range.Text = Naam van je tekstbox in Userform

'bladwijzer om tekst plaatsen
    .Bookmarks.Add "Naam van je bladwijzer", .Range(a, b)
    End If

En voor elke bladwijzer heb je een andere range nodig, dus voor de eerst a en b zoals hierboven staat en voor de volgende doe je c en d, enz enz enz.

Dit stukje code kijkt hoelang de tekst is die je neerzet selecteerd dat en maakt er een omarmde bladwijzer omheen.

Ik hoor het wel of het gelukt is

 

[retsevlyS]

Dat maakt een hoop duidelijk!
Maar het is wel even coderen voordat je er bent

Heel erg bedankt voor je hulp zover. :thumb:

 

[XtraRap]

Top!

Dag Gregor,

Bij het zoeken naar een andere antwoord op een vraag die ik heb, stuitte ik op deze topic.
Wow, ik ben erg blij met jouw oplossing voor die bookmarks, die dus weer "teruggeroepen" kunnen worden als je al het Userform hebt ingevuld.

Dat was iets wat ik weken geleden zocht, maar het uiteindelijk anders heb gedaan. Mijn motto is: kan het niet zoals het moet, dan moet het maar zoals het kan. Maar voor een volgende keer ga ik zeker deze formules gebruiken.
Thanks.