Avatar billede mrkr Juniormester
11. februar 2009 - 08:55 Der er 5 kommentarer og
1 løsning

indsætte en tekst i statusbar - men kun i aktuel workbook

Jeg har denne makro til at køre når jeg starter en fil:

Private Sub Workbook_Open()
Application.StatusBar = "**** CTRL + D =  makro 1"
End Sub

Mit problem er at denne tekst komme til at stå i alle de ark jeg har åbnet.
Kan man ændre lidt i koden, så den kun kommer til at stå i bunden af netop det ark der har koden i sig?
Avatar billede jkrons Professor
11. februar 2009 - 10:02 #1
Lidt flere hændelser i ThisWorokbook løser problemet ;-)

Private Sub Workbook_Activate()
Application.StatusBar = "**** CTRL + D =  makro 1"
End Sub

Private Sub Workbook_Deactivate()
Application.StatusBar = False
End Sub

Private Sub Workbook_Open()
Application.StatusBar = "**** CTRL + D =  makro 1"
End Sub
Avatar billede jkrons Professor
11. februar 2009 - 10:03 #2
Så vises den kun i den mappe, der indeholder koden.
Avatar billede mrkr Juniormester
11. februar 2009 - 22:02 #3
jamen selvfølgelig.
Den havde jeg ikke lige tænkt på.

Tak for hjælpen
Avatar billede mrkr Juniormester
11. februar 2009 - 22:03 #4
Det fik jeg vist lavet forkert.
Det skulle ikke have været et svar :-)
Har du et svar jkrons
Avatar billede jkrons Professor
11. februar 2009 - 22:42 #5
Et svar :-)
Avatar billede jkrons Professor
11. februar 2009 - 22:42 #6
Og så et svar.
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