cel in excel moet naam bestand krijgen

[BuSTeD]

geachte,

ik had graag geweten of het mogelijk was om een bepaalde cel in een bestand automatisch de naam te laten krijgen van het excel bestand.

Ik maak eerst mijn bestanden aan maar dien steeds in de bestanden te gaan om de naam van het excel bestand op een bepaalde plaats in te voeren.

Kan dit ? Zoja hoe ?

Alvast bedankt !

 

[HSV]

=DEEL(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))+1;VIND.SPEC("]";CEL("bestandsnaam"))-VIND.SPEC("[";CEL("bestandsnaam"))-1)

Eerst je bestandje ergens opslaan.

 

[BuSTeD]

Heel hard bedankt

heel mooi

kan ik op de één of andere manier zorgen dat de .xls in de cel wegvalt ?

 

[RoCompy87]

=DEEL(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))+1;VIND.SPEC(".";CEL("bestandsnaam"))-VIND.SPEC("[";CEL("bestandsnaam"))-1)

Dat kan met dezelfde code als van HSV, maar nu is de tweede rechte haak vervangen door een punt.

Succes!

 

[BuSTeD]

RoCompy87,

Alvast bedankt voor je antwoord

Maar met bovenstaande code lukt het niet

 

[RoCompy87]

Nee, je hebt gelijk. Ik was te snel, want er kunnen natuurlijk meerdere punten in de bestandsnaam zitten. Hmm... dan weet ik het ook even niet

 

[Warme bakkertje]

Stel dat je formule in cel A1 staat

=SUBSTITUEREN(A1;RECHTS(DEEL(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))+1;VIND.SPEC("]";CEL("bestandsnaam"))-VIND.SPEC("[";CEL("bestandsnaam"))-1);4);"")

 

[OctaFish]

Is dat niet:

=DEEL(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))+1;VIND.SPEC("]";CEL("bestandsnaam"))-VIND.SPEC("[";CEL("bestandsnaam"))-5)

 

[Warme bakkertje]

Er leiden blijkbaar meerdere wegen naar Rome En formules zijn niet onmiddelijk mijn ding, was daarom al blij dat het op deze manier lukte

 

[RoCompy87]

Is dat niet:

=DEEL(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))+1;VIND.SPEC("]";CEL("bestandsnaam"))-VIND.SPEC("[";CEL("bestandsnaam"))-5)

Maar hiermee wordt het verschil in aantal tekens van de extensie (.xls, .xlsx, .xlsm, ...) nog niet ondervangen... Niet dat het mijn vraag is, maar toch

 

[BuSTeD]

Volgende probleem bij deze formule

Na enige tijd gebruiken komt het volgende uit.

Wij gebruiken de formule voor de datum in een cel te krijgen ( dus het bestand is een datum ).

Wanneer we nu meerdere excel formulieren openen met verschillende data dan slaat de formule in de knoop.

De formulie staat in alle excel formulieren op dezelfde plaats. Open ik bv. 28/07/2010 dan krijg ik in cel A1 28/07/2010 MAAR open ik een 2de formulier tegelijkertijd bv. 29/07/2010 dan krijg ik in cel A1 29/07/2010. Maar dan sluit ik het 2de formulier af en zie ik in het eerste formulier 29/07/2010 staan ipv 28/07/2010. Dus alle excel formulieren die openstaan met deze formulie krijgen de datum van het laatste formulier dat geopend is.

Hoe pak ik dit aan ?

 

[HSV]

Probeer het eens met onderstaande code in 'ThisWorkbook'.

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.Cells(1).Dirty
End Sub

Met in cel A1 de aangereikte formule.