Avatar billede karina_n Nybegynder
15. marts 2010 - 09:40 Der er 2 kommentarer

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.
Avatar billede supertekst Ekspert
15. marts 2010 - 10:23 #1
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.
Avatar billede supertekst Ekspert
25. september 2012 - 10:12 #2
Har du afprøvet ovennævnte?
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat