[excel] "laatst opgeslagen" in een cel zetten *

[_Leenroc]

Ik heb weer een excel vraag.

Wanneer je in de eigenschappen van een excel bestand kijkt onder de tab statestieken, staat daar bestand laatst opgeslagen door: "gebruiker"

ik wil deze gegevens graag terug laten komen in een cel van een werkblad bv cel A1
kan dat?

Grt Leenroc

Zie dat ik mijn topic omschrijving niet geheel netjes heb gedaan

[ Voor 14% gewijzigd door _Leenroc op 04-07-2005 19:50 ]

[F_J_K]

offtopic:
Titel aangepast. Geef een volgende keer even middels topicreport een aanvulling voor de titel, past een moderator het voor je aan. Trouwens vergat ik in het vorige topic nog wat: welkom@GoT

Het zou moeten kunnen (in MSWord is het simpel: klik -> Versienummer generator in Word?). Ik zie zo 1-2-3 niets staan en heb nu verder even geen tijd maar check "even" de functie-lijst via de knoppenbalk, via F1 in Excel zelf en via F1 in de VB editor in Excel en F2 in die VB editor. (Probeer Engelse en Nederlandse termen, zoals last saved, properties, etc.)

[_Leenroc]

Hmmm kan weinig vinden ben bovendien niet zo handig denk ik.......

Ik hoop op jullie

[WillyF]

code:

Sub LaatLaatsteAuteurzien()
    Dim strLaatsteAuteur As String
    
    strLaatsteAuteur = ThisWorkbook.BuiltinDocumentProperties(7)
    Blad5.Range("B5") = strLaatsteAuteur
End Sub

Er zijn er nog een aantal, maar als de waarde niet bestaat, dan krijg je een foutmelding bij het opvragen van .BuiltinDocumentProperties(x)

[ Voor 71% gewijzigd door WillyF op 04-07-2005 21:20 ]

[Coffeemonster]

WillyF schreef op maandag 04 juli 2005 @ 21:18:

code:

Sub LaatLaatsteAuteurzien()
    Dim strLaatsteAuteur As String
    
    strLaatsteAuteur = ThisWorkbook.BuiltinDocumentProperties(7)
    Blad5.Range("B5") = strLaatsteAuteur
End Sub

Er zijn er nog een aantal, maar als de waarde niet bestaat, dan krijg je een foutmelding bij het opvragen van .BuiltinDocumentProperties(x)

Dit kan je ook in een function stoppen. Dan hoef je het maar 1 keer in de cel in te vullen (=LaatsteAuteur() ), en daarna hoef je geen macro meer te runnen:

code:

Function LaatsteAuteur()
   LaatsteAuteur = ThisWorkbook.BuiltinDocumentProperties(7)
End Function

[_Leenroc]

Moet ik die function code dan in VB in thisworkbook zetten?

Ik ben zo een hark....

[Alfa Novanta]

Ja en nee

[_Leenroc]

Heb het nog steeds niet goed gedaan denk ik

Wat heb ik nu gedaan:

in vb gezet

Sub LaatLaatsteAuteurzien()
Dim strLaatsteAuteur As String

strLaatsteAuteur = ThisWorkbook.BuiltinDocumentProperties(7)
Blad1.Range("B5") = strLaatsteAuteur
End Sub

Werk inderdaad prima krijg in cel B5 laatst opgeslagen naam wanneer ik de macro afspeel

NU kan dat ook in een functie zegt Cofeemonster
Zet ik nu alleen deze code:

Function LaatsteAuteur()
LaatsteAuteur = ThisWorkbook.BuiltinDocumentProperties(7)
End Function

in de vb of ook de eerste.

Als ik in een cel =LaatsteAuteur() intik krijg ik:

#NAAM? al resultaat

Wat ben ik een sukkel maar snap het nog steeds niet hahahahah

[onkl]

Je moet de functiecode niet in "thisworkbook" zetten, maar in een module.

[_Leenroc]

Klopt inderdaad heb het nu werkend.
Alleen wordt het niet automatisch "ververst" wanneer je het bestand opnieuw opent en het is opgeslagen door een ander.

oplossing?

[Lustucru]

Ah, je bent er achter:

Voorbeeld van de methode Volatile

In het volgende voorbeeld wordt de door de gebruiker gedefinieerde functie 'My_Func' gemarkeerd als een functie die altijd moet worden herberekend. De functie zal worden herberekend als er een berekening plaatsvindt in een van de cellen in het werkblad waarop de functie wordt weergegeven.

Function My_Func()
Application.Volatile
'
' Remainder of the function
'
End Function
bron: F1

Normaal herberekent Excel een formule alleen als een cel die de functie als input heeft wijzigt.