Oprettet man. d. 15. marts 2010 kl. 09:40:59

karina_n
karina_n (6.685 point. Point ude: 60)

Excel: automatisk indsættelse at tekst i arknavnet

Jeg har et regneark med 30-31 ark i bunden - 1 for hver dato.

Jeg har skrevet datoerne fra 1.-31. i et andet ark og vil gerne have, at den automatisk indsætter disse datoer på hvert ark.

Jeg har prøvet med: ActiveSheet.Name = "01-01-2010". Men så skal teksten skrives i makroen, hvor jeg hellere vil have at den henter fra de celler, jeg har lavet - så det er nemmere at ændre.

Skrevet man. d. 15. marts 2010 kl. 10:23:45| #1

supertekst
supertekst (119.044 point)
supertekst-it.dk
Anbringes under ark1 (hvor datoer er opført)

Sub navngivArkFaner()
Dim ræk As Byte
    For ræk = 1 To 31
        If Cells(ræk, 1) <> "" Then
            ActiveWorkbook.Sheets(ræk + 1).Name = CStr(Cells(ræk, 1))
        End If
    Next ræk
End Sub

PS: I princippet kunne man nøjes med at indtaste den første dato -det ville så kræve lidt mere kode.

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

Farve område i excel diagram ( mellem 2 (eller flere)...

Oprettet den 4. februar 2012 kl. 09.16
endurancel giver 60 point for svar | Giv et svar »

søg i tekst - VBA

Oprettet den 4. februar 2012 kl. 00.44
Mathias- giver 15 point for svar | Giv et svar »

Hvordan beregnes antallet af rentetilskrivninger? (lav...

Oprettet den 3. februar 2012 kl. 15.25
haastrup giver 200 point for svar | Giv et svar »

Seneste guides

Den gode bruger
Adgang til NAS-server via WAN
Kollektion af Batch tutorials (FJERNET)
Tilpas din YouTube afspiller


   




Tips & Tricks fra PC World

Teaser billede

Sådan fjerner du pladskrævende metadata fra dine fotos

Det er langt fra altid, at dine billeders metadata såsom kameramodel og geografisk placering er vigtige at bevare. JPG & PNG Stripper kan luge ud i billedfilerne, så de fylder meget mindre....


Anmeldelser fra PC World

Teaser billede

Test: Superlet bærbar med mange muligheder

Toshiba har med Satellite Z830 skabt en af verdens letteste ultrabooks. Den vejer 1,1 kilo, og computeren på 13 tommer ser på papiret ud til at være en oplagt rejsekammerat. Men den lave vægt har...


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Samsung Galaxy S III på vej

Samsungs bedst sælgende smartphone nogensinde får en efterfølger om kort tid.


Nyheder fra Computerworld

Teaser billede

Apple retter hele 51 sikkerhedshuller i Mac OS X

Apple lukker hele 51 sårbarheder i Mac OS X, hvoraf de fleste er kritiske. Se her, hvor hullerne er.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger