Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Invoegen van Bestandsnaam in een cel.

649 views
Skip to first unread message

Rickie Gibson

unread,
May 1, 2002, 8:34:14 AM5/1/02
to
Wie kan mij bij het volgende een tip geven:

Ik werk in Excel 2000 (maar ook in Excel97).
Als ik een Excelblad uitprint wil ik AUTOMATISCH de bestandsnaam uitgeprint
hebben.
Via Bestand, Pagina-instelling, Koptekst/Voettekst,Aangepaste voettekst
kan ik de bestandsnaam automatisch uitprinten.

Echter ik wil de bestandsnaam in een bepaalde cel hebben (dus NIET in de
voettekst).
Eigenlijk net zoiets als in WORD waar ik een VELD kan INVOEGEN met de
FILENAME.
Bestaat er een of andere functie (of iets anders), of misschien een macro,
waarmee ik dit kan bewerkstellingen?


Bij voorbaat mijn dank voor de hulp.

Rickie


marc

unread,
May 1, 2002, 12:08:19 PM5/1/02
to
Misschien met: =INFO("directory")
groeten, Marc


"Rickie Gibson" <ric...@apd.nl> schreef in bericht
news:ahRz8.436773$Fw2.11...@nlnews00.chello.com...

BBert

unread,
May 1, 2002, 1:56:44 PM5/1/02
to
Rickie Gibson, ric...@apd.nl, wrote:

> Echter ik wil de bestandsnaam in een bepaalde cel hebben

Sub Bestandsnaam_invoegen()
Range("A1").Value = ActiveWorkbook.FullName
End Sub
--
mvg
BBert

marc

unread,
May 1, 2002, 2:18:14 PM5/1/02
to

> Misschien met: =INFO("directory")
>

wat ook mogelijk is: =CEL("bestandsnaam")
groeten, Marc


jan feitsma

unread,
May 1, 2002, 3:52:52 PM5/1/02
to
Dit kan je doen d.m.v. een macro en dan de selectieve
verwijzing gebruiken. Dan print Excel de naam daar waar
jij het hebben wilt. Met de opdracht =CEL("bestandsnaam")
komt de volledige boomstructuur van je document in beeld
incl. tabblad
Succes
Jan

>-----Oorspronkelijk bericht-----

>.
>

jan feitsma

unread,
May 1, 2002, 3:53:02 PM5/1/02
to
Dit kan je doen d.m.v. een macro en dan de selectieve
verwijzing gebruiken. Dan print Excel de naam daar waar
jij het hebben wilt. Met de opdracht =CEL("bestandsnaam")
komt de volledige boomstructuur van je document in beeld
incl. tabblad
Succes
Jan

>-----Oorspronkelijk bericht-----

>.
>

John

unread,
May 1, 2002, 6:55:29 PM5/1/02
to

"Rickie Gibson" <ric...@apd.nl> schreef in bericht
news:ahRz8.436773$Fw2.11...@nlnews00.chello.com...

<knip>

Hallo Rickie,

Misschien heb je hier iets aan:

1. Go to the VBA-editor with <Alt><F11>2. Doubleclick the name of the
workbook in the project window (upper left of the screen)3. Choose Insert
> Module4. Enter this function. Function fname(nName As String) Select
Case LCase(nName) Case "pathfile" fname =
ActiveWorkbook.FullName Case "path" fname =
ActiveWorkbook.Path Case "file" fname =
ActiveWorkbook.Name Case "sheet" fname = ActiveSheet.Name
Case Else fname = "Not defined" End SelectEnd FunctionIn the
sheet you could enter:=fname("pathfile") to get
D:\Data\Excel\Budget.xls=fname("path") to get
D:\Data\Excel=fname("file") to get Budget.xls=fname("sheet")
to get Sheet1 (or whatever)Succes!Met vriendelijke groet,John

John

unread,
May 1, 2002, 7:12:20 PM5/1/02
to

