Tabbladen automatisch benoemen

[Danzie]

Sub BladenAanmaken()

Dim i As Integer
Dim ws As Worksheet

Application.ScreenUpdating = False

For i = 1 To ThisWorkbook.Worksheets("Start").Range("A1").Value
Sheets("Voorbeeld").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = i
Sheets(Sheets.Count).Range("B2") = i
Next

Application.ScreenUpdating = True

End Sub

Ik heb hier ergens een macro gevonden die wel leuk is maar ik zou graag ipv nummers datums gebruiken
En liefst alleen werkdagen geen weekends is dit ook mogelijk

 

[danny147]

Beste Danzie

Ziehier een voorbeeld.

Men plaatst de datums in blad1 in kolom A

Typ ALT+F8 en klik op uitvoeren.

Groetjes Danny.

 

[Danzie]

Nu heb ik iets raar voor heb een paar aanpassingen gedaan

Sub ExtraSheets()

Dim strNaam As String
Dim i As Integer
i = 1
strNaam = Worksheets("Blad1").Cells(i, 1).Value

Do While strNaam <> ""
Sheets("Voorbeeld").Copy after:=Sheets(Sheets.Count)
Range("I1") = strNaam
ActiveSheet.Name = strNaam
i = i + 1
strNaam = Worksheets("Blad1").Cells(i, 1).Value

Loop

End Sub

Ik heb ervoor gezorgd dat er bovenaan mijn werkblad ook de datum komt te staan zodat ik die verder kan gebruiken in mijn werkblad
Maar nu draait hij het om 4 januari word ineens 1 april
Enig gedacht hoe dit komt

 

[zapatr]

ik zou graag ipv nummers datums gebruiken
En liefst alleen werkdagen geen weekends is dit ook mogelijk

zie bijlage en druk Ctrl-q

 

[Danzie]

dit macrootje is fantastisch

maar nu moet jij hem eens proberen en eens naar de datums kijken bovenaan op mijn werkblad
snap het niet ligt dit aan mijn mac

Bekijk bijlage Zapatr - Danzie.xlsBekijk bijlage Zapatr - Danzie.xls

 

[zapatr]

dit macrootje is fantastisch
maar nu moet jij hem eens proberen en eens naar de datums kijken bovenaan op mijn werkblad. snap het niet ligt dit aan mijn mac?

Tja, je hebt wijzigingen aangebracht in mijn macro....
Als je in plaats van toevoegen, gaat kopiëren én er staat een tijdfunctie in het blad,
dat is om problemen vragen.

 

[Danzie]

Probleem is dat hij ineens de maanden en dagen omdraait
voor de rest werkt hij perfect
Nadeel is dat ik de datums nodig heb om mijn overzichten te maken

 

[zapatr]

Probleem is dat hij ineens de maanden en dagen omdraait
voor de rest werkt hij perfect

Worden in de namen van de tabbladen de datums wel correct weergegeven?
Bij mij wel.
Als het enkel om i1 (en bijgevolg ook om de datums in kolom B) te doen is, wijzig dan

Range("I1") = Format(startdate, "dd-mm-yy")

in:

Range("I1") = Format(startdate, [b]"mm-dd-yy"[/b])

Daarna zouden ook de datums in kolom B juist moeten worden weergegeven.

 

[zapatr]

Nog een opmerking:
de tijdfunctie kun je m.i. beter in een module plaatsen, anders wordt die bij het kopiëren van bladen evenzovele malen meegekopieerd en dat is niet nodig.

 

[Danzie]

Nu werkt die perfect
Bedankt gaan nu alles in mijn orgineel insteken en verder aan mijn layout werken
Het begint er al goed uit te zien misschien nog enkele kleine aanpassingen doen