CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

anderslolk Nybegynder

06. december 2011 - 18:23 Der er 5 kommentarer og
1 løsning

Markering af ark i Excel

Hvad er VBA-koden for markering af alle ark (sheets), undtagen det første, i Excel. Det skal være uafhængigt af det totale antal ark.

Synes godt om

Ialocin Novice

06. december 2011 - 22:51 #1

Hej anderslolk

Pørv om ikke denne procedure virker efter hensigten ?

Sub MarkerAlleArkPåNærDetFørste()
Dim w As Integer

'vælg ark nummer 2
ActiveWorkbook.Worksheets(2).Select

'fra 2. ark til sidste ark
For w = 2 To ThisWorkbook.Worksheets.Count

'vælg det aktuelle ark
'False gør at der kan vælges flere end et ark
Worksheets(w).Select False

Next w

End Sub

Med venlig hilsen, Nicolai

Synes godt om

kabbak Professor

07. december 2011 - 00:20 #2

koden ser fin ud Nicolai, men du bør bruge

ActiveWorkbook

begge steder.

Der er forskel på ThisWorkbook og ActiveWorkbook, det behøver jo ikke at være den samme

Synes godt om

Ialocin Novice

07. december 2011 - 08:57 #3

Hej kabbak

Mange tak for info ... det må være sættenissen der er tidlig på spil i år :o)

Sub MarkerAlleArkPåNærDetFørste()
Dim w As Integer

'vælg ark nummer 2
ActiveWorkbook.Worksheets(2).Select

'fra 2. ark til sidste ark
For w = 2 To ActiveWorkbook.Worksheets.Count

'vælg det aktuelle ark
'False gør at der kan vælges flere end et ark
Worksheets(w).Select False

Next w

End Sub

Med venlig hilsen, Nicolai

Synes godt om

anderslolk Nybegynder

07. december 2011 - 13:07 #4

Jeg takker mange gange, det virker perfekt.

@Nicolai: Skriv det lige som et svar så jeg kan give dig nogle point :)

Synes godt om

Ialocin Novice

07. december 2011 - 13:42 #5

Hej anderslolk

Godt at høre ... hermed mit svar :o)

Med venlig hilsen, Nicolai

Synes godt om

Ialocin Novice

07. december 2011 - 14:16 #6

Hej anderslolk

Mange tak for point.

Mvh Nicolai

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	2	25/04/202414:26	25/04/202422:06
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS