Bladnaam halen uit cel

[kabebanaan]

Hallo,

Ik heb een rijtje cellen met daarin tekst en wil graag dat er voor iedere cel met tekst een blad wordt ingevoegd die de naam krijgt van de cel met tekst.

Is hier een code/macro voor?

 

[Wigi]

Probeer dit eens uit:

Sub insertsheets()
Dim c As Range, wsData As String
wsData = ActiveSheet.Name
Application.ScreenUpdating = False
For Each c In Worksheets("Blad1").Range("A1:C1")
    Worksheets.Add().Name = c.Value
    Worksheets(wsData).Select
Next
Application.ScreenUpdating = True
End Sub

Pas range en werkbladnaam aan.

Wigi

 

[kabebanaan]

Hoi Wigi,

Bladnaam en range aangepast.

De foutmelding wijst aan dat er iets fout is in de volgende regel:

Worksheets.Add().Name = c.Value

 

[Wigi]

Zet mijn code eens in een nieuw bestand met Blad1 als 1 van de tabbladen. Zet daar in A1:C1 gewoon 3 willekeurige getallen, maar wel 3 verschillende. Ga naar Blad1 en voer de code uit. Lukt dat al?

 

[Wigi]

Ga ook eens met F8 stap voor stap door de code en wijs met de muis de variabelen aan. Hebben die de juiste waarden?

 

[kabebanaan]

Wigi .............. geeft dezelfde fout.

 

[Wigi]

Je hebt dit gedaan:

Zet mijn code eens in een nieuw bestand met Blad1 als 1 van de tabbladen. Zet daar in A1:C1 gewoon 3 willekeurige getallen, maar wel 3 verschillende. Ga naar Blad1 en voer de code uit. Lukt dat al?

en nog steeds een fout?

Bij mij werkt het anders zonder fouten.

Wat is de oorzaak daarvan? Ik zou het eigenlijk niet weten... :evil:

Ik zal er eens over nadenken en mocht ik een reden vinden dan laat ik het weten.

 

[kabebanaan]

Ik heb 't nog eens geprobeerd in een nieuw werkblad en daar werkt het inderdaad wel.
Ik weet denk ik al wat de fout is.

Er zijn namelijk ook bladen die al dezelfde naam hebben als de celinhoud.
(Probeer de macro maar is voor een 2e keer uit)

Ik zou de code kunnen gebruiken en de waarde van de cellen waarvoor nog een blad voor moet worden aangemaakt, kunnen aangeven in de range-code.

Maarrrrrr......je voelt 'm al aankomen.
Als er iets ingebouwd kan worden dat er alleen bladen worden aangemaakt die nog niet voorkomen in de werkmap, dan zou dat zeer mooi zijn.

Is dit mogelijk?

 

[jpvs]

Heb nog een vb van LucB gedownload zie bijlage.

Pierre

 

[Wigi]

Mooie code van LucB, gebruikt dingen die ik nog nooit gezien heb :thumb:

Ik zou gewoon met een dubbele loop gewerkt hebben:

1. loop door de cellen in kolom A
2. voor elk van die cellen, loop door de bladnamen.

Bedankt voor deze andere methode.

Wigi

 

[kabebanaan]

Heb nog een vb van LucB gedownload zie bijlage.

Pierre

Dit werkt als een trein ...... ook nog automatisch ... Geweldig bedankt allemaal !!!!!