"John" <postbus007DI...@hotmail.com> schreef in bericht
news:aaprps$roo$1...@reader05.wxs.nl...

>
> "Rickie Gibson" <ric...@apd.nl> schreef in bericht
> news:ahRz8.436773$Fw2.11...@nlnews00.chello.com...
> > Wie kan mij bij het volgende een tip geven:
> >
> > Ik werk in Excel 2000 (maar ook in Excel97).
> > Als ik een Excelblad uitprint wil ik AUTOMATISCH de bestandsnaam
> uitgeprint
> > hebben.
> > Via Bestand, Pagina-instelling, Koptekst/Voettekst,Aangepaste
voettekst
> > kan ik de bestandsnaam automatisch uitprinten.
> >
> > Echter ik wil de bestandsnaam in een bepaalde cel hebben (dus NIET in de
> > voettekst).
> > Eigenlijk net zoiets als in WORD waar ik een VELD kan INVOEGEN met de
> > FILENAME.
> > Bestaat er een of andere functie (of iets anders), of misschien een
macro,
> > waarmee ik dit kan bewerkstellingen?
>
> <knip>
>
> Hallo Rickie,
>
> Misschien heb je hier iets aan:

<knip>

Sorry Rickie, mijn vorig bericht was niet echt leesbaar
Hier nog een poging
John,

Nexcel

unread,
May 1, 2002, 7:58:51 PM5/1/02
to
Ikzelf gebruik deze altijd, zijn variaties van mogelijk uiteraard.
=DEEL(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))+1;VIND.SPEC("]"
;CEL("bestandsnaam"))-VIND.SPEC("[";CEL("bestandsnaam"))-1)

Nex'

"Rickie Gibson" <ric...@apd.nl> schreef in bericht
news:ahRz8.436773$Fw2.11...@nlnews00.chello.com...

Rickie Gibson

unread,
May 2, 2002, 2:42:59 AM5/2/02
to
Marc,

Dat met =cel["bestandsnaam"] werkt perfect.
Is er een plaats (misschien in Help of een website) waar ik dit soort
functies kan opzoeken?
Hardstikke bedankt.

Groeten, Rickie

"marc" <thijs...@skynet.be> schreef in bericht
news:edF5RyT8BHA.1352@tkmsftngp05...

Rickie Gibson

unread,
May 2, 2002, 2:52:17 AM5/2/02
to
Nex,

Samen met de tip van Marc, had ik met dezelfde functies, die jij hier
aangeeft, de bestandsnaam eruit kunnen distilleren.
Maar ik had elke functie in een aparte cel. Ik wist niet (nu dus wel) dat je
ze in één regel kon zetten. Weer wat bijgeleerd.
Bedankt Nex, Rickie

"Nexcel" <nex...@home.nl> schreef in bericht
news:A9%z8.92417$58.63...@zwoll1.home.nl...

BBert

unread,
May 2, 2002, 5:28:52 AM5/2/02
to
John, postbus007DI...@hotmail.com, wrote:

> Function fname(nName As String)
> Select Case LCase(nName)
> Case "pathfile"
> fname = ActiveWorkbook.FullName
> Case"path"
> fname = ActiveWorkbook.Path
> Case "file"
> fname = ActiveWorkbook.Name
> Case "sheet"
> fname = ActiveSheet.Name
> Case Else
> fname = "Not defined"
> End Select
> End Function

Handige oplossing, John. Ik ga hem bewaren.
--
mvg
BBert

marc

unread,
May 2, 2002, 2:23:44 PM5/2/02
to
Ik heb deze functie zelf leren kennen in deze boeiende nieuwsgroep.
Excel help geeft meer informatie over =cel()
groeten, Marc

"Rickie Gibson" <ric...@apd.nl> schreef in bericht

news:Td5A8.441896$Fw2.11...@nlnews00.chello.com...

0 new messages