VBA code om bepaalde tekst uit draaitabel en deze kopieren naar ander tabblad

[peter59]

Hallo,

Ik ben op zoek om een bepaalde tekst uit een cel van een draaitabel (kolom A) te halen met VBA en deze te kopiëren naar ander tabblad.
De te genereren tekst begint altijd met DIPSI.
Een voorbeeldje toegevoegd welke het hopelijk wat duidelijker maakt.

Dank alvast voor het meedenken.

Mvg
Peter

 

[edmoor]

Daar is geen VBA voor nodig
In blad Dient te worden, cel A2:

=DEEL(Origineel!A2;VIND.SPEC("DIPSI";Origineel!A2);LENGTE(Origineel!A2))

Als VBA functie:

Function DIPSI(target As Range)
    DIPSI = Mid(target, InStr(1, target, "DIPSI"))
End Function

 

[peter59]

Hallo Edmoor

Heel hartelijk dank voor deze 2 oplossingen.
De formule werkt perfect. Deze ga ik proberen in te voegen in Power Pivot.
Eens kijken of dat gaat lukken.

Met UDF's heb ik nog nooit gewerkt dus even liggen zoeken hoe het e.e.a. toe te passen en ook dat is gelukt.
Weer iets bijgeleerd.

Nogmaals dank.

Mvg
Peter