Discription kopieren in een cel

[DidierD]

Goede morgen,

Bestaat er een mogelijkheid om de "Discription" van een file te kopiëren in een cel?

voorbeeld in de bijlage:

de text : POC 7739 copieren in cell A3



Alvast bedankt voor de hulp.

 

[edmoor]

Je bedoelt dan de Description van het geopende Excel document?

 

[DidierD]

Ja, de omcirkelde tekst, zoals aangeduid op de afbeelding.

 

[WHER]

Thisworkbook.ContentTypeProperties.Item(1)

 

[DidierD]

Waar moet ik deze code in plaatsen?

 

[WHER]

Bijvoorbeeld in een eenvoudige macro die je in de reeds bestaande module bijplaatst:

Sub Description()
ActiveSheet.Range("A1") = ThisWorkbook.ContentTypeProperties.Item(1)
End Sub

 

[Warme bakkertje]

Of als functie

Function Description(It As Long) As String

    Description = ThisWorkbook.ContentTypeProperties(It)

End Function

en dan in A3

=Description(1)

 

[DidierD]

Bedankt voor de uitleg en de hulp.
Werkt perfect! :thumb:

 

[Warme bakkertje]

Prima !

Markeer je de vraag dan nog even als opgelost ?