Print side | Luk vindue

Makro til navngivning af ark, med alle dage i år

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=585
Udskrevet den: 12.Dec.2024 kl. 20:55


Emne: Makro til navngivning af ark, med alle dage i år
Besked fra: bilingual
Emne: Makro til navngivning af ark, med alle dage i år
Posteringsdato: 05.Jan.2012 kl. 12:44
Hej, jeg har behov for en makro der kan oprette og navngive de 365 dage der er i året, dvs ark 1 skal hedde 01-01, ark 2 skal hedde 02-01 osv, kan det lade sig gøre?


Svar:
Besked fra: rassten
Posteringsdato: 06.Jan.2012 kl. 00:39
på et ark, skriv i en celle 01-01-2012 træk ned til 31-12-2012.
vælg alle cellerne.
Kør makroen

Sub A_test()

iark = ActiveSheet.Name

For Each cell In Selection
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Format(cell, "dd-mm")
Next cell
Sheets(iark).Activate

End Sub




-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: bilingual
Posteringsdato: 06.Jan.2012 kl. 12:51
Tusind tak Rassten, det var lige det jeg skulle bruge!!Smile

Mange hilsener Daniel


Print side | Luk vindue