Volledige sheetnaam in cel zetten met VBA

[Brandts]

Goedemorgen,

Ik gebruik een VBA code om een lijst te maken van een aantal sheetnamen in het desbetreffende document. ik gebruik hiervoor de volgende code:

For i = 4 To Sheets.Count - 1
    Sheets("Namen").Range("A" & i - 3) = Sheets(i).Name
Next i

Dit werkt opzicht goed totdat een sheetnaam een "." bevat en eindigt op een "0". Deze laatste nul wordt dan niet gekopieerd naar de desbetreffende cel.

Een sheet met de naam 2.70 wordt in de cel dus weergeven als 2.7. Dit komt waarschijnlijk omdat excel 2.70 als een komma-getal ziet en het dus afrond naar 2.7. Het lukt me alleen niet om hier vanaf te komen.

Heeft iemand een suggestie?

 

[Brandts]

Ik heb het probleem al opgelost door de volgende regel toe te voegen.

Sheets("Namen").Range("A:A").NumberFormat = "@"

Mochten er nog andere suggesties zijn dan had ik die toch graag gehoord.

 

[Wigi]

For i = 4 To Sheets.Count - 1
    Sheets("Namen").Range("A" & i - 3) = [B]"'" & [/B]Sheets(i).Name
Next i

 

[Brandts]

Ah daar had ik nog niet aan gedacht. Die oplossing is nog makkelijker. Bedankt voor de julp :thumb: