Avatar billede ese Novice
07. marts 2006 - 09:48 Der er 11 kommentarer og
2 løsninger

Bruge en celle som information i sidehoved

I sidehoved har man mulighed for at vælge forskellige ting som ark, datoer o.s.v. Men kan man bruge informtionerne fra en celle istedet
Avatar billede tobler Nybegynder
07. marts 2006 - 10:14 #1
Prøv med denne makro:

Nedenstående makro placeres ved at højreklikke på arket
og vælge view code
Derefter vælges "This Workbook"
i stedet for generel vælges "Workbook"
der indsættes følgende kode:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then ' hvis kun et specifikt ark ellers slettes linien
ActiveSheet.PageSetup.RightHeader = [Sidehoved] 'Indsætter cellem SIDEHOVED i højre top
End If
End Sub
Avatar billede stewen Praktikant
07. marts 2006 - 10:15 #2
Kun ved hjælp af VBA! f.eks:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Range("A1")
End Sub

Hvor den indsætter A1 i højre sidehoved. teksten bliver indsat før udskrift (gælder også vis udskrift). Koden skal indsættes i ThisWorkbook
Avatar billede tobler Nybegynder
07. marts 2006 - 10:18 #3
Sidehoved er en celle der navngivet.
Avatar billede ese Novice
07. marts 2006 - 10:21 #4
Øh, jeg har slet ikke mulighed for at vælge wiew code når jeg højreklikker. Er det p.g.a VBA. I tilføjelsesprogrammer har jeg kun mulighed for Analyses Toolpak VBA og Internet Asssiten VBA.
Avatar billede stewen Praktikant
07. marts 2006 - 10:47 #5
På danske hedder den: Vis programkode

Alternativt alt+F11
Avatar billede ese Novice
07. marts 2006 - 11:15 #6
Har  fundet det, men er på helt ukendt grund. Er det muligt at guide mig igennem på novice plan, eller er det for svært.?
Avatar billede stewen Praktikant
07. marts 2006 - 11:19 #7
Du har åbnet Microsoft Visual Basic

tast ctrl+R
Find den fil du vil have indsat sidehoved i. (fold den ud ved at trykke på +)
Vælg This Workbook (som ligger i tilknytning til filen)
Kopier hele koden, f.eks. som jeg foreslog:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Range("A1")
End Sub

og sæt den ind! Så skulle det virke!
Avatar billede ese Novice
07. marts 2006 - 12:00 #8
Yes det virker, men nu mangler jeg bare at kunne at få det til at stå i ark med diagrammer, dem kan jeg ikke vælge når jeg udfolder??? Og er det muligt at formater teksten. Men smid lige et svar du har i hvertfald fortjent point.
Avatar billede stewen Praktikant
07. marts 2006 - 12:04 #9
Betyder ikke ikke noget at der er tale om et diagram ark! Det skal smides i This Workbook - så gælder det for alle faner i filen. Skal det kun gælde for diagramarket (eller bestemte ark/diagram-faner, skal du bruge den if-sætning som tobler kom med)

tobler var først på aftrækkeren, så point til ham..
Avatar billede ese Novice
07. marts 2006 - 12:33 #10
Korrekt den er i alle ark også diagrammer, så nu mangler jeg bare om det er muligt at formatere teksten.
Og tobler skal lige smide et svar.
Avatar billede tobler Nybegynder
07. marts 2006 - 21:37 #11
Bør deles med stewen som gør tråden færdig:-)
Avatar billede stewen Praktikant
08. marts 2006 - 08:38 #12
Så skal vi da bare slås om pointene... men lad os da bere dele
Avatar billede ese Novice
08. marts 2006 - 10:08 #13
Tak for hjælpen, det var bare alletider.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